Doppelte Werte in der Datenbank abfangen über vba
17.07.2018 13:18:03
Christian
in meiner Datenbank möchte ich über ein Textfeld die Eingabe von bereits angelegten Werten in meiner Tabelle überprüfen. Es handelt sich dabei um die Variable IPOITEM. Die Folgende Codestruktur habe ich aus einer Vorlage im Internet angepasst. Leider verweist er mich bei der Ausführung auf einen Datentypenkonflikt. Könnt ihr mir helfen?
Beste Grüße
Christian
Private Sub IPOITEM_Exit(Cancel As Integer)
Dim IPOITEM As String
Dim krt As String
IPOITEM = Me.IPOITEM.Value
krt = "IPOITEM = " & IPOITEM & ""
If DCount("[IPOITEM]", "Tblmain", krt) > 0 Then
MsgBox "You try to add an already listed IPOITEM!" & vbCrLf & "Please consider your input _
once again!", vbOKOnly, "Redundant User Record"
Exit Sub
Else
Me.IPOITEM.Value = IPOITEM
End If
End Sub
Anzeige