MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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 : 2285
    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ç.
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4291
    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
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4291
    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 20 Ago 2017, 18:30