Hallo,
ich habe ein Problem und bin schon seit Tagen in verschiedenen Foren unterwegs und finde aber nix.
Ich habe mit VBA und Access ein Formular erstellt, dahinter liegen 2 Tabellen und eine Abfrage. Dazu gibt es mehrere Textfelder und Comboboxen.
Die eine Combobox soll als Suchfeld dienen.
Aufbau Tabelle:
ID KatID Anbieter usw...
1 1 Anbieter1
2 1 Anbieter2
3 2 Anbieter3
Ich habe eine Combobox mit "Anbieter" und das soll mein Suchfeld sein.
Wähle ich in der Combobox "Anbieter2" aus, dann schreibt er mir in die Tabelle bei "Anbieter1" in "Anbieter" eine "2".
Wähle ich in der Combobox "Anbieter 3" aus, dann hat "Anbieter2" in "Anbieter" die Zahl "3" stehen. Er überschreibt also jedesmal den Wert in der Combobox und schreibt dann die ID des vorher angeklickten hinein.
Die restlichen Daten werden korrekt angezeigt und auch nicht verändert! Habe nur das Problem mit der Combobox.
Code:
Set rst = Me.RecordsetClone
strSearchName = Str(Me!cboSuchen)
rst.FindFirst "ID = " & strSearchName
If rst.NoMatch Then
MsgBox "Nicht gefunden"
Else
Me.Bookmark = rst.Bookmark
-- mehr Code
'Me!cboSuchen.Undo -> hat keine Auswirkung, um das zu verhindern.
End If
rst.Close
Refresh
Exit Sub
Hat jemand eine Idee woran das liegen könnte? Ich habe schon mehrere Formulare erstellt und irgendwie immer denselben Fehler.
|