|
Hallo,
Ich möchte gern in VBA ein code schreiben der folgendes bewirkt:
der user soll die Möglichkeit haben was einzugeben dann soll die Eingabe mit der Daten eines bestimmten Feldes der Tabelle verglichen werden. wenn die Eingabe schon Bereits in diesem Feld existiert, soll eine Meldung kommen: Vorhanden. wenn nicht dann die Meldung: nicht vorhanden.
Ich habe dafür folgendes code implementiert:
Sub Faktor()
Dim rcsPlan As Recordset
Dim eingabe As String
Dim wert As String
Dim DB As Database
Set DB = CurrentDb
Set rcsPlan = DB.OpenRecordset("MyTable")
eingabe = InputBox("geben Sie Materialnummer ein")
wert =? rcsPlan.Fields("MyFeld").Value
If eingabe = wert Then
rcsPlan.Edit MsgBox ("Materialnummer vorhanden")
Else MsgBox ("Materialnummer nicht vorhanden")
End If
End Sub
kann mir jemand helfen?
Gruß
|