Cisse
Legacy Member
Ik heb ier een table Leveranciers aangemaakt.
Nu heb ik een form gecreeerd met een combobox waar alle namen van de leveranciers inkomen. Daarboven heb ik een knop aangemaakt "Bekijk".
Het is de bedoeling als ik in de combobox een leverancier selecteer en op knop bekijk klik, dat er een form geopend wordt met de informatie van de gekozen leverancier.
Op dit moment is de VB code achter de knop de volgende :
Private Sub btnZoeken_Click()
On Error GoTo Err_btnZoeken_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmLeverancier"
stLinkCriteria = "[Naam]=" & "'" & Me![LevNaam] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_btnZoeken_Click:
Exit Sub
Err_btnZoeken_Click:
MsgBox Err.Description
Resume Exit_btnZoeken_Click
End Sub
Dit geeft echter de fout "Leveranciers cant find the fieldname levNaam in the expression" terwijl LevNaam wel degelijk in de tabel Leveranciers staat , met in die kolom de namen van de leveranciers.
Weet er iemand hoe ik dit oplos ?
Nu heb ik een form gecreeerd met een combobox waar alle namen van de leveranciers inkomen. Daarboven heb ik een knop aangemaakt "Bekijk".
Het is de bedoeling als ik in de combobox een leverancier selecteer en op knop bekijk klik, dat er een form geopend wordt met de informatie van de gekozen leverancier.
Op dit moment is de VB code achter de knop de volgende :
Private Sub btnZoeken_Click()
On Error GoTo Err_btnZoeken_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmLeverancier"
stLinkCriteria = "[Naam]=" & "'" & Me![LevNaam] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_btnZoeken_Click:
Exit Sub
Err_btnZoeken_Click:
MsgBox Err.Description
Resume Exit_btnZoeken_Click
End Sub
Dit geeft echter de fout "Leveranciers cant find the fieldname levNaam in the expression" terwijl LevNaam wel degelijk in de tabel Leveranciers staat , met in die kolom de namen van de leveranciers.
Weet er iemand hoe ik dit oplos ?