Hallo ich habe eine Userform mit der mache ich in Access ein Update mit Folgendem Code
damit schreibe ich ja in die Datenbank
Nun würde ich aber gerne bei Starten der Userform diese ComboBox1 mit dem Wert füllen der in der Datenbank eingetragen ist.
Danke für eure Hilfe
Code:
Private Sub combobox1_Change()
Dim DB As DAO.Database
Dim tblTabelle As DAO.Recordset
Set DB = DAO.OpenDatabase("N:\Roentgen\Röntgensoftware\Data.mdb")
Set tblTabelle = DB.OpenRecordset("NDZustand", dbOpenTable)
With tblTabelle
.MoveFirst
.Index = "ID"
.Seek "=", "1"
.Edit
!NDZustand = ComboBox1.Value
.Update
End With
Set DB = Nothing
Set tblTabelle = Nothing
End Sub
damit schreibe ich ja in die Datenbank
Nun würde ich aber gerne bei Starten der Userform diese ComboBox1 mit dem Wert füllen der in der Datenbank eingetragen ist.
Danke für eure Hilfe