Hallo
Habe nun ein Code hier mitdem ich gerne per Auswahl in einer Combobox eines Namens, restliche Felder auf der Form mit dem record des ausgewählten Namens in der Tabelle, füllen will. Problem ist nur, beim Auswählen in der Combobox stürzt mein Programm ab :S...
Code sieht folgendermassen aus :
Private Sub fctRecherche_AfterUpdate()
Dim rs As Recordset
Dim db As Database
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblParticipant", dbOpenDynaset)
mcrit = "dtNom ='" & "dtPrenom='"
Do While Not rs.EOF
rs.FindFirst mcrit
txtNom = rs!dtNom
txtPrenom = rs!dtPrenom
txtMatricule = rs!dtMatricule
txtRue = rs!dtRue
txtPays = rs!dtPays
txtCodePostale = rs!dtCodePostale
txtLocalite = rs!dtLocalite
txtSexe = rs!dtSexe
txtEntree = rs!dtEntree
txtNationalite = rs!dtNationalite
txtSMS = rs!dtSMS
txtGSM = rs!dtGSM
txtTelParents = rs!dtTelParents
txtEmail = rs!dtEmail
Loop
db.Close
End Sub
bitte um schnelle antworten danke
mfg predason