Im using listbox with style = 1-checkbox. "project.mdb" is the database name "goods" is the table name.
"tabno" and "tabid" are fields in the table.
dim d as database
dim table as recordset
dim b as integer
dim c as integer
Private Sub Form_Load()
Set d = OpenDatabase(App.Path & "\" & "project.mdb")
Set table = d.OpenRecordset("goods")
table.MoveLast
c = table!tabno
table.MoveFirst
b = table!tabno
Do While (b < c + 1)
List1.AddItem (table!tabid)
table.MoveNext
b = b + 1
Loop
End Sub
what I want is,when running application if I check any checkbox and click command button,then the tabid and tabno related to selected check box should desplay in a textbox.
hope any help..thank you