VBA - ShowDataForm and add new record

[Jasesair]

I have the below code for Showing the Data Form and am just after a little extra for it to open the Data Form to a new record. Any help would be fantastic.

Sub ShowDataForm()
    With Sheets("Weekly Entry")
        .Select
        .ShowDataForm
    End With
    Sheets("Database").Activate
End Sub

 

[Jaafar Tribak]

See if this works for you :

Sub ShowDataForm()
    With Sheets("Weekly Entry")
        .Select
        Application.SendKeys ("%w")
        DoEvents
        Application.SendKeys ("%w")
        .ShowDataForm
    End With
    Sheets("Database").Activate
End Sub

 

[Jasesair]

See if this works for you :

Sub ShowDataForm()
    With Sheets("Weekly Entry")
        .Select
        Application.SendKeys ("%w")
        DoEvents
        Application.SendKeys ("%w")
        .ShowDataForm
    End With
    Sheets("Database").Activate
End Sub

No sorry, that didn't seem to work at all. It actually stopped the Data Form from actually opening - just took me to the sheet.

 

[Jaafar Tribak]

It worked for me.

How are you calling the ShowDataForm sub ? from a button , an event, ribbon etc ?

Can you upload a copy of your workbook so we can take a look ?

 

[Jasesair]

I'm just assigning this macro to a self-created button. With the initial macro (in its own module), it works perfectly. I'm just keen for it not to open the Data Form to be displaying the first entry, but to open to a new entry.

 

[Jaafar Tribak]

I'm just assigning this macro to a self-created button. With the initial macro (in its own module), it works perfectly. I'm just keen for it not to open the Data Form to be displaying the first entry, but to open to a new entry.

That's exacltly what I did when testing and worked just fine for me.

Is the letter w the accelerator key for the New button in the dataform ? Does pressing Alt+W activate the new record button ?