MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

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

    Mensagem  biligo em Qui 28 Ago 2014, 17:02

    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.

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2267
    Registrado : 09/04/2012

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

    Mensagem  Kaynan em Qui 28 Ago 2014, 19:39

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

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

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

    Mensagem  biligo em Qui 28 Ago 2014, 20:15

    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

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

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

    Mensagem  biligo em Sab 30 Ago 2014, 02:08

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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Sab 30 Ago 2014, 11:07

    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

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

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

    Mensagem  biligo em Sab 30 Ago 2014, 21:02

    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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Seg 01 Set 2014, 09:21

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

      Data/hora atual: Dom 04 Dez 2016, 01:53