This code lists the data from a field in the combo Box
This code lists the data from a field in the combo Box
API Declarations
'Create a database with a Name "Database.mdb"
'make a field "Students" in the database. You can make others also
'in a form, draw a combo box and a command button
'draw a datacontrol in the form
Rate This code lists the data from a field in the combo Box
(1(1 Vote))
with data1
.databasename=App.path & "\database.mdb" 'or C:\database.mdb; path
.recordsource="Select Students From Database" ' or "Students"
.refresh
end with
end sub
Private Sub Form_Load()
on error resume next
Do Until data1.recordset.EOF
combo1.additem data1.recordset.fields("Students")
data1.recordset.movenext
loop
End Sub
This code lists the data from a field in the combo Box Comments
No comments yet — be the first to post one!
Post a Comment