[Resolvido]Abrir formulário e ativar evento em botão

Boas pessoal,

Tenho um formulário frmPrincipal e nele um botão btnNovaOrdem, gostaria que ao clicar nele me fosse aberto o frmOrdem e o evento do botão novo "btnNovo" no frmOrdem
fosse ativado, pois neste existe alguns dados que devem ser implementados ao criar um novo registro como o criador, a data e hora habilitar os campos e desativar e ativar alguns botões.

Ola amigo nos envie o bd sera mais facil ajuda-lo.
Abç.

Opa,

Então segue anexo o exemplo de como seria o caso:

Apenas para constar, a ativação do botão Novo no formulário Ordem seria apenas no caso de clicar em "nova ordem" no formulário principal

e ae galera, alguém pode me dar uma luz ao meu problema?

Olá,
1º se abrir o diretamente o formulário frmOrdem e carregar no botão Novo, está a dar erro, deve corrigir.

Código:

Private Sub btnNovo_Click()
    Me.txtIdentCliente.Locked = False
    Me.txtEndereco.Locked = False
    
    Me.txtIdentCliente.Enabled = True
    Me.txtEndereco.Enabled = True
    '--------------------
    Me.txtIdentCliente.SetFocus
    '----------------------
    Me.btnNovo.Enabled = False
    Me.btnAlterar.Enabled = False
    Me.btnSalvar.Enabled = True
    
    DoCmd.GoToRecord acForm, "frmOrdem", acNewRec
    Me.IdentCriador.Value = "EU"
    Me.DtCriacao.Value = Now()
End Sub

O erro ocorria porque não pode desativar um controlo quando está no foco (selecionado e activo), sendo resolvido em alterar o foco para o campo txtIdentCliente


2º Considerando que o frmOrdem pode ser aberto nountra situação e pretenda que abra no 1º registo, podemos controlar quando queremos que abra com o botão novo activado, para isso podemos usar o OpenArgs (argumentos de abertura). Colocando assim:

no frmPrincipal:

Código:

Private Sub btnNovaOrdem_Click()
    DoCmd.OpenForm "frmOrdem", , , , , , 1
    'MsgBox "Agora falta ativar o evento do botão novo"
End Sub

O argumento que estou a utilizar neste exemplo é o 1

no frmOrdem:

Código:

Private Sub Form_Open(Cancel As Integer)
    If OpenArgs = 1 Then Call btnNovo_Click
End Sub

Assim controlamos ao abrir se tiver o argumento 1 vai chamar a Sub  btnNovo_Click

Apenas mais uma nota, de boas práticas ao postar uma base de dados:
Compactar e Reparar Base de dados e criar ficheiro ZIP, assim poupas a tua cota de espaço.
Ficamos aguardar retorno.
Abraço

Excelente,
Realmente procurei pela solução deste ato em vários locais, funcionou perfeitamente.

Muito obrigado pela solução e desculpe pela forma ao qual estava anexando os arquivos, nas próximas vezes irei seguir os procedimentos adequados.

Olá,
Obrigado pelo retorno o forum agradece.
Abraço