Hallo,
Op een formulier maakte ik een keuzelijst waarin alle begische gemeenten staan.
ernaast maakte ik een veld voor de postnummers
De bedoeling is dat als ik een andere gemeente kies, het correcte postnummer in het desbetreffende veld komt te staan.
In de "na bijwerken" propertie van de keuzelijst schreef ik:
Dim db As Database
Dim tb As Recordset
Dim f As Form
Set db = CurrentDb()
Set tb = db.OpenRecordset("postnummers")
Set f = Forms![leerkrachten]
tb.MoveFirst
Do Until tb.EOF
If tb!gte = f!gem_lk Then
f!PN_lk = tb!PN
Exit Do
End If
tb.MoveNext
Loop
tb!gte is de naam van de gemeente in de tabel gemeenten
PN is de postnummer
het postnummer veld verandert alleen maar als ik daadwerkelijk in de keuzelijst zelf ga staan en dan naar een volgend veld ga.
Het ware leuker als het veranderde terwijl ik op de pijltjestoets druk.
Kan dat en zo ja, hoe?
Bedankt iedereen!!
JP
Op een formulier maakte ik een keuzelijst waarin alle begische gemeenten staan.
ernaast maakte ik een veld voor de postnummers
De bedoeling is dat als ik een andere gemeente kies, het correcte postnummer in het desbetreffende veld komt te staan.
In de "na bijwerken" propertie van de keuzelijst schreef ik:
Dim db As Database
Dim tb As Recordset
Dim f As Form
Set db = CurrentDb()
Set tb = db.OpenRecordset("postnummers")
Set f = Forms![leerkrachten]
tb.MoveFirst
Do Until tb.EOF
If tb!gte = f!gem_lk Then
f!PN_lk = tb!PN
Exit Do
End If
tb.MoveNext
Loop
tb!gte is de naam van de gemeente in de tabel gemeenten
PN is de postnummer
het postnummer veld verandert alleen maar als ik daadwerkelijk in de keuzelijst zelf ga staan en dan naar een volgend veld ga.
Het ware leuker als het veranderde terwijl ik op de pijltjestoets druk.
Kan dat en zo ja, hoe?
Bedankt iedereen!!
JP
