VBA Datenfelder auf existenz Prüfen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Alberto.

    VBA Datenfelder auf existenz Prüfen

    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.
    Meine Access Tabelle heißt "Mytbl" mit Feld "Myfld"
    Der Code ist schon Richtig aber der If Statement wird nicht korrekt ausgeführt. er sagt immer: nicht Vorhanden selbst wenn ich ein existierenden Wert eingebe!
    Hier ist der Code:

    VB.NET-Quellcode

    1. Sub CompareFields()
    3. Dim rcsPers As Recordset
    4. Dim rcsPers1 As Recordset
    6. Dim db As Database
    7. Set db = CurrentDb
    9. Set rcsPers = db.OpenRecordset("Mytbl")
    10. Set rcsPers = db.Openrecordset("Mytbl")
    11. rcsPers.EditrcsPers1.Edit
    13. rcsPers.Fields("Myfld").Value = InputBox(" geben Sie ein Wert ein")
    14. If rcsPers.Fields("Myfld") = rcsPers1.Fields("Myfld") Then
    16. MsgBox ("Nummer ist vorhanden")
    18. Else
    20. MsgBox ("Nummer ist nicht vorhanden")
    22. End If
    24. End Sub

    kann mir hier jemand helfen? Ich würde mich sehr freuen.
    Danke im Voraus.

    Hallo,

    vielen Dank für Die Antwort.
    Das habe ich auch ausprobriert aber leider funktioniert nicht :(
    Es kommt immer nur die Meldung: " nicht vorhanden" auch wenn ich werte eingebe die zu den Datenfeld der Tabelle gehören!!
    D.h. der If Block bearbeitet nur den else Teil. also der Vergleich findet garnicht statt!
    Ich bin am ende meines wissens. bin echt Froh wenn ich geholfen bin.

    Gruss.

Facebook
Telefonspende