pages within a control

[2ippy]

I want to use a button to goto new record and also goto page 0 within a control so you get to the start of the fields for this data entry.

No help in macro so i was wondering how would i do it in VBA?

 

[gemma-the-husky]

1.

application runcommand accmdgotonewrecord

2.

mytab.page("page 0").setfocus (might be mytab.pages)

 

[2ippy]

Private Sub CreateNewCustomer_Click()
application runcommand accmdgotonewrecord
    TabCtl58.Page("page 0").SetFocus
End Sub

it doesn't like that application line, so i'm newbie

 

[boblarson]

Change:

application runcommand accmdgotonewrecord
TabCtl58.Page("page 0").SetFocus

to this:

Docmd.RunCommand acCmdGoToNewRecord
Me.tabYourTabControlName.Pages("WhateverYourTabNameIsHere").SetFocus

 

[2ippy]

Private Sub CreateNewCustomer_Click()
    DoCmd.RunCommand acCmdGoToNewRecord
    Me.TabCtl58.Pages("Customers").SetFocus
End Sub

Run-time error '2501'
The RunCommand was canceled.

be gentle

 

[boblarson]

You may have to set the focus first and then the new record.

 

[2ippy]

yeah fucus wasn't the prob so it don't matter about order.

DoCmd.RunCommand acCmdGoToNewRecord

same error.

 

[2ippy]

genius me I fixed it.

DoCmd.RunCommand acCmdRecordsGoToNew

come up with a new bug though. If i'm already on a new record and run this then i get a error.

I know i need.. if record = new - do nothing.. else DoCmd.RunCommand acCmdRecordsGoToNew

 

[boblarson]

Just put error handling in place to trap for the error number you get when you try to go to a new record while already on a new record. So something like this (at the top of the event):

On Error GoTo err_handler

at the bottom of the event:

Exit Sub
err_handler:
If err.Number <> PutWhateverErrorNumberYouGetHere Then
   Msgbox err.Description, vbOkay, err.Number
   Exit Sub
End If

 

[2ippy]

at top of event?

 

[boblarson]

you want the "On Error GoTo err_handler" at the top of the event, but the error handler itself at the bottom of the event, just after your other code.

 

[2ippy]

lmao i was messing with tonnes of of combinations and yet it's so simple

edit: tyvm