Über inputbox suchen

[lutschi83]

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!!!

[MzKlMu]

Hallo,
erstelle ein Kombinationsfeld mit dem Assistenten. Eine der möglichen Optionen für das Kombi ist das Suchen. Eine Inputbox ist zu unflexibel.

[lutschi83]

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....

[MaggieMay]

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.

[MzKlMu]

Hallo,
und mit einer Inputbox musst Du die ID nicht händisch eingeben ?
Schreibt die sich alleine in das Feld?

[Frank77]

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

Code [Auswählen] Erweitern

   
    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