B
BillD
I am having a problem that I can't find the source to and need some help. I
have a form set up in a tab (4 tabs- Contacts, Registration, payment,
Contribution)
In the main form Contacts I have Control buttons for: First Record, Last
Record, Find Record, Previous Record, Next Record, Close
Here is the problem: The First Record button and the Last Record Button when
clicked do nothing. The Find Record Button when clicked gives a message box
"You Can't Use Find or Replace Now" The Previous Record and Next Record
buttons when clicked give the same message "You Can't go to the Specified
Record" The close form button works fine.
I cannot find out why these buttons don't work. I tried creating another
button and those do not work either.
Here is a copy of the Find record code and Previous record code if anyone
can help please advise thanks
Private Sub Command63_Click()
On Error GoTo Err_Command63_Click
DoCmd.GoToRecord , , acPrevious
Exit_Command63_Click:
Exit Sub
Err_Command63_Click:
MsgBox Err.Description
Resume Exit_Command63_Click
End Sub
Private Sub Find_cmd53_Click()
On Error GoTo Err_Find_cmd53_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Find_cmd53_Click:
Exit Sub
Err_Find_cmd53_Click:
MsgBox Err.Description
Resume Exit_Find_cmd53_Click
End Sub
Thanks in advance for you help
have a form set up in a tab (4 tabs- Contacts, Registration, payment,
Contribution)
In the main form Contacts I have Control buttons for: First Record, Last
Record, Find Record, Previous Record, Next Record, Close
Here is the problem: The First Record button and the Last Record Button when
clicked do nothing. The Find Record Button when clicked gives a message box
"You Can't Use Find or Replace Now" The Previous Record and Next Record
buttons when clicked give the same message "You Can't go to the Specified
Record" The close form button works fine.
I cannot find out why these buttons don't work. I tried creating another
button and those do not work either.
Here is a copy of the Find record code and Previous record code if anyone
can help please advise thanks
Private Sub Command63_Click()
On Error GoTo Err_Command63_Click
DoCmd.GoToRecord , , acPrevious
Exit_Command63_Click:
Exit Sub
Err_Command63_Click:
MsgBox Err.Description
Resume Exit_Command63_Click
End Sub
Private Sub Find_cmd53_Click()
On Error GoTo Err_Find_cmd53_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Find_cmd53_Click:
Exit Sub
Err_Find_cmd53_Click:
MsgBox Err.Description
Resume Exit_Find_cmd53_Click
End Sub
Thanks in advance for you help