Office: (Office 2010) Datensatz prüfen ob bereits vorhanden mit Anzeigen des Datensatzes

Der_Student · 15. Januar 2015

Hallo Zusammen,

ich habe in meiner Datenbank eine Tabelle, welche meine Daten enthält (ID, Kontonummer, Vorname, Nachname, Ja/Nein-Feld1, Ja/Nein-Feld2). Für die Dateneingabe verwende ich ein Formular. Bei der Eingabe von den Daten soll sofort überprüft werden, ob bereits ein Datensatz mit der gleichen Kontonummer vorhanden ist.

Sollte dies der Fall sein, dann soll der entsprechende Datensatz mit der eingegebenen Kontonummer in dem Formular angezeigt werden und veränderbar sein.

Die Prüfung der Kontonummer habe ich bereits selber mit einer Funktion gelöst. Die Funktion CheckKonto() wird vor dem Aktualisieren des Feldes "Kontonummer" ausgeführt. Leider bekomme ich es nicht hin danach den entsprechenden Datensatz in das Formular zu laden.

Ich bekomme immer den Laufzeitfehler 2501, "Die Aktion OpenForm wurde abgebrochen"

Das ist mein Code

Code:

Function CheckKonto()
If Not IsNull(DLookup("Kontonummer", "Lizenzen", "Kontonummer = " & Str([Forms]![LizenzenEintragen]![Kontonummer]))) And [Forms]![LizenzenEintragen]![Kontonummer] Nz([Forms]![LizenzenEintragen]![Kontonummer].OldValue) Then
MsgBox "JA"
DoCmd.OpenForm "LizenzenEintragen", , , "Kontonummer = " & [Forms]![LizenzenEintragen]![Kontonummer]

End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich wäre sehr dankbar, wenn jemand einen Hinweis für mich hat, wie ich den Fehler vermeiden kann bzw. die Funktion zum Laufen bringe.

Vielen Dank!

:)

Lanz Rudolf · 16. Januar 2015

Hallo
möglich das Dlookup was für dich sein könnte
lies in der OH(Onlienhilfe zu Dlookup
oder in meiner Doc s. Fusszeile unten Rechts
auf Seite 110
5.5.9 DLookUp um die Existenz eines Datensatzes zu prüfen

Mit der DLookup-Funktion können Sie den Wert eines bestimmten Feldes aus einer bestimmten Datensatzgruppe (einer
Domäne) abrufen. Verwenden Sie die DLookup-Funktion in Visual Basic, einem Makro, einem Abfrageausdruck oder einem
berechneten Steuerelement in einem Formular oder Bericht.
Mit der DLookup-Funktion können Sie einen Wert eines Feldes anzeigen, das sich nicht in der Datenquelle Ihres Formulars
oder Berichts befindet. Angenommen, Sie haben ein Formular auf der Basis der Tabelle Bestelldetails. Das Formular zeigt
die Felder Bestell-Nr, Artikel-Nr, Einzelpreis und Rabatt an. Das Feld Artikelname befindet sich jedoch in einer anderen
Tabelle, der Tabelle Artikel. Mit der DLookup-Funktion können Sie jetzt im gleichen Formular in einem berechneten
Steuerelement den Artikelnamen anzeigen.
Wenn Dlookup nichts findet gibt die Funktion NULL zurück
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Muster:
Code:

Private Sub Benutzer_NotInList(NewData As String)
Dim dbU As DAO.Database, rsU As DAO.Recordset
If IsNull(DLookup("Benutzer", "TBLBenutzer", "Benutzer = " & Chr$(34) & NewData & Chr$(34))) Then
If MsgBox("BENUTZER nicht in der Liste, Neu aufnehmen?", vbYesNo) = vbYes Then
Set dbU = DBEngine(0)(0) ‘ oder CurrentDb
Set rsU = dbU.OpenRecordset("TBLBenutzer", dbOpenDynaset)
rsU.AddNew
rsU![Benutzer] = NewData
rsU.Update
If Not rsU Is Nothing Then rsU.Close: Set rsU= Nothing
If Not dbU Is Nothing Then Set dbU = Nothing
Me![Benutzer].SetFocus
Me![Benutzer] = NewData
Else ' z.B. bei Tippfehler
Benutzer.Undo
End If
Else
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und Seite 111
5.5.10 XDLookup (ersatz von DLookup)

5.5.11 Mehrere Rückgabe-Felder mit (DLookup) XDLookup

maikek · 17. Januar 2015

Moin,
du befindest dich doch im Formular "Lizenzeneintragen", also ist es bereits geöffnet, oder?
Lass dir den Datensatz per FindFirst anzeigen oder filtere das Formular.
maike

Der_Student · 18. Januar 2015

Vielen Dank für Eure Hinweise! Hab das jetzt mit einem ungebundenen Formular und Recordset gelöst.

maikek · 18. Januar 2015

Warum nicht einfach:

entweder Code befindet sich nicht in Formular Lizenzeneintragen (dieses muss aber geöffnet sein!):
Code:

Private Sub CheckKonto()
If Not IsNull(DLookup("Kontonummer", "Lizenzen", "Kontonummer = " & Forms!Lizenzeneintragen!Kontonummer) And Forms!Lizenzeneintragen!Kontonummer Nz(Forms!Lizenzeneintragen!Kontonummer.OldValue) Then
MsgBox "JA"
Forms!Lizenzeneintragen.Filter = "Kontonummer = " & Me!Kontonummer
Forms!Lizenzeneintragen.FilterOn = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder Code und Kontonummer-Feld befinden sich in Formular Lizenzeneintragen:
Code:

Private Sub CheckKonto()
If Not IsNull(DLookup("Kontonummer", "Lizenzen", "Kontonummer = " & Me!Kontonummer) And Me!Kontonummer Nz(Me!Kontonummer.OldValue) Then
MsgBox "JA"
Me.Filter = "Kontonummer = " & Me!Kontonummer
Me.FilterOn = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

Office: (Office 2010) Datensatz prüfen ob bereits vorhanden mit Anzeigen des Datensatzes

Datensatz prüfen ob bereits vorhanden mit Anzeigen des Datensatzes

Datensatz prüfen ob bereits vorhanden mit Anzeigen des Datensatzes

Datensatz prüfen ob bereits vorhanden mit Anzeigen des Datensatzes

Datensatz prüfen ob bereits vorhanden mit Anzeigen des Datensatzes - Similar Threads - Datensatz prüfen vorhanden

Makro für variable Anzahl von Datensätzen

VBA - Datensätze ans Ende einer anderen Tabelle kopieren

Currentdb.Execute delete löscht alle Datensätze trotz Where Bedingung

vor dem Kopieren auf doppelte Datensätze prüfen!!!

Prüfen ob Datensatz vorhanden

Prüfen, ob Datensatz schon vorhanden

Prüfen ob neuer Datensatz oder bestehender Datensatz