So Bearbeiten Sie Datensätze aus einem VBA-Formular, dass Sie möchten, um interaktiv auswählen?

Nur um den mix, ich würde bieten zwei Ansätze, einen empfohlen, der andere nicht.

Ansatz 1: Wenn Sie schon gebunden, Ihre form, um die gesamten Daten Tabelle (das ist die nicht-empfohlene Vorgehensweise), können Sie mit dem Kombinationsfeld-Assistenten zu navigieren, um den angeforderten Datensatz, aber ich würde nicht empfehlen es in den letzten Versionen von Access:

ein. es nicht zulässt, dass Sie den richtigen Namen der combo-box, bevor Sie es schafft, die code.

b. der code ist einfach FALSCH.

Hier der code, den ich produzierte gerade in meiner test-Datenbank:

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[InventoryID] = " & Str(Nz(Me![Combo2], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Das ist falsch in so vieler Hinsicht, es ist einfach nur bemerkenswert. Dies ist, was der code sollte sein:

With Me.RecordsetClone
  .FindFirst "[ID]=" & Me!cmbMyComboBox
  If Not .NoMatch Then
     If Me.Dirty Then Me.Dirty = False
     Me.Bookmark = .Bookmark
  Else
     MsgBox "Not Found!"
  End If
End With

Gibt es keine Notwendigkeit zu Klonen, der Datensatzgruppe des Formulars, wenn die RecordsetClone bereits vorhanden ist.

Es gibt keinen Grund, eine object-variable verwenden, wenn Sie können einfach direkt verwenden, um die bereits bestehenden Objekt.

Muss es einen check für ein schmutziges Datensatz vor dem verlassen des Datensatzes, weil, wenn Sie nicht zwingen, die speichern, Fehler in der save-Vorgang kann dazu führen, verlorene Daten.

Aber die bessere Methode ist diese:

Methode 2: Verwenden Sie die combo-box zu ändern, die form der zugrunde liegenden Datenherkunft.

Dem AfterUpdate-Ereignis deines Kombinationsfeldes würde wie folgt Aussehen:

If Not IsNull(Me!cmbMyComboBox) Then
   Me.Recordsource = Me.Recordsource & " WHERE [ID]=" & Me!cmbMyComboBox
End If

Nun, das funktioniert nur die erste Zeit, als auf dem zweiten zurücksetzen der Datenherkunft, Sie am Ende mit zwei WHERE-Klauseln, die ist nicht gut. Es gibt zwei Ansätze:

ein. unter der Annahme, dass das Formular geöffnet wird, ohne eine WHERE-Klausel, die Shop-Eröffnung recordsource-Wert in einer Variablen auf Modulebene in form OnLoad-Ereignis:

   Private Sub Form_Load()
     strRecordsource = Left(Me.Recordsource,Len(Me.Recordsource)-1)
   End Sub

Und auf der Modul-Ebene, definieren strRecordsource entsprechend:

   Dim strRecordsource As String

Dann in der combo-box AfterUpdate-Ereignis, haben Sie dieses anstatt:

   Me.Recordsource = strRecordsource & " WHERE [ID]=" & Me!cmbMyComboBox

Nun, wenn Ihr Formular beginnt mit einer WHERE-Klausel bereits definiert ist, wird es mehr kompliziert, aber ich werde nicht in zu gehen, und lassen es als eine übung für den Leser, was der beste Ansatz sein könnte.

InformationsquelleAutor David-W-Fenton

Nach re-Lektüre Ihrer Frage, ich denke, ich sehe, was Sie versuchen zu erreichen. Du bist auf dem richtigen Weg mit GotoRecord, obwohl ich wahrscheinlich OpenForm in diesem Fall, weil es eine WhereCondition Eigenschaft, die erlaubt Ihnen die Verwendung von SQL, um genau anzugeben, welcher Datensatz zu öffnen. Es klingt wie Sie möchten, implementieren Sie eine "jump to record" - Typ-Funktionalität in Ihrem Formular, wo der Benutzer wählt einen Datensatz-ID aus einer Liste und die form ändert sich und zeigt die ausgewählte Aufzeichnung.

Eine Möglichkeit ist die Umstellung auf die neue Platte jedes mal, wenn der Benutzer wählt ein Element in der ComboBox. Man kann damit umgehen in dem Kombinationsfeld Click Veranstaltung.

Verwende ich ein einfaches Beispiel: angenommen, Sie haben eine Students Tisch, und ein StudentForm für das betrachten/Bearbeiten von Datensätzen in der Students Tabelle. Die StudentForm hat eine ComboBox cboStudentID gebunden ist, um die Students.ID Spalte über RowSource Eigenschaft. Wenn Sie eine student-ID in der ComboBox, die StudentsForm schaltet die Anzeige des entsprechenden student-Datensatz.

In der Click Ereignisprozedur für das Kombinationsfeld-Steuerelement, können Sie code, der diese "jump to record" - Funktion mit so etwas wie die folgenden:

Private Sub cboStudentID_Click() 
    Dim recordID As Long
    'The ItemData property will return the value of the bound'
    'column at the specified index.'
    recordID = cboStudentID.ItemData(cboStudentID.ListIndex)
    'Jump to the record. This assumes we want to use the same form.'
    'You can change the form name if you want to open a different form when'
    'the user selects an ID from the ComboBox.'
    DoCmd.OpenForm "StudentForm", WhereCondition:="Student.ID=" & recordID
End Sub

Als David W. Fenton weist in den Kommentaren, können Sie kürzen Sie die folgende Zeile:

recordID = cboStudentID.ItemData(cboStudentID.ListIndex)

:

recordID = Me!cboStudentID

oder einfach nur:

recordID = cboStudentID

da der default-Wert der ComboBox in diesem Fall wird der Wert der gebundenen Spalte in der aktuellen ListIndex. In diesem Fall können Sie einfach entfernen Sie recordID insgesamt und code der Click Ereignis wie folgt:

Private Sub cboStudentID_Click() 
    DoCmd.OpenForm "StudentForm", WhereCondition:="Student.ID=" & cboStudentID
End Sub

InformationsquelleAutor Mike Spross