Access Form

I have a command button "Go to" when I hit it says "Cannot use Find or
Replace Now"

"Linq Adams via AccessMonster.com" wrote:

Try this:

Private Sub Form_Load()
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acFirst
End Sub

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000/2003

Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...forms/201001/1

.

On Fri, 29 Jan 2010 11:45:46 -0800, slh wrote:

I have a command button "Go to" when I hit it says "Cannot use Find or
Replace Now"

In that case there is an error with its code... and it has nothing whatsoever
to do with Linq's suggestion.

If you would like help with your Go To button, please post its code.
--

John W. Vinson [MVP]

where do I find the codes?

Is there anyway we can talk on the phone?

"John W. Vinson" wrote:

On Fri, 29 Jan 2010 11:45:46 -0800, slh wrote:

I have a command button "Go to" when I hit it says "Cannot use Find or
Replace Now"

In that case there is an error with its code... and it has nothing whatsoever
to do with Linq's suggestion.

If you would like help with your Go To button, please post its code.
--

John W. Vinson [MVP]
.

On Mon, 1 Feb 2010 12:26:17 -0800, slh wrote:

where do I find the codes?

Open the form in design view. View its Properties. View the properties of the
command button; on the "Events" tab see what's in the Click event. If it says
[Event Procedure] click the ... icon by it to open the VBA editor, and copy
and paste the text there to a message here.


Is there anyway we can talk on the phone?

If you're willing to discuss a paid consulting arrangement; sorry, but not for
free.
--

John W. Vinson [MVP]

Option Compare Database

Private Sub close_Click()
On Error GoTo Err_close_Click


DoCmd.close

Exit_close_Click:
Exit Sub

Err_close_Click:
MsgBox Err.Description
Resume Exit_close_Click

End Sub
Private Sub Save_Click()
On Error GoTo Err_Save_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Save_Click:
Exit Sub

Err_Save_Click:
MsgBox Err.Description
Resume Exit_Save_Click

End Sub
Private Sub Search_Click()
On Error GoTo Err_Search_Click


Screen.PreviousControl.SetFocus
DoCmd.FindNext

Exit_Search_Click:
Exit Sub

Err_Search_Click:
MsgBox Err.Description
Resume Exit_Search_Click

End Sub
Private Sub Find_Record_Click()
On Error GoTo Err_Find_Record_Click


Screen.PreviousControl.SetFocus
DoCmd.FindNext

Exit_Find_Record_Click:
Exit Sub

Err_Find_Record_Click:
MsgBox Err.Description
Resume Exit_Find_Record_Click

End Sub
Private Sub Find_Record_Now_Click()
On Error GoTo Err_Find_Record_Now_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Find_Record_Now_Click:
Exit Sub

Err_Find_Record_Now_Click:
MsgBox Err.Description
Resume Exit_Find_Record_Now_Click

End Sub
Private Sub Add_a_New_Record_Click()
On Error GoTo Err_Add_a_New_Record_Click


DoCmd.GoToRecord , , acNewRec

Exit_Add_a_New_Record_Click:
Exit Sub

Err_Add_a_New_Record_Click:
MsgBox Err.Description
Resume Exit_Add_a_New_Record_Click

End Sub
Private Sub Find_a_Record_Click()
On Error GoTo Err_Find_a_Record_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Find_a_Record_Click:
Exit Sub

Err_Find_a_Record_Click:
MsgBox Err.Description
Resume Exit_Find_a_Record_Click

End Sub
Private Sub Find__Record_Click()
On Error GoTo Err_Find__Record_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Find__Record_Click:
Exit Sub

Err_Find__Record_Click:
MsgBox Err.Description
Resume Exit_Find__Record_Click

End Sub


"John W. Vinson" wrote:

On Mon, 1 Feb 2010 12:26:17 -0800, slh wrote:

where do I find the codes?

Open the form in design view. View its Properties. View the properties of the
command button; on the "Events" tab see what's in the Click event. If it says
[Event Procedure] click the ... icon by it to open the VBA editor, and copy
and paste the text there to a message here.


Is there anyway we can talk on the phone?

If you're willing to discuss a paid consulting arrangement; sorry, but not for
free.
--

John W. Vinson [MVP]
.