Populate a combo box

[FredEp57]

I have read here in the groups that a combo box can be populated. However, I
am a very novice with VBA and cannot find any information on this.

I would like to have this done from a table in an Access database. Is this
possible? What would the code look like?

Thanks
F

 

[Jay Freedman]

I have read here in the groups that a combo box can be populated.
However, I am a very novice with VBA and cannot find any information
on this.

I would like to have this done from a table in an Access database.
Is this possible? What would the code look like?

Thanks
F

Look at Listing 3 in
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnword2k2/html/odc_activeX.asp
for a sample.

 

[Doug Robbins]

The following will also work for a combo box. You will need a reference
(Tools>References) in the VBE to the Microsoft DAO 3.# object library.

Private Sub UserForm_Initialize()

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim NoOfRecords As Long

' Open the database

Set db = OpenDatabase("D:\Access\ResidencesXP.mdb")

' Retrieve the recordset

Set rs = db.OpenRecordset("SELECT * FROM Owners")

' Determine the number of retrieved records

With rs

.MoveLast

NoOfRecords = .RecordCount

.MoveFirst

End With

' Set the number of Columns = number of Fields in recordset

ListBox1.ColumnCount = rs.Fields.Count

' Load the ListBox with the retrieved records

ListBox1.Column = rs.GetRows(NoOfRecords)

' Cleanup

rs.Close

db.Close

Set rs = Nothing

Set db = Nothing

End Sub


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP