Hallo,
Ik gebruik onderstaande code om het veld Materiaalsoort automatisch te vullen met de waarde uit een tabel, bij het selecteren van een waarde uit dezelfde tabel voor het veld MateriaalBenaming.
Is het mogelijk om ook een 2e veld automatisch te vullen via een dergelijke code. Ik bedoel dan het veld MateriaalAfbeelding.
Dit veld bevindt zich ook in de tabel KtblMateriaalBenaming. Het veld MateriaalBenaming is het sleutelveld.
Groet.
Ik gebruik onderstaande code om het veld Materiaalsoort automatisch te vullen met de waarde uit een tabel, bij het selecteren van een waarde uit dezelfde tabel voor het veld MateriaalBenaming.
Code:
Private Sub MateriaalBenaming_AfterUpdate()
Dim con As ADODB.Connection, rs As ADODB.Recordset
Set con = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "KtblMateriaalBenaming", con, adOpenKeyset, adLockOptimistic
rs.MoveFirst
Do Until rs.EOF
If Me.MateriaalBenaming = rs.Fields("MateriaalBenaming") Then
Me.MateriaalSoort = rs!MateriaalSoort
Exit Do
End If
rs.MoveNext
Loop
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
End Sub
Is het mogelijk om ook een 2e veld automatisch te vullen via een dergelijke code. Ik bedoel dan het veld MateriaalAfbeelding.
Dit veld bevindt zich ook in de tabel KtblMateriaalBenaming. Het veld MateriaalBenaming is het sleutelveld.
Groet.