ORng.Text = ListBox1.List(ListBox1. ListBox1.List(i, 2) = myActiveRecord.Fields("Employee ID") I used the following website for code template. ListBox1.List(i, 1) = myActiveRecord.Fields("Employee DOB") I'm trying to populate a combo box or drop down list from an access database. ListBox1.List(i, 0) = myActiveRecord.Fields("Employee Name") AddItem method to add a new row for each record 'Loop through all the records in the table until the EOF marker is reached. Set myActiveRecord = myDataBase.OpenRecordset("Table1", dbOpenForwardOnly) Set myDataBase = OpenDatabase("D:\Data Stores\sourceAccess.mdb") 'Requires a reference to the '"Microsoft DAO 3.51 (or 3.6) Object Library." See the code below set a reference to DAO and make a couple minor tweaks to suit your needs. Rst.Open "SELECT DISTINCT TOP 25 FROM Equipment_List ORDER BY ", _
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "Error!"Ĭode that almost works: Private Sub Document_Open()Ĭnn.Open "Provider=.12.0 Data Source=*removed for post* " With ActiveDocument.FormFields("Equipment").DropDown.ListEntries Rst.Open "SELECT DISTINCT TOP 25 FROM tblEquipment ORDER BY ", _ Now, you can view the Developer tab in the Ribbon. On the dialog box, under the category Popular (see on the left hand side), select the option Developer tab in the Ribbon.
Click the Word Options button from the bottom of the list. To enable the Developer tab (Word 2007) 1. I keep getting the error: 5941 The requested member of the collection does not exist"Ĭnn.Open "Provider=.12.0 Data Source=*path to database removed for post* " If you are unable to find this tab in the Ribbon, most likely you need to enable this using the Word Options dialog box. I'm trying to populate a combo box or drop down list from an access database.
0 kommentar(er)
