Ik ben bijna klaar met een serviceoverzicht te maken, maar ik loop nu tegen het volgende probleem aan :
Ik heb een relatie tabel met
relatie id (verplicht,maar niet bekend bij gebruikers)
Klantnummer ( optioneel)
Klantnaam ( verplicht)
Nu wil ik graag dat op het formulier:
-wanneer iemand het relatienummer invult, direct het optionele klantnummer en de naam wordt bijgewerkt.
-wanneer iemand het optionele klantnummer invult, direct het relatienummer en de naam wordt bijgewerkt, en tenslotte
-wanneer iemand de klantnaam invult, direct het optionele klantnummer en het relatienummer wordt bijgewerkt.
Ik maak gebruik van een keuzeveld met invoervak, en (uit een andere database ) dacht ik het volgende (werkend) statement in het formulier te gebruiken:
Private Sub Klantnummer_AfterUpdate()
' De record zoeken die overeenkomt met het besturingselement
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Relatienummer] = " & Str(Nz(Me![Klantnummer], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub.
Deze formule zet ik in de eigenschap van het veld Klantnummer
Als ik nu een klantnummer invul gebeurt er dus niets!!!
Terwijl in de oorspronkelijke database alle velden netjes worden bijgewerkt
Kan iemand mij vertellen wat ik verkeerd doe met deze formule of met mijn overzicht
bedankt
ik doe er een dummy bij van het overzicht, is misschien duidelijker dan mijn uitleg.
Ik heb een relatie tabel met
relatie id (verplicht,maar niet bekend bij gebruikers)
Klantnummer ( optioneel)
Klantnaam ( verplicht)
Nu wil ik graag dat op het formulier:
-wanneer iemand het relatienummer invult, direct het optionele klantnummer en de naam wordt bijgewerkt.
-wanneer iemand het optionele klantnummer invult, direct het relatienummer en de naam wordt bijgewerkt, en tenslotte
-wanneer iemand de klantnaam invult, direct het optionele klantnummer en het relatienummer wordt bijgewerkt.
Ik maak gebruik van een keuzeveld met invoervak, en (uit een andere database ) dacht ik het volgende (werkend) statement in het formulier te gebruiken:
Private Sub Klantnummer_AfterUpdate()
' De record zoeken die overeenkomt met het besturingselement
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Relatienummer] = " & Str(Nz(Me![Klantnummer], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub.
Deze formule zet ik in de eigenschap van het veld Klantnummer
Als ik nu een klantnummer invul gebeurt er dus niets!!!
Terwijl in de oorspronkelijke database alle velden netjes worden bijgewerkt
Kan iemand mij vertellen wat ik verkeerd doe met deze formule of met mijn overzicht
bedankt
ik doe er een dummy bij van het overzicht, is misschien duidelijker dan mijn uitleg.
