Hallo
Ich möchte mit einem Kombinationsfeld mehrere Textfelder automatisch ausfüllen.
Mit dem Code funktioniert es auch so ganz gut, nur ab und zu geht dann plötzlich gar nichts mehr. Wenn ich nicht in einer Kopie der angefertigten Datenbank arbeiten würde, dann wäre jetzt alles hin.
Private Sub cboNames_AfterUpdate()
Me.txtFirstName = Me![cboNames].column(1)
Me.txtLastName = Me![cboNames].column(2)
Me.txtTitle = Me![cboNames].column(3)
End Sub
Kombinationsfeld = CboNames
Fehler sieht wie folgt aus, nach dem Öffnen des Formulars und Auswahl über das Kombinationsfeld, kommt eine kurze Fehlermeldung "Nach Aktualisierung ist ein Fehler aufgetreten". Danach geht nichts mehr und Access muss neu gestartet werden. Beim Aufruf des besagten Formulars, lässt sich dann nichts mehr einstellen.
Gibt es noch eine andere Methode um über ein Kombinationsfeld mehrere Textfelder zu auszufüllen?
Den benutzten Code, habe ich schon auf verschiedenen Seiten gefunden, nur warum geht er nach einer gewissen Zeit bei mir nicht mehr?
Hallo,
Vielleicht gibt es leere Felder; - versuche
Private Sub cboNames_AfterUpdate()
Me.txtFirstName = Nz(Me![cboNames].column(1), "")
Me.txtLastName = Nz(Me![cboNames].column(2), "")
Me.txtTitle = Nz(Me![cboNames].column(3), "")
End Sub
Hallo,
ich halte das Vorhaben eher für überflüssig. Wenn man die Namenstabelle in die Abfrage mit aufnimmt (mit der Verknüpfung über die Schlüsselfelder) kann man die anderen Felder direkt anzeigen, ohne einen Buchstaben VBA Code, alles automatisch.
Danke für die Hilfe!
Der Fehler ist mittlerweile nicht mehr aufgetreten,
obwohl ich am Code nichts geändert habe.