PDA

Vollständige Version anzeigen : Mehrere Recordsets vereinfachen


Lamerman
30.09.2005, 09:08
Guten Morgen allerseits,

ich habe zwar kein Problem aber dennoch eine Frage:

Durch einen Button in einem Formular, schreibe ich dutzende von Zahlen in einer dafür vorgesehene Tabelle.
Das ist natürlich immer der selbe Code dann nur mit anderen Namen.

Kann man so etwas vereinfachen?

Gruß,
Lamerman

Arne Dieckmann
30.09.2005, 09:10
Ich denke schon.

Lamerman
30.09.2005, 09:11
Ok! und wenn ja, wie?

Arne Dieckmann
30.09.2005, 09:14
Ohne nähere Kenntnisse des zur Zeit eingesetzten Codes und der Unterschiede zwischen den einzelnen Anforderungen beim Einfügen kann man hier keinen konkreten Vorschlag machen.

Lamerman
30.09.2005, 09:18
Es sieht wie folgt aus:
---------------------------------------------------------------------
Variablen Deklaration

Dim test_meldung As ADODB.Recordset
Set test_meldung = New ADODB.Recordset

Dim test_ist70me As ADODB.Recordset
Set test_ist70me = New ADODB.Recordset


test_meldung.Open "tbl_ZW_teilnehmer_test_meldung", Application.CurrentProject.Connection, adOpenDynamic, adLockOptimistic
test_ist70me.Open "tbl_ZW_teilnehmer_test_ist70me", Application.CurrentProject.Connection, adOpenDynamic, adLockOptimistic


'Variable für den im Listenfeld ausgewähltem Test
ID_teilnehmer = Me.kbf_auswahl_teilnehmer

Eintrag_test_meldung_rw = Me.kbf_test_meldung
Eintrag_test_meldung_ba = Me.kbf_meldung_bA
Eintrag_test_meldung_st = Me.txf_meldung_stanine
Eintrag_test_meldung_fp = Me.txfl_meldung_fp
Eintrag_test_datum = Me.test_datum

Eintrag_test_ist70me_rw = Me.kbf_test_ist70me
Eintrag_test_ist70me_ba = Me.kbf_ist70me_bA
Eintrag_test_ist70me_st = Me.txf_ist70me_stanine
Eintrag_test_ist70me_fp = Me.txfl_ist70me_fp
Eintrag_test_datum = Me.test_datum


'Beziehung zwischen Teilnehmer und Test wird in der Zwischentabelle hergestellt
test_meldung.AddNew
test_meldung!ID_teilnehmer = ID_teilnehmer
test_meldung!meldung_rw = Eintrag_test_meldung_rw
test_meldung!meldung_ba = Eintrag_test_meldung_ba
test_meldung!meldung_st = Eintrag_test_meldung_st
test_meldung!meldung_fp = Eintrag_test_meldung_fp
test_meldung!test_datum = Eintrag_test_datum

test_ist70me.AddNew
test_ist70me!ID_teilnehmer = ID_teilnehmer
test_ist70me!ist70me_rw = Eintrag_test_ist70me_rw
test_ist70me!ist70me_ba = Eintrag_test_ist70me_ba
test_ist70me!ist70me_st = Eintrag_test_ist70me_st
test_ist70me!ist70me_fp = Eintrag_test_ist70me_fp
test_ist70me!test_datum = Eintrag_test_datum

'Eintrag hinzufügen
test_ist70me.Update
test_meldung.Update

'Tabelle schließen
test_ist70me.Close
test_meldung.Close

-------------------------------------------------------------------

das soll in etwa mit 15 Tests gemacht werden und würde dementspechend groß werden. Gibt es eine Möglichkeit das straffen zu können?