ich möchte in meiner Adressdatenbank im Feld PLZ eine mir bekannte PLZ eingeben. Beim verlassen des Feldes soll nun im Feld Ort der entsprechende Ort erscheinen.
Wer kann mir helfen?
Besten Dank
Jörg
Etwa so:
Private Sub PLZ_AfterUpdate()
If Not Isnull(Me!PLZ) then
Me!Ort = DLookup(„Ort“,„tblOrte“,"PLZ = " & Me!PLZ)
Else
Me!Ort = „“
end if
end sub
…wobei das meist nicht viel bringt, da es jede Menge Postleitzahlen mit mehreren Orten gibt. Man müßte also eigentlich noch auf Eindeutigkeit der Suche prüfen.
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
als Ergänzung zum Code von Reinhard Kraasch.
Der PLZOrt soll am besten Combofield sein, dann kann man die Eindeutigkeitsprüfung leichter durchführen.
Wowa
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]