Formulardatensatz finden

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,

ich habe ein Formular, in welchem Gerätedaten angezeigt werden. Hier sollen auch Zählerstände aktualisiert bzw eingetragen werden.

Der eindeutige Schlüssel ist die Gerätenummer.

Nun möchte ich in einem ungebundenen Textfeld das ich mal GotoG benenne, die Gerätenummer eingeben und in dem Feld Gerätenummer die Nummer finden und anzeigen lassen, so das ich hier die Daten dazu eingeben kann. Das ganze soll passieren wenn das Feld GotoG den Fokus verliert.

Wer kann mir sagen wie hier ein einfacher VBA-Code aussehen muss?

Folgende Eckdaten: Betriebssystem XP, Access 2003.

Vielen Dank im Voraus.

Grüsse

Danils

#2

Moin, Danils,

mach ein Kombinationsfeld draus, dann kannst Du die Nummer bequem suchen. Eintippen der ersten Ziffern zieht die Liste auf die Position.

Gruß Ralf

#3

Hallo,

erstmal vielen Dank für die Antwort. Diese Option ist mir bekannt, nur ich habe das Problem das diese nicht gewünscht wird :smile:. Ich muss mich hier leider an diese Vorgabe halten, da dies von den Bearbeitern so gewünscht wird.

Aber trotzdem nochmal danke.

Gruss

Danils

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Lösung gefunden.
Private Sub GotoG_LostFocus()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst „[Gerätenummer] = '“ & Me![GotoG] & „’“
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Hiermit funktioniert es… :smile:

#5

Hi Danils,

zum Ereignis Suchfeld_LoseFocus hinterlegst Du

Sub Suchfeld\_LoseFocus()
 ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
 Me.RecordsetClone.FindFirst "[Mitglied] = " & Me![Suchfeld]
 Me.Bookmark = Me.RecordsetClone.Bookmark
 ' Suchfeld leeren (muss nicht sein!)
 Me![Suchfeld] = ""
End Sub

Für [Mitglied] setzt Du die Gerätenummer ein.

Anmerkung: Das mit dem LoseFocus kommt mir irgendwie komisch vor - der wird auch ausgelöst, wenn der Anwender gar nichts eingetragen hat, also einfach mit dem Tabulator drüberhoppelt. Aber der Kunde ist König :smile:

Gruß Ralf