Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Doppeleintrag verhindern und Datensatz anzeigen
zurück: Datensatz suchen und ausgeben weiter: Datensätze zusammenzählen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Scheibenmitte
Einsteiger


Verfasst am:
06. Mai 2009, 17:38
Rufname:

Doppeleintrag verhindern und Datensatz anzeigen - Doppeleintrag verhindern und Datensatz anzeigen

Nach oben
       Version: Office 2003

Hallo zusammen!

Es ist mir mit Hilfe dieses Forums gelungen, im Formular einen Doppeleintrag (zwei Kriterien) zu verhindern.
Ist ein Doppeleintrag vorhanden, wird eine Meldung angezeigt und der neue Eintrag gelöscht.
Jetzt wollte ich aber nach der Meldung zu dem bereits vorhandenen Eintrag im Formular springen - wer kann mir helfen ?
Code:
Private Sub VEREIN_Exit(Cancel As Integer)
    Dim X As Control
   
    If DCount("*", "SCHÜTZEN", _
              "[verein]='" & Me!VEREIN & "' " & _
          "AND [mitglnr] =" & Me!MitglNr) > 0 Then
        MsgBox "Schütze / Schützin ist bereits in Hauptdatei vorhanden !! ", _
               48, "A C H T U N G "
        DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
        DoCmd.GoToRecord , , acNewRec
        Set X = Forms!Schützen!MitglNr
        X.SetFocus
    End If
Exit_VEREIN_Exit:
    Exit Sub
    Resume Exit_VEREIN_Exit
End Sub
jens05
Moderator


Verfasst am:
06. Mai 2009, 22:34
Rufname:
Wohnort: ~~~~~


AW: Doppeleintrag verhindern und Datensatz anzeigen - AW: Doppeleintrag verhindern und Datensatz anzeigen

Nach oben
       Version: Office 2003

Hallo,
ich denke die FindFirst-Methode sollte helfen
Code:
Private Sub VEREIN_Exit(Cancel As Integer)
    If DCount("*", "SCHÜTZEN", _
              "[verein]='" & Me!VEREIN & "' " & _
          "AND [mitglnr] =" & Me!mitglnr) > 0 Then
        MsgBox "Schütze / Schützin ist bereits in Hauptdatei vorhanden !! ", _
               48, "A C H T U N G "
        Me.Undo
'        DoCmd.GoToRecord , , acNewRec
        Me.Recordset.FindFirst "[mitglnr] = " & Forms!Schützen!mitglnr
    End If
End Sub

_________________
mfg jens05 Wink
Scheibenmitte
Einsteiger


Verfasst am:
07. Mai 2009, 18:51
Rufname:

AW: Doppeleintrag verhindern und Datensatz anzeigen - AW: Doppeleintrag verhindern und Datensatz anzeigen

Nach oben
       Version: Office 2003

Hi jens05 !

Danke für deinen Hinweis.
Leider funzt er bei mir nicht. Der Datensatz wird zwar nicht gespeichert und das Formular wird geleert, aber der bereits vorhandene Datensatz wird nicht angezeigt.

Außerdem sollte der Datensatz angezeigt werden, der beide Kriterien erfüllt.
Hast Du noch eine Idee?
Willi Wipp
Moderator


Verfasst am:
07. Mai 2009, 20:58
Rufname:
Wohnort: Raum Wiesbaden

Re: Doppeleintrag verhindern und Datensatz anzeigen - Re: Doppeleintrag verhindern und Datensatz anzeigen

Nach oben
       Version: Office 2003

Hi Scheibenmitte,

wie waere es mit
Code:
Private Sub VEREIN_Exit(Cancel As Integer)
    Dim strWHERE    As String
   
    strWHERE = "[verein]='" & Me!VEREIN & "' " & _
           "AND [mitglnr] =" & Me!mitglnr
    If DCount("*", "SCHÜTZEN", strWHERE) > 0 Then
        MsgBox "Schütze / Schützin ist bereits in Hauptdatei vorhanden !! ", _
               48, "A C H T U N G "
        Me.Undo
'        DoCmd.GoToRecord , , acNewRec
        Me.Recordset.FindFirst strWHERE
    End If
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Gast



Verfasst am:
07. Mai 2009, 23:05
Rufname:

AW: Doppeleintrag verhindern und Datensatz anzeigen - AW: Doppeleintrag verhindern und Datensatz anzeigen

Nach oben
       Version: Office 2003

Hi Willi Wipp !

Super, fast perfekt.
Der doppelte Datensatz wird angezeigt. Beim nächsten Klick erscheint aber wieder die Meldung bevor der Klick ausgeführt wird !?
Willi Wipp
Moderator


Verfasst am:
07. Mai 2009, 23:12
Rufname:
Wohnort: Raum Wiesbaden


Re: Doppeleintrag verhindern und Datensatz anzeigen (II) - Re: Doppeleintrag verhindern und Datensatz anzeigen (II)

Nach oben
       Version: Office 2003

Hi Scheibenmitte,

nun ja bisher jast Du nicht viel zu Deinem DB-Modell preisgegeben!
In der Regel sollte man ein zusaetzliches Autowert-Feld als Primaerschluessel verwenden.
Dieses wuerde man dann in die Pruefung einbauen!
Auch das Ereignis halte ich nicht wirklich fuer geeignet.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
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: Anfügeabfrage soll nur einen Datensatz verschieben 2 Quamsman 1025 08. März 2005, 15:23
Quamsman Anfügeabfrage soll nur einen Datensatz verschieben
Keine neuen Beiträge Access Tabellen & Abfragen: Kombinierte Abfrage (Datensatz mit neuestem Datum) 16 Gelezun 2163 05. Feb 2005, 19:53
Gelezun Kombinierte Abfrage (Datensatz mit neuestem Datum)
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz einfügen 4 Gast 1050 31. Dez 2004, 18:11
mapet Datensatz einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage soll nur jeweils ersten Datensatz liefern (Group By? 2 MichaelN 2552 28. Dez 2004, 15:06
MichaelN Abfrage soll nur jeweils ersten Datensatz liefern (Group By?
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz löschen und die anderen neu durchnummerieren 16 brauchehilfe@office 5626 20. Okt 2004, 15:34
Willi Wipp Datensatz löschen und die anderen neu durchnummerieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datum abfragen bericht anzeigen // Artikel usw. suchen 2 mr@ 1259 10. Okt 2004, 20:03
mr@ Datum abfragen bericht anzeigen // Artikel usw. suchen
Keine neuen Beiträge Access Tabellen & Abfragen: bestimmte(n) Datensatz in abfrage ausschließen 2 Lene 3641 02. Sep 2004, 15:39
borstel bestimmte(n) Datensatz in abfrage ausschließen
Keine neuen Beiträge Access Tabellen & Abfragen: Anzeigen von Beziehungen 3 tine 619 02. Sep 2004, 13:34
TommyK Anzeigen von Beziehungen
Keine neuen Beiträge Access Tabellen & Abfragen: CurrentUser() in neuen Datensatz eintragen 2 mafke 924 16. Aug 2004, 15:49
mafke CurrentUser() in neuen Datensatz eintragen
Keine neuen Beiträge Access Tabellen & Abfragen: Kein neuer Datensatz möglich durch Verknüpfung 0 cengin 632 12. Aug 2004, 09:56
cengin Kein neuer Datensatz möglich durch Verknüpfung
Keine neuen Beiträge Access Tabellen & Abfragen: bestimmte Spalten anzeigen 4 pm 1223 29. März 2004, 21:19
pm bestimmte Spalten anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Ergebnis einer Abfrage mit VBA im Formularfeld anzeigen 2 AlGol61 1020 29. März 2004, 16:02
AlGol61 Ergebnis einer Abfrage mit VBA im Formularfeld anzeigen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum