Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
NeueDateneingabe überprüfen
zurück: Datensatzauswahl weiter: 1 Feld im Formular sperren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
moni
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. März 2004, 18:37
Rufname:

NeueDateneingabe überprüfen - NeueDateneingabe überprüfen

Nach oben
       

Hallo,
ich habe eine DB mit Adressen. Bei Neuingabe der Firma und Person
habe ich eigentlich eine Überprüfung wie folgt:

Jetzt passiert es, dass bei einer Person ohne Vornamen und gleichem Nachnamen wie bei einer vorhanden Personen mit Vornamen und gleichem Nachnamen bei einer anderen Firma.
die Meldung kommt: Ds schon vorhanden (wenn ich dann bei dem Vornamen A. bzw. B. eingebe, wird der Datensatz angenommen.
Im Anredefeld sind nur h, f, oder i zugelassen.
Im HF wird vor dem Aktualiseren geprüft, im UF vor dem Eingeben
Wenn ich im UF im Code f Me!Anrede > 0 Then verursacht das sofort einen Fehler: DS schon vorhanden.

Code:
Private Sub Form_BeforeUpdate(Cancel As Integer) 'Ein neuer Firmen-Datensatz wird geprüft, _
ob schon in Datenbank vorhanden vor dem Aktualiseren zugeordnet
Dim sql, antw As Variant
    If Len(Me!Firma1) > 0 Then
        sql = "[Firma1]='" & Me!Firma1 & "'"
    End If
    If Len(Me!Firma2) > 0 Then
        If Len(sql) > 0 Then
            sql = sql & " and [Firma2]='" & Me!Firma2 & "'"
        Else
            sql = sql & "[Firma2]='" & Me!Firma2 & "'"
        End If
    End If
.......usw
If Len(sql) = 0 Then
        Exit Sub
    Else
        sql = sql & " and FirmenID<>" & Me!FirmenID
    End If
    antw = DCount("*", "Firmen", sql)
    If antw > 0 Then
     MsgBox "Der Datensatz für diese Firma ist schon vorhanden!"
     Cancel = True
     Exit Sub
    End If
End Sub

Im UF
Private Sub Form_BeforeInsert(Cancel As Integer) 'prüft, ob ein Personen-Datensatz schon vorhanden, _
vor dem Eingeben zugeordnet
    Dim sql, antw As Variant
    'If Me!Anrede > 0 Then   'verursacht gleichen einen Fehler
    If Me!Anrede <> "i" Then
        sql = "[Anrede]='" & Me!Anrede & "'"
    End If   
    If Len(Me!Titel) > 0 Then
        If Len(sql) > 0 Then
            sql = sql & " and [Titel]='" & Me!Titel & "'"
        Else
            sql = sql & "[Titel]='" & Me!Titel & "'"
        End If
    End If
    If Len(Me!Anredetitel) > 0 Then
        If Len(sql) > 0 Then
            sql = sql & " and [Anredetitel]='" & Me!Anredetitel & "'"
        Else
            sql = sql & "[Anredetitel]='" & Me!Anredetitel & "'"
        End If
    End If
    If Len(Me!Vorname) > 0 Then
        If Len(sql) > 0 Then
            sql = sql & " and [Vorname]='" & Me!Vorname & "'"
        Else
            sql = sql & "[Vorname]='" & Me!Vorname & "'"
        End If
    End If
    If Len(Me!Nachname) > 0 Then
        If Len(sql) > 0 Then
            sql = sql & " and [Nachname]='" & Me!Nachname & "'"
        Else
            sql = sql & "[Nachname]='" & Me!Nachname & "'"
        End If
    End If
..............usw.

 If Len(sql) = 0 Then
        Exit Sub
    Else
        sql = sql & " and PersonenID<>" & Me!PersonenID
    End If
       antw = DCount("*", "Personen", sql)
    If antw > 0 Then
        MsgBox "Der Datensatz für diese Person ist schon vorhanden!"
        Cancel = True
        Exit Sub
    End If
End Sub


Was mache ich falsch???? Ich hoffe, Ihr versteht was ich meine. Es funktioniert so ganz gut, halt nur wenn ein Nachname doppelt ist bekomme ich Probleme.
Kann mir jemand helfen.
Danke
Gruß Moni
P.S. Ich hoffe, das ist nicht zu lang, ansonsten versuche ich es beim nächsten Mal mich kürzer zu fassen
moni
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. März 2004, 20:34
Rufname:


NeueDateneingabe überprüfen - gelöst - NeueDateneingabe überprüfen - gelöst

Nach oben
       

Hallo,

weiß jetzt woran es lag, die ID war falsche.

Gruß Moni
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Formulare: Eingaben in Formular überprüfen 2 Schnuffelhase 388 17. Jun 2011, 11:57
Schnuffelhase Eingaben in Formular überprüfen
Keine neuen Beiträge Access Tabellen & Abfragen: In Abfrage überprüfen, ob Feld aus Kreuzabfrage vorhanden 1 paper2008 695 06. Feb 2010, 15:54
jens05 In Abfrage überprüfen, ob Feld aus Kreuzabfrage vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze auf das Vorkommen bestimmer Zeichen überprüfen 2 Wedge Antilles 511 26. März 2009, 10:23
Wedge Antilles Datensätze auf das Vorkommen bestimmer Zeichen überprüfen
Keine neuen Beiträge Access Formulare: Textfeld während Eingabe überprüfen 4 20zero1 1125 23. März 2009, 11:54
20zero1 Textfeld während Eingabe überprüfen
Keine neuen Beiträge Access Formulare: Textfeld auf einen wert überprüfen 5 Darkcallen 402 10. Okt 2008, 15:34
Marmeladenglas Textfeld auf einen wert überprüfen
Keine neuen Beiträge Access Formulare: Endlosformular "Einträge überprüfen", "Einträ 1 Marja 398 03. März 2008, 12:35
Marja Endlosformular "Einträge überprüfen", "Einträ
Keine neuen Beiträge Access Formulare: Wert aus einem Unterformular überprüfen 13 Dr.Hossa 697 19. Jun 2007, 18:01
Willi Wipp Wert aus einem Unterformular überprüfen
Keine neuen Beiträge Access Formulare: Daten nach Eingabe überprüfen 5 langejg 606 25. Apr 2007, 12:05
langejg Daten nach Eingabe überprüfen
Keine neuen Beiträge Access Programmierung / VBA: Textfeld auf Nullwert überprüfen 2 micke 490 13. März 2007, 17:54
micke Textfeld auf Nullwert überprüfen
Keine neuen Beiträge Access Programmierung / VBA: Spalte überprüfen 11 timohy 788 29. Jan 2007, 16:24
Willi Wipp Spalte überprüfen
Keine neuen Beiträge Access Programmierung / VBA: Spalte überprüfen 2 dkaj 487 12. Jan 2007, 10:38
dkaj Spalte überprüfen
Keine neuen Beiträge Access Programmierung / VBA: Textfelder als controls überprüfen (schleife) 5 fdsa 1205 24. Okt 2006, 22:03
derArb Textfelder als controls überprüfen (schleife)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver