Prev: Closing Balance figure to be carried as Opening Balance in a new record
Next: Yes/No Field Size
From: slh on 29 Jan 2010 14:45
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/Forums.aspx/access-forms/201001/1
>
> .
>
From: John W. Vinson on 29 Jan 2010 19:23
On Fri, 29 Jan 2010 11:45:46 -0800, slh <slh(a)discussions.microsoft.com> 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]
From: slh on 1 Feb 2010 15:26
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 <slh(a)discussions.microsoft.com> 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]
> .
>
From: John W. Vinson on 1 Feb 2010 17:02
On Mon, 1 Feb 2010 12:26:17 -0800, slh <slh(a)discussions.microsoft.com> 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]
From: slh on 2 Feb 2010 16:16
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 <slh(a)discussions.microsoft.com> 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]
> .
>
First  |  Prev  | 
Pages: 1 2 3
Prev: Closing Balance figure to be carried as Opening Balance in a new record
Next: Yes/No Field Size