-
Hi,
In the following code below, I am loading the UserID's from my database into a combo box when the initial form loads at startup.
'############################
Private Sub Form_Load()
Set db = OpenDatabase(App.Path + "\" + "test.mdb")
Set rs = db.OpenRecordset("Users")
rs.MoveFirst
Do Until rs.EOF
cmbUsers.AddItem rs.Fields("UserID")
rs.MoveNext
Loop
db.Close
End Sub
'############################
My first question is...
How can I go ahead and load the form if the database is empty?
My second question is...
When I distribute my program, will I need to include the DAO360.DLL also?
Thanks a lot,
Ron
-
1) It should load anyway. Only the combo box won't have anything in it.
2) Make a setup package with the Package and Deployment Wizard. This will automatically include any files your app needs to work properly.
-
Hey chrisjk,
I get the following when I try to run it empty...
Run-time error '3021':
No current record.
Any Suggestions?
Thanks,
Ron
-
I think I've spotted why. It's moving the record to the first, but can't because there are no records. Try this:
Code:
Dim intRecordCount As Long
intRecordCount=rs.RecordCount
If intRecordCount => 1 Then
rs.MoveFirst
Do Until rs.EOF
cmbUsers.AddItem rs.Fields("UserID")
rs.MoveNext
Loop
End If
Hopefully that works!
-
Hey chrisjk,
That did it! I sure do appreciate your help.
Have a good one, and thanks again,
Ron
-
