Problem with button....

[zach007]

Dear Experts,

I use ADO for database...and part of it I make codes likr this:

Private Sub cmdPrev_Click()
    If Not (rst.BOF = True) Then
        rst.MovePrevious 'move previous record
        fillfields 'fill the controls
    End If
    
    Application.ScreenRefresh
End Sub
 
Private Sub cmdNext_Click()
    If Not (rst.EOF = True) Then
        rst.MoveNext 'move to next record
        fillfields 'fill the controls
    End If
    Application.ScreenRefresh
End Sub

Why I have to click "Previous" or "Next" twice in order to get the next/previous record..???...how to make it only one click on this button "Previous/Next" to get the next/previous record...please...is there any missed/wrong in my codes...????

Please help me...

Jennifer

[mendhak]

Show the code for FillFields().

[zach007]

Thanks for your reply...

Here is the code:

Public Sub fillfields()
    If Not (rst.BOF = True Or rst.EOF = True) Then 'Checks if we are at the first or last record. This is use a lot.
        TextBox1.Text = rst.Fields("Item_Code") 'text1 = field2 and display that data
        TextBox2.Text = rst.Fields("Description") 'as above
        TextBox3.Text = rst.Fields("Qty") 'as above
        TextBox4.Text = rst.Fields("Unit_Price") 'as above
    Else
        MsgBox "Either you are at the first record or the last record.", vbExclamation, "Cannot Move"
    End If
End Sub

[mendhak]

Looks fine.

Can you past all your code now? I am not really sure why this would happen.

[zach007]

Hi,

Please find my attached file for your review....Beside Next and Previous Button..it also the same thing with "Update Quantity" on "Fill Invoice" tab...and also for "Check Current Stock" on "Update Item" tab...I dont know why..???

Please help me....