Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Combobox zweispaltig mit Werten aus Datenbanktabelle fuellen
Autor: Felix13
Datum: 03.07.03 10:38
Hallo, ich habe folgendes Problem. In einer Userform sollen div. Comboboxen mit Werten aus einer Datenbanktabelle gefuellt werden. Das dieser Liste wird dann vom User der passende Wert ausgewaehlt und auf finalen Knopfdruck in einer anderen Datenbanktabelle abgelegt. Die DB-Tabelle, mit der die Combobox gefuellt werden soll, ist zweispaltig. Zum einen die Werte, die vom User in der Combobox so sehen sein sollen, zum anderen ist jedem dieser Werte eine Indexnr zugeordnet. Diese soll dann per Commandbutton in die andere Datenbanktabelle gespeichert werden. Private Sub UserForm_Initialize() Dim DB As Database Dim Rs1, Rs3, Rs4 As Recordset Dim x%, y%, z% Set DB = DBEngine.OpenDatabase("c:\daten\section audit.MDB", False, False, ";pwd=") 'Position List input into posboxes For x = 1 To 8 <------------- Ich hab 8 gleichfoermige Comboboxen Set Rs1 = DB.OpenRecordset("Position") SectionAudit.Controls("posBox" & x).Clear SectionAudit.Controls("posBox" & x).ColumnCount = 2 If Rs1.RecordCount > 0 Then While Not Rs1.EOF SectionAudit.Controls("posBox" & x).AddItem Rs1.Fields("Position").Value <---- WIE KANN ICH HIER DIE 2TE SPALTE DER DB-TABELLE EINFUEGEN (FIELDS("POSNR")) Rs1.MoveNext Wend End If Rs1.Close SectionAudit.Controls("posbox" & x).MatchRequired = True Next x . . . . . Private Sub CommandButton1_Click() Dim lc As Integer Dim g%, h%, I% 'Reading data from all comboboxes and writing it into database Dim DB As Database Dim Rs2 As Recordset Set DB = DBEngine.OpenDatabase("c:\daten\section audit.MDB", False, False, ";pwd=") 'Open data table Set Rs2 = DB.OpenRecordset("Section Audit", dbOpenDynaset) With Rs2 For g = 1 To 5 h = 1 .AddNew !Typ = SectionAudit.typBox.Text !IGEF = SectionAudit.IGEFBox.Text !Date = SectionAudit.DateBox.Text !PosNr = SectionAudit.Controls("posBox" & h).Text <--- COMBOBOX WIRD AUSGELESEN UND WEGGESPEICHERT (IM MOMENT NOCH DER TEXT, ICH WILL ABER DIE INDEXNR WEGSPEICHERN) !FaultNr = SectionAudit.Controls("faultBox" & g).Text !Score = SectionAudit.Controls("scorebox" & g).Text !Owner = SectionAudit.Controls("OwnerBox" & g).Text .Update Next g Fuer jeglichen Input waere ich sehr dankbar. MfG Felix

Combobox zweispaltig mit Werten aus Datenbanktabelle fuellen	178	Felix13	03.07.03 10:38
Re: Combobox zweispaltig mit Werten aus Datenbanktabelle fue...	671	Dieter	03.07.03 11:16
Re: Combobox zweispaltig mit Werten aus Datenbanktabelle fue...	82	Felix13	03.07.03 11:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen