Need SQL for "Go to next record"

[securitywyrm]

I recognize that SQL doesn't have a 'Next record" but I have a "next record" button, how can I put in the SQL "Click that button?"



Yes I realize this is HORRIBLE coding. I do not have the time or knowledge to do it properly. It's part of a "If the list box is blank, go to next record" for a massive data entry thing.

So it's going to be something like

IF [CountOfListbox] <1
Then
SQL code to click next button

This will be in the 'on current' command. again, yes, this is terrible, terrible code. Please help.

Edit: Here is my current code, doesn't work.

Private Sub Form_Current()
Form.WorkplaceList.Requery
If [CountOfListbox] < 1 Then DoCmd.RunMacro "MacroNextRecord"
End Sub

It "Kinda" works. On the records with an empty list box it gives me "You can't go to that record." The macro I created is just "Go to next record"

[isladogs]

DoCmd.GoToRecord , , acNext

Other similar code includes:
DoCmd.GoToRecord , , acPrevious
DoCmd.GoToRecord , , acFirst
DoCmd.GoToRecord , , acLast

Access help will give you details of other options like moving to a specific record

[securitywyrm]

DoCmd.GoToRecord , , acNext

Other similar code includes:
DoCmd.GoToRecord , , acPrevious
DoCmd.GoToRecord , , acFirst
DoCmd.GoToRecord , , acLast

Access help will give you details of other options like moving to a specific record

It kinda works. It does properly skip over the records with a blank listbox, but now each time it gives the error "You can't go to the specified record."

I wish so badly I had time to learn error handling. How can I turn off this error message?

I've tried creating an "errorhandler" macro and set the "on error" property in Access to run that macro, with the macro set to run "ClearMacroError"

Error still pops up. I'm so many hours into overtime now, this is due tomorrow morning.

[isladogs]

If you are at the last record, error 2105 occurs (can't go to the specified record)
The error handling below deals with that

Private Sub cmdNext_Click()

On Error GoTo Err_Handler
    
    DoCmd.GoToRecord , , acNext
    
Exit_Handler:
    Exit Sub
    
Err_Handler:
    If Err = 2105 Then
       'already at last record - exit without message
    Else
        MsgBox "Error " & Err.Number & " in cmdNext_Click procedure : " & Err.Description, vbOKOnly + vbCritical
    End If
    Resume Exit_Handler
    
End Sub

I normally have 4 buttons cmdFirst, cmdLast, cmdNext, cmdPrev
I add code so that if I'm on the last record, cmdNext & cmdLast are disabled
Similarly on first record cmdFirst & cmdPrev are disabled

Effective error handling is VERY useful & its worth the time learning it many times over

The attached file lists all Access error codes together with their description
Most are very obscure but some like error 94 - invalid use of null - are common

HTH