Display all records one by one by using rst.movenext

[talorababu]

Dear Sir

I have used below coding to display specific record from the database.
The problem is, when I click on command button, it is displaying only one record from the database. Though there are other records. I have tried a lot, please see my coding in below:

Dim rst As New ADODB.Recordset

Private Sub cmdshow_Click()
frmpurchaseqty.Visible = False
SSTab1.Visible = True
DBconnect
If rst.State = adStateOpen Then rst.Close
rst.Open "tblpurchasesupplyqty", cnt, adOpenDynamic, adLockOptimistic
If Not rst.EOF Then rst.MoveNext
If cmbsupplier.Text = rst.Fields(5) And cmbitemref.Text = rst.Fields(6) And DTPicker1.Value = rst.Fields(3) Then
With rst
    frmpurchaseqty.cmbitem.Text = .Fields(0)
    frmpurchaseqty.cmbbrand.Text = .Fields(1)
    frmpurchaseqty.cmbpurchaseqty.Text = .Fields(2)
    frmpurchaseqty.purchasedt.Value = .Fields(3)
    frmpurchaseqty.cmbpurchaseqty.Text = .Fields(4)
    frmpurchaseqty.cmbsuppliername.Text = .Fields(5)
    frmpurchaseqty.cmbitemrefno.Text = .Fields(6)
    frmpurchaseqty.cmbsupplierrefno.Text = .Fields(7)
    'chkwarrenty.Value = .Fields(
    frmpurchaseqty.cmdwrrenty.Caption = .Fields(
    frmpurchaseqty.warrentyvoiddt.Value = .Fields(9)
End With
End If
End Sub

[Reno]

assuming you have successfully create the connection and rst object.
to iterate the recordset, pseudocode as below:

Code: [Select]

while not rst.eof
  msgbox rst.field(0)
  rst.movenext
wend

[talorababu]

Dear Sir

Thanks for your prompt response.

I have tried with your given code earlier but can't understand in which place I should place it.

Would you please let me know?

Regards
Pervez

[talorababu]

Dear Sir

I have done it. Thanks for your nice co-operation.


Regards
talorababu