Keuzelijst met invoervak 2

[Hoxbarg]

Ik probeer een keuzelijst met invoervak in een formulier te plaatsen, hetgeen echter de 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

 

[Tardis]

Hallo,

je hebt 2 subs gedefinieerd met dezelfde naam namelijk:

Private Sub Keuzelijst_met_invoervak73_Click()

Naam moet uniek zijn, vandaar de foutmelding.

Je moet of een keuzelijst toevoegen en 1 van de subs daaronder hangen of je subs samenvoegen tot 1 sub.

Groet,

Tardis

 

[Hoxbarg]

Ik heb bij de tweede sub de naam gewijzigd door het getal te wijzigen van 73 naar 72. Ik krijg geen foutmelding meer. De bedoeling was echter dat na klikken de gegevens van de bijbehorende winkel automatisch zouden worden ingevuld vanuit de tabel "Tabel Winkel".

Er gebeurt echter niets.