Foutmelding bij keuzelijst met invoervak

[Tardis]

Foutje van mij.
Dit zou wel moeten werken:

Private Sub Keuzelijst_met_invoervak62_AfterUpdate()
    ' De record zoeken die overeenkomt met het besturingselement
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "StringFROMGUID([Winkelcode JRS]) = '" & Me.[Keuzelijst met invoervak62] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Groet,

Tardis

 

[Hoxbarg]

Het werkt!

Bedankt,
Hoxbarg

 

[Hoxbarg]

Beste Tardis,

Ik probeer nu dezelfde keuzelijst ook in een ander formulier te plaatsen, hetgeen echter volgende fout oplevert:
De expressie Bij klikken die u hebt opgegeven als instelling voor de gebeurteniseigenschap, heeft de volgende fout veroorzaakt: er is een dubbelzinnige naam gevonden: Keuzelijst_met_invoervak73_Click.

ter info:
Private Sub Keuzelijst_met_invoervak73_Click()
' De record zoeken die overeenkomt met het besturingselement
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Winkel].[Winkelnaam] = '" & Me![Winkelnaam] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Keuzelijst_met_invoervak73_Click()
' De record zoeken die overeenkomt met het besturingselement
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "StringFROMGUID([Winkelcode JRS]) = '" & Me.[Keuzelijst met invoervak73] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Ik hoop dat je me nog een keer verder kunt helpen.

 

[Tardis]

Hallo,

kijk eens goed naar je code, en dan met name naar de eerste coderegel van iedere sub...

PS in het vervolg graag 1 vraag per onderwerp.

Groet,

Tardis

 

[Hoxbarg]

sorry maar ik zie het niet, ik zal de vraag opnieuw plaatsen