Textfeld automatisch füllen
Hallo zusammen,
ich melde mich mal wieder mit einen Access problem, ich denke das ist schnell gelöst - ich kann es nur irgendwie nicht
Alles erstes hier die Datenbank:
Tbl_Handy
HandyID (PS)
Marke
Typ
Tbl_Kunden
Knr (PS)
Name
Vorname
Tel
Die Tabelle ist so minimal gehalten wie möglich (ist ja nur zum testen)!
Im Formular soll nun nach eingabe der HandID die Textfelder Marke und Typ automatisch ausgefüllt werden, ebenso wenn die Knr eingegeben wird sollen Name, Vorname und Tel automatisch mit dem zugehörigen Inhalt bestückt werden.
Mein Lösungsansatz:
Private Sub KnrFml_AfterUpdate()
Dim strFilter As String
strFilter = "[Knr] =" & Me.Knr
Me.KName = DLookup("Name", "Tbl_Kunden", strFilter)
End Sub
Aber wenn ich das mache, wird mir immer nur der erste Name also mit der Knr 1 in meinem Fall Mustermann angezeigt.
Also muss irgendwas an meinem Lösungsansatz falsch sein, kann mir jemand helfen?
Beste Grüße
Tbl_Handy
HandyID (PS)
Marke
Typ
Tbl_Kunden
Knr (PS)
Name
Vorname
Tel
Die Tabelle ist so minimal gehalten wie möglich (ist ja nur zum testen)!
Im Formular soll nun nach eingabe der HandID die Textfelder Marke und Typ automatisch ausgefüllt werden, ebenso wenn die Knr eingegeben wird sollen Name, Vorname und Tel automatisch mit dem zugehörigen Inhalt bestückt werden.
Mein Lösungsansatz:
Private Sub KnrFml_AfterUpdate()
Dim strFilter As String
strFilter = "[Knr] =" & Me.Knr
Me.KName = DLookup("Name", "Tbl_Kunden", strFilter)
End Sub
Aber wenn ich das mache, wird mir immer nur der erste Name also mit der Knr 1 in meinem Fall Mustermann angezeigt.
Also muss irgendwas an meinem Lösungsansatz falsch sein, kann mir jemand helfen?
Beste Grüße
Please also mark the comments that contributed to the solution of the article
Content-Key: 188223
Url: https://administrator.de/contentid/188223
Printed on: April 25, 2024 at 04:04 o'clock
4 Comments
Latest comment
Hallo cp-com!
Versuchs mal so:
Gruß Dieter
Versuchs mal so:
Private Sub KnrFml_AfterUpdate()
Dim strFilter As String
strFilter = "[Knr] =" & Me.KnrFml
Me.KName = DLookup("Name", "Tbl_Kunden", strFilter)
End Sub
Gruß Dieter
Hallo cp-com!
Jepp, gern geschehen
Gruß Dieter
Jepp, gern geschehen
Gruß Dieter