Ik heb een formulier met subformulier aangemaakt op basis van de tabellen Winkel en Bezoeken (deze hebben een 1 op Veel relatie, via sleutel Winkelcode JRS).
Op het hoofdformulier heb ik een niet-afhankelijke keuzelijst met invoervak toegevoegd dmv de Wizard in de toolbox.
Nu krijg ik volgende foutmelding als ik op het formulier een item uit de keuzelijst aanklik:
Fout 13 tijdens uitvoering:
Typen komen niet met elkaar overeen.
Foutopsporing geeft:
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 "[Winkel].[Winkelcode JRS] = " & Str(Nz(Me![Keuzelijst met invoervak62], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
waarbij de regel beginnend met rs.Findfirst wordt uitgelicht.
Kan iemand me zeggen wat er fout is.
Op het hoofdformulier heb ik een niet-afhankelijke keuzelijst met invoervak toegevoegd dmv de Wizard in de toolbox.
Nu krijg ik volgende foutmelding als ik op het formulier een item uit de keuzelijst aanklik:
Fout 13 tijdens uitvoering:
Typen komen niet met elkaar overeen.
Foutopsporing geeft:
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 "[Winkel].[Winkelcode JRS] = " & Str(Nz(Me![Keuzelijst met invoervak62], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
waarbij de regel beginnend met rs.Findfirst wordt uitgelicht.
Kan iemand me zeggen wat er fout is.