Ik heb een tabel Planten met daarin het veld Nederlandse Naam. Hierop is een invoerformulier gemaakt
Ik wil vermijden dat ik een tweede maal eenzelfde plant invoer die al in de tabel voor komt bij de invoer in het invoerformulier in het desbetreffend veld door een waarschuwing zodat ik niet verder invul. Ik heb reeds het volgende maar het werkt niet. Kan mij iemand de fout aangeven :
Private Sub Nederlandse_Naam_AfterUpdate()
If fZoekOp(Me!Nederlanse_Naam) Then
MsgBox "die waarde komt al voor"
End If
End Sub
Function fZoekOp(s As String) As Boolean
Dim fld As Object
With CurrentDb.OpenRecordset("Planten")
While Not .EOF And Not fZoekOp
For Each fld In .Fields
If fld.Value = s Then
fZoekOp = True
Exit For
End If
Next
.MoveNext
Wend
End With
End Function
End Function
Ik wil vermijden dat ik een tweede maal eenzelfde plant invoer die al in de tabel voor komt bij de invoer in het invoerformulier in het desbetreffend veld door een waarschuwing zodat ik niet verder invul. Ik heb reeds het volgende maar het werkt niet. Kan mij iemand de fout aangeven :
Private Sub Nederlandse_Naam_AfterUpdate()
If fZoekOp(Me!Nederlanse_Naam) Then
MsgBox "die waarde komt al voor"
End If
End Sub
Function fZoekOp(s As String) As Boolean
Dim fld As Object
With CurrentDb.OpenRecordset("Planten")
While Not .EOF And Not fZoekOp
For Each fld In .Fields
If fld.Value = s Then
fZoekOp = True
Exit For
End If
Next
.MoveNext
Wend
End With
End Function
End Function