Dlookup Ja/Nein Felder

  • Access

    Dlookup Ja/Nein Felder

    Moin,

    ich möchte prüfen, ob eine Kunde bereits "gelöscht" - also eigentlich löschvermerkt ist. Ich hab's mit DLookup probiert, komme aber nicht weiter. Wer kann weiterhelfen? Ich bekomme immer den Fehler "Datentypenkonflikt in Kriterienausdruck".

    VB.NET-Quellcode

    1. Private Sub btnKundenVerwalten_Click(
    2. Dim strSQL As String
    3. Dim strPersonalnummer As String
    4. strPersonalnummer = frmEinstiegKundenPersonalnummer.Value
    5. ' **Prüfen, ob Kunde bereits löschvermerkt wurde
    6. If (DLookup("KundeAktiv", "tab_Kunden", "KundeAktiv ='" & strPersonalnummer & "'") = -1) Then
    7. MsgBox "Personalnummer nicht vorhanden.", vbInformation
    8. Exit Sub
    9. End If
    10. End Sub


    Dankeschön 8-)

    PS: Hab es!

    VB.NET-Quellcode

    1. Private Sub btnKundenVerwalten_Click()
    2. 'Bestandskunden verwalten
    3. On Error GoTo Fehler
    4. Dim strSQL As String
    5. Dim strPersonalnummer As String
    6. strPersonalnummer = frmEinstiegKundenPersonalnummer.Value
    7. Dim boolKundeLoesch As Boolean
    8. If IsNull(strPersonalnummer) Then
    9. MsgBox "Bitte Personalnummer eingeben.", vbCritical
    10. Exit Sub
    11. End If
    12. 'Prüfen, ob Personalnummer bereits existiert
    13. If IsNull(DLookup("Personalnummer", "tab_Kunden", "Personalnummer = '" & strPersonalnummer & "'")) Then
    14. MsgBox "Personalnummer nicht vorhanden.", vbInformation
    15. Exit Sub
    16. End If
    17. ' **Prüfen, ob Kunde bereits löschvermerkt wurde
    18. boolKundeLoesch = DLookup("KundeAktiv", "tab_Kunden", "Personalnummer ='" & strPersonalnummer & "'")
    19. If boolKundeLoesch = True Then
    20. MsgBox "Personalnummer nicht vorhanden.", vbInformation
    21. Exit Sub
    22. End If
    23. DoCmd.OpenForm "frmKundenVerwalten"
    24. DoCmd.Close acForm, "frmEinstiegKunden"
    25. DoCmd.SelectObject acForm, "frmKundenVerwalten"
    26. Exit Sub
    27. Fehler:
    28. MsgBox Err.Description
    29. End Sub

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Lico“ ()