Vanuit het tekenprogramma Inventor (beschikt over VBA 6.3) haal ik data uit een access database.
Nu heb ik 1 tabel met projecten en 1 met de status van de projecten. De tabel "Status" heeft 2 kolommen: kolom 1 bevat een nummer en kolom 2 de omschrijving. Nu heb ik een combobox gemaakt waarin ik de status kan veranderen en wegschrijven naar de tabel "Projecten". De waardes haalt de combobox uit de tabel "Status".
Wat me niet lukt is om in de combobox 2 kolommen weer te geven met het nummer en de omschrijving. Ik wil dan de kolombreedte van het nummer op "0" zetten zodat ik alleen de omschrijving zie. Het nummer wordt dan uiteindelijk weggeschreven naar de tabel "Projecten".
BoundColumn staat op 1 en ColumnCount op 2.
Mijn vraag is nu hoe ik meerder kolommen weer kan geven in een combobox.
Dit is de code die ik gebruik om de combobox te vullen:
---------------------------------------
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSQLprojecten As String
Set dbs = OpenDatabase(Settings.TBox_database.Value)
strSQLprojecten = "Select Nummer, Omschrijving FROM Status;"
Debug.Print strSQLprojecten
Set rst = dbs.OpenRecordset(strSQLprojecten)
Do While Not rst.EOF
CBox_status.AddItem rst("Nummer")
rst.MoveNext
Loop
----------------------------------------
Nu heb ik 1 tabel met projecten en 1 met de status van de projecten. De tabel "Status" heeft 2 kolommen: kolom 1 bevat een nummer en kolom 2 de omschrijving. Nu heb ik een combobox gemaakt waarin ik de status kan veranderen en wegschrijven naar de tabel "Projecten". De waardes haalt de combobox uit de tabel "Status".
Wat me niet lukt is om in de combobox 2 kolommen weer te geven met het nummer en de omschrijving. Ik wil dan de kolombreedte van het nummer op "0" zetten zodat ik alleen de omschrijving zie. Het nummer wordt dan uiteindelijk weggeschreven naar de tabel "Projecten".
BoundColumn staat op 1 en ColumnCount op 2.
Mijn vraag is nu hoe ik meerder kolommen weer kan geven in een combobox.
Dit is de code die ik gebruik om de combobox te vullen:
---------------------------------------
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSQLprojecten As String
Set dbs = OpenDatabase(Settings.TBox_database.Value)
strSQLprojecten = "Select Nummer, Omschrijving FROM Status;"
Debug.Print strSQLprojecten
Set rst = dbs.OpenRecordset(strSQLprojecten)
Do While Not rst.EOF
CBox_status.AddItem rst("Nummer")
rst.MoveNext
Loop
----------------------------------------