Combobox Rowsource

[kirke]

HI all.
I write vba code for combo box.

formCombo.CmbDate.RowSource = "SELECT DISTINCT pp FROM SS ORDER BY
pp;"

but it doesn't work!
In here, pp is the column name and SS is sheet name. Is it wrong? I put
this code in "UserForm_Initialize"
And there's error on "formCombo.Show"
Thank you!

 

[Doug Robbins - Word MVP]

If this is a userform in Excel, it would be better to post to
microsoft.public.excel.programming

The following routine will load a listbox (or combobox) with data from a
table in Access if it helps

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

 

[kirke]

Thx, I didn't notice that this is "word" vba. Sorry and thx again.