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".
Dankeschön
PS: Hab es!
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
- Private Sub btnKundenVerwalten_Click(
- Dim strSQL As String
- Dim strPersonalnummer As String
- strPersonalnummer = frmEinstiegKundenPersonalnummer.Value
- ' **Prüfen, ob Kunde bereits löschvermerkt wurde
- If (DLookup("KundeAktiv", "tab_Kunden", "KundeAktiv ='" & strPersonalnummer & "'") = -1) Then
- MsgBox "Personalnummer nicht vorhanden.", vbInformation
- Exit Sub
- End If
- End Sub
Dankeschön
PS: Hab es!
VB.NET-Quellcode
- Private Sub btnKundenVerwalten_Click()
- 'Bestandskunden verwalten
- On Error GoTo Fehler
- Dim strSQL As String
- Dim strPersonalnummer As String
- strPersonalnummer = frmEinstiegKundenPersonalnummer.Value
- Dim boolKundeLoesch As Boolean
- If IsNull(strPersonalnummer) Then
- MsgBox "Bitte Personalnummer eingeben.", vbCritical
- Exit Sub
- End If
- 'Prüfen, ob Personalnummer bereits existiert
- If IsNull(DLookup("Personalnummer", "tab_Kunden", "Personalnummer = '" & strPersonalnummer & "'")) Then
- MsgBox "Personalnummer nicht vorhanden.", vbInformation
- Exit Sub
- End If
- ' **Prüfen, ob Kunde bereits löschvermerkt wurde
- boolKundeLoesch = DLookup("KundeAktiv", "tab_Kunden", "Personalnummer ='" & strPersonalnummer & "'")
- If boolKundeLoesch = True Then
- MsgBox "Personalnummer nicht vorhanden.", vbInformation
- Exit Sub
- End If
- DoCmd.OpenForm "frmKundenVerwalten"
- DoCmd.Close acForm, "frmEinstiegKunden"
- DoCmd.SelectObject acForm, "frmKundenVerwalten"
- Exit Sub
- Fehler:
- MsgBox Err.Description
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Lico“ ()