Hallo,
Ich fülle Werte aus der DB (BE.mdb, Tabelle Test, Spalte Nummer) in die Combobox (Combo1), dass geht alles.
Zu jeder Spalte (Nummer) gehört ein fest hinterlegter Text aus einer Spalte (Text).
Wenn ich also aus der Combobox einen Wert (0815 oder 0190) auswähle, soll autom. der dazugehörige Text (Beispieltext 1 oder Beispietext 2) in einem label (Label1) und einem Textfeld (Text1) ausgegeben werden.
MDB = be.mdb
Tabelle = Test
Hier der Code:
Private Sub Form_Load()
With oConn
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=BE.mdb"
.Open
End With
SQL = "SELECT Nummer AS Menge FROM Test WHERE ID > 0"
Set rs = oConn.Execute(SQL)
Do Until rs.EOF
With Form1
.Combo1.AddItem rs.Fields("Menge")
End With
rs.MoveNext
Loop
????????????
???????????
??????????
rs.Close
oConn.Close
Set rs = Nothing
Set oConn = Nothing
End Sub
Kann mir bitte jemand helfe?
Ich fülle Werte aus der DB (BE.mdb, Tabelle Test, Spalte Nummer) in die Combobox (Combo1), dass geht alles.
Zu jeder Spalte (Nummer) gehört ein fest hinterlegter Text aus einer Spalte (Text).
Wenn ich also aus der Combobox einen Wert (0815 oder 0190) auswähle, soll autom. der dazugehörige Text (Beispieltext 1 oder Beispietext 2) in einem label (Label1) und einem Textfeld (Text1) ausgegeben werden.
MDB = be.mdb
Tabelle = Test
Hier der Code:
Private Sub Form_Load()
With oConn
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=BE.mdb"
.Open
End With
SQL = "SELECT Nummer AS Menge FROM Test WHERE ID > 0"
Set rs = oConn.Execute(SQL)
Do Until rs.EOF
With Form1
.Combo1.AddItem rs.Fields("Menge")
End With
rs.MoveNext
Loop
????????????
???????????
??????????
rs.Close
oConn.Close
Set rs = Nothing
Set oConn = Nothing
End Sub
Kann mir bitte jemand helfe?
