Hallo Leute,
wie kann ich über eine Inputbox einen gewissen Datensatz suchen lassen.
Aktuell öffne ich mein Formular und bin beim ersten Datensatz. Da aber über einen anderen Button, bestimmte Datensätze angezeigt werden, die ein bestimmtes Kriterium erfüllen und ich deren ID kenne, möchte ich zu bestimmten ID´s springen. Am Besten eben über eine Inputbox!
Das Suchfeld heißt Auftragsnr_ID.
Vielen Dank schon einmal für eure Hilfe!!!
Hallo,
erstelle ein Kombinationsfeld mit dem Assistenten. Eine der möglichen Optionen für das Kombi ist das Suchen. Eine Inputbox ist zu unflexibel.
Hat funktioniert, aber dann muss ich ja wieder die ID händisch auswählen.
ich würde gern auf einen Button klicken, dann die ID eingeben und dann hüpft er zum datensatz....
Hallo,
den Wechsel zwischen Button-Klick und Tastatureingabe halte ich für unergonomisch und somit wenig erstrebenswert. Auch möchte ich nicht alle IDs im Kopf haben müssen, die es gibt.
Mit dem Kombifeld kannst du alles mit einer Klick&Scroll-Aktion erledigen. :)
Hallo,
und mit einer Inputbox musst Du die ID nicht händisch eingeben ?
Schreibt die sich alleine in das Feld?
Hallo!
Versuch mal so, aber ich kann dir auch sage da wirst auf dauer nicht allein mit glücklich
ich benütze den button um die id einzugeben und öffne dann damit das formular um zum datensatz zu springen
sozusagen als schnellstart aber nur weil ich zur plannung die id´s in gedruckten berichten hab oder als zusatz zu einem eingabe textfeld das eine list oder kombibox mit like filtert
Gruß Frank
Dim varID As Variant
Dim varBookmark As Variant
On Error GoTo Err_ErrHandler
If fncPruefen Then
With Me.Recordset
varBookmark = .Bookmark
varID = InputBox("Bitte geben Sie eine Veranstalter ID ein", "Veranstalter Suche")
Select Case varID
Case IsNumeric(varID) = True
.FindFirst "Veranstalter_ID = " & varID
If .NoMatch Then
.Bookmark = varBookmark
MsgBox "Die Veranstalter ID ist nicht vorhanden!", vbInformation Or vbOKOnly, "nicht Vorhanden!"
End If
Case ""
Exit Sub
Case Else
MsgBox "Die Eingabe ist keine gültige Zahl !"
End Select
End With
End If
Exit_ErrHandler:
Exit Sub
Err_ErrHandler:
Select Case Err.Number
Case 3077 'Fängt die eingabe von z.B. 10,7 oder 10+
MsgBox "Die Eingabe ist keine gültige Zahl !"
Resume Exit_ErrHandler
Case Else
Resume Exit_ErrHandler
End Select