[RESOLVED] How to set current date..??

[RobDog888]

No, you cant just do a .MoveNext without evaluating which record the recordset is on.

rst.MoveFirst
Do While rst.EOF = False
    If UserForm1.txtQty.Text = rst.Fields("Item_Code").Value Then
        Exit Do
    End f
    rst.MoveNext
Loop

[zach007]

Hi,

I did this codes and follow your codes...but still error:

Private Sub CommandButton3_Click()
 
 Dim con As ADODB.Connection
    Set con = New ADODB.Connection
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\exercise.mdb"
    
         rst.MoveFirst
Do While rst.EOF = False
    If UserForm1.txtqty.Text = rst.Fields("Item_Code").Value Then
        Exit Do
    End If
    rst.MoveNext
Loop
TextBox3.Text = rst.Fields("Qty")
        
    Application.ScreenRefresh
End Sub

and "TextBox3.Text = rst.Fields("Qty")" was in yellow highlighted...and error message like this: Run Time Error '3021' Either BOF is TRUE, or the current record has been deleted. Requested operation requires a current records.

Would you please correcr my codes...????..

Thank you so much....