Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Wenn DS doppelt dann Eintrag löschen
zurück: Combobox aktualisieren weiter: Beicht über ein Kombinationsfeld auswählen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Lisa21
Gast


Verfasst am:
24. Jul 2009, 09:19
Rufname:

Wenn DS doppelt dann Eintrag löschen - Wenn DS doppelt dann Eintrag löschen

Nach oben
       Version: Office XP (2002)

Hallo,

ich habe in meinem Unterformular ein Kobminationsfeld mit folgendem Code hinterlegt:
Code:
Private Sub LAENDER_PLUS_AfterUpdate()
    If DCount("*", "T_LAENDER_PLUS", _
              "LAENDER_PLUS=" & Me!LAENDER_PLUS & " " & _
          "AND [PKEY]=" & Me!PKEY) > 0 Then
        MsgBox "Das von Ihnen angegebene Land wurde bereits angelegt!" & _
               vbCrLf & vbCrLf & "Der Eintrag kann nicht gespeichert werden!"
    End If
    If DCount("*", "T_LAENDER_PLUS", _
              "LAENDER_PLUS=" & Me!LAENDER_PLUS & " " & _
          "AND [PKEY]=" & Me!PKEY) > 0 Then
        Me!LAENDER_PLUS = Null
    End If
End Sub
Das Problem ist das der Eintrag des doppelten Landes gelöscht werden soll. Wenn in in einem Endlosformular als Unterformular (Anfügen ist zugelassen) einen neuen DS beginne, geht Access in den neuen DS. Mein Code erkennt ihn als doppelt in setzt den Eintrag auf Null. Trotzdem wird er als leerer DS gespeichert. Genau das soll nicht passieren.

Kann mit jemand helfen???

lg
Lisa21
jens05
Moderator


Verfasst am:
24. Jul 2009, 18:28
Rufname:
Wohnort: ~~~~~


AW: Wenn DS doppelt dann Eintrag löschen - AW: Wenn DS doppelt dann Eintrag löschen

Nach oben
       Version: Office XP (2002)

Hallo,
lege den Eintrag ins Ereignis "Vor Aktualisierung" und breche mit Cancel =True ab.
Code:
Private Sub LAENDER_PLUS_BeforeUpdate(Cancel As Integer)
    If DCount("*", "T_LAENDER_PLUS", _
              "LAENDER_PLUS=" & Me!LAENDER_PLUS & " " & _
          "AND PKEY=" & Me!PKEY) > 0 Then
        MsgBox "Das von Ihnen angegebene Land wurde bereits angelegt!" & _
               vbNewLine & "Der Eintrag kann nicht gespeichert werden!"
        Me!LAENDER_PLUS.Undo
        Cancel = True
    End If
End Sub

_________________
mfg jens05 Wink
Lisa21
Gast


Verfasst am:
27. Jul 2009, 11:23
Rufname:

AW: Wenn DS doppelt dann Eintrag löschen - AW: Wenn DS doppelt dann Eintrag löschen

Nach oben
       Version: Office XP (2002)

Hallo,
danke für deine Sub.

Klappt leider noch nicht! Rolling Eyes Der Datensatz bzw. das Feld bleibt trotzdem als leeres Feld angelegt!

Was ist da denn falsch???

Gruß
Lisa21
jens05
Moderator


Verfasst am:
27. Jul 2009, 20:14
Rufname:
Wohnort: ~~~~~

AW: Wenn DS doppelt dann Eintrag löschen - AW: Wenn DS doppelt dann Eintrag löschen

Nach oben
       Version: Office XP (2002)

Hallo,
stört dich der leere DS? Wie legst du einen neuen DS an?

Einen neuen ungespeicherten DS kannst du mit Me.Undo zurücksetzen.

Ich denke dafür wäre das Formularereignis "Vor Aktualiserung" geeignet. (mit obigem Code und dem Undo - Befehl)

Falls es nicht geht, zeige mal ein Bsp deiner Gegebenheiten.

_________________
mfg jens05 Wink
Lisa21
Gast


Verfasst am:
28. Jul 2009, 09:46
Rufname:


AW: Wenn DS doppelt dann Eintrag löschen - AW: Wenn DS doppelt dann Eintrag löschen

Nach oben
       Version: Office XP (2002)

Hallo,
Code:
    Me.Undo
klappt super, danke!
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 Tabellen & Abfragen: Duplikate löschen 4 GuidoR 991 23. März 2006, 21:38
GuidoR Duplikate löschen
Keine neuen Beiträge Access Tabellen & Abfragen: ODBC Zugriff auf Notes -> Eintrag in Access XP Tabelle 0 ttduy 1098 06. Feb 2006, 17:44
ttduy ODBC Zugriff auf Notes -> Eintrag in Access XP Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellerstellungsabfrage will sich selbst löschen 2 Gast 599 03. Feb 2006, 17:29
Gast Tabellerstellungsabfrage will sich selbst löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenvergleich | Gleiche Datensätze löschen 0 Daikon 979 29. Nov 2005, 13:50
Daikon Tabellenvergleich | Gleiche Datensätze löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Rang doppelt 8 Deep Purple_ 691 26. Sep 2005, 14:05
Gast Rang doppelt
Keine neuen Beiträge Access Tabellen & Abfragen: Doppelte Einträge in Abfragen löschen 8 MeWe 1479 13. Aug 2005, 09:44
MeWe Doppelte Einträge in Abfragen löschen
Keine neuen Beiträge Access Tabellen & Abfragen: (A03) DS in einer Excel-Tabelle mit Löschabfrage löschen 6 PrinceArthas 794 08. Aug 2005, 00:13
PrinceArthas (A03) DS in einer Excel-Tabelle mit Löschabfrage löschen
Keine neuen Beiträge Access Tabellen & Abfragen: SQL : Datenbank löschen 1 cfl2si 7440 23. März 2005, 12:30
Willi Wipp SQL : Datenbank löschen
Keine neuen Beiträge Access Tabellen & Abfragen: duplikatabfrage, löschen der doppelten datensätze.... 1 nebbio 1489 30. Jan 2005, 16:58
hommy duplikatabfrage, löschen der doppelten datensätze....
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikate in Access-Tabelle finden und löschen 2 bendechos 3158 17. Jan 2005, 09:54
bendechos Duplikate in Access-Tabelle finden und löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten in Tabelle löschen wenn ohne Inhalt 7 Zoran 776 14. Jan 2005, 16:33
Skogafoss Spalten in Tabelle löschen wenn ohne Inhalt
Keine neuen Beiträge Access Tabellen & Abfragen: Einmalige Datensätze löschen 18 frankkugler 1614 18. Okt 2004, 15:33
frankkugler Einmalige Datensätze löschen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project