dave_yd
New Member
Dear Chandoo,
I want to fill some data with criteria into Listbox, please click find tools beside Date in the sheet "Input Hauling". It will excecute find form.
I have already create syntax below, but it cannot run well
Do While Not rs.EOF
Listcari.AddItem rs.Fields(0)
Listcari.AddItem rs.Fields(1)
Listcari.List(I - 6, 0) = rs.Fields(0)
Listcari.List(I - 6, 1) = rs.Fields(1)
Listcari.List(I, 2) = rs.Fields(2)
Listcari.List(I, 3) = rs.Fields(3)
Listcari.List(I, 4) = rs.Fields(4)
Listcari.List(I, 5) = rs.Fields(5)
Listcari.List(I, 6) = rs.Fields(6)
Listcari.List(I, 7) = rs.Fields(7)
'rs.MoveNext
I = I + 1
Loop
Please help me to solve this
I want to fill some data with criteria into Listbox, please click find tools beside Date in the sheet "Input Hauling". It will excecute find form.
I have already create syntax below, but it cannot run well
Do While Not rs.EOF
Listcari.AddItem rs.Fields(0)
Listcari.AddItem rs.Fields(1)
Listcari.List(I - 6, 0) = rs.Fields(0)
Listcari.List(I - 6, 1) = rs.Fields(1)
Listcari.List(I, 2) = rs.Fields(2)
Listcari.List(I, 3) = rs.Fields(3)
Listcari.List(I, 4) = rs.Fields(4)
Listcari.List(I, 5) = rs.Fields(5)
Listcari.List(I, 6) = rs.Fields(6)
Listcari.List(I, 7) = rs.Fields(7)
'rs.MoveNext
I = I + 1
Loop
Please help me to solve this