Hallo,
Ich versuche gerade herauszufinden, wie ich mit Hilfe von Recordset einen bestimmten Datensatz auswähle, eine Eingabe machen lasse (Nachname z.B.) und diesen in dem Recordset suchen lasse.
Ich verstehe das allgemeine Vorgehen noch nicht, wenn ich eine Datenbank offen habe, wie starte ich den code?
Ich habe eine mdb, die "Kontaktpersonen" heisst, darin will ich den Nachnamen suchen lassen, wenn er gefunden wird, dann "Wurde gefunden", wenn nicht, "bitte noch mal versuche" , so ungefähr.
Mein Code...
Dim dbs As DAO.database
Dim rst As DAO.Recordset
Dim Suche As String
Dim Ausgabe As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tbl.Nachname", dbOpenTable)
rst.Index = "Nachname"
EnterNachname:
Suche = InputBox("Bitte geben Sie einen Nachnamen ein!", "Suche Nachname", "Nachname")
rst.Seek "=", Suche
If rst.NoMatch = True Then
Ausgabe = "Sorry, wir konnten " & Eingabe & " nicht finden; please try again"
MsgBox Ausgabe, vbCritical + vbOKOnly
GoTo EnterNachname
Else
Ausgabe = "The first ID for " & strValue & " is " & rst![Nachname]
MsgBox Ausgabe, vbOKOnly + vbInformation
End If
End Sub
Vielleicht kann jmd helfen?!
es funktioniert nämlich nicht Wie müsste es aussehen, wenn ich statt eines Tables ein Form als Grundlage hätte?!
Vielen Dank im Voraus!
Gruß
Ich versuche gerade herauszufinden, wie ich mit Hilfe von Recordset einen bestimmten Datensatz auswähle, eine Eingabe machen lasse (Nachname z.B.) und diesen in dem Recordset suchen lasse.
Ich verstehe das allgemeine Vorgehen noch nicht, wenn ich eine Datenbank offen habe, wie starte ich den code?
Ich habe eine mdb, die "Kontaktpersonen" heisst, darin will ich den Nachnamen suchen lassen, wenn er gefunden wird, dann "Wurde gefunden", wenn nicht, "bitte noch mal versuche" , so ungefähr.
Mein Code...
Dim dbs As DAO.database
Dim rst As DAO.Recordset
Dim Suche As String
Dim Ausgabe As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tbl.Nachname", dbOpenTable)
rst.Index = "Nachname"
EnterNachname:
Suche = InputBox("Bitte geben Sie einen Nachnamen ein!", "Suche Nachname", "Nachname")
rst.Seek "=", Suche
If rst.NoMatch = True Then
Ausgabe = "Sorry, wir konnten " & Eingabe & " nicht finden; please try again"
MsgBox Ausgabe, vbCritical + vbOKOnly
GoTo EnterNachname
Else
Ausgabe = "The first ID for " & strValue & " is " & rst![Nachname]
MsgBox Ausgabe, vbOKOnly + vbInformation
End If
End Sub
Vielleicht kann jmd helfen?!
es funktioniert nämlich nicht Wie müsste es aussehen, wenn ich statt eines Tables ein Form als Grundlage hätte?!Vielen Dank im Voraus!
Gruß
