Hi
Just wondering is there a way of getting the data from an access database and adding to a combobox
Thanks
Printable View
Hi
Just wondering is there a way of getting the data from an access database and adding to a combobox
Thanks
------------------Code:Dim rsReleasesRecords As Recordset
Dim nIndex As Integer
On Error GoTo ErrorRoutine
Set rsReleasesRecords = gdbRWTS.OpenRecordset _
("Select * From Releases where Xpressions = True order by DisplayOrder", dbOpenSnapshot)
Do Until rsReleasesRecords.EOF
frmMain.cboRelease(dispBasicInfoAsIsX).AddItem rsReleasesRecords!ReleaseNumber
rsReleasesRecords.MoveNext
Loop
rsReleasesRecords.Close
frmMain.cboRelease(dispBasicInfoAsIsX).ListIndex = g_Def.Default(177)
ErrorRoutine:
If Err.Number <> 0 Then g_Err.DisplayError "LoadReleasesX"
Marty