MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Executar macro

    scandinavo
    scandinavo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 928
    Registrado : 11/11/2009

    [Resolvido]Executar macro Empty Executar macro

    Mensagem  scandinavo 27/2/2010, 01:36

    Boa noite
    Tenho uma macro que preenche o campo automaticamente com o mesmo texto do campo acima,gostaria que o campo ao receber o foco verifica-se se esta vazio e executa-se a macro.

    Se ja estiver preenchido não executa a macro.

    Fiz assim mas não funciona

    Private Sub Frigorifico_GotFocus()

    If Me.Frigorifico = False Then
    stDocName = "mcranterior"
    DoCmd.RunMacro stDocName

    End If

    End Sub

    Desde já agradeço.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Executar macro Empty Re: [Resolvido]Executar macro

    Mensagem  criquio 27/2/2010, 01:48

    Vamos ver o que acontece se fizer assim:

    Private Sub Frigorifico_GotFocus()

    If isNull(Me.Frigorifico) Or Me.Frigorífico = "" Then
    DoCmd.RunMacro stDocName
    Else
    Exit Sub

    End If

    End Sub


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    scandinavo
    scandinavo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 928
    Registrado : 11/11/2009

    [Resolvido]Executar macro Empty Re: [Resolvido]Executar macro

    Mensagem  scandinavo 27/2/2010, 15:47

    Muito obrigado funcionou legal, mas ficou faltando o nome da macro que foi facil resolver.

    Private Sub Frigorifico_GotFocus()
    If IsNull(Me.Frigorifico) Or Me.Frigorifico = "" Then
    stDocName = "mcranterior"
    DoCmd.RunMacro stDocName
    Else
    Exit Sub

    End If
    End Sub

    Valeu pela ajuda.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Executar macro Empty Re: [Resolvido]Executar macro

    Mensagem  criquio 27/2/2010, 16:47

    Beleza Scandinavo. Fico feliz que tenha resolvido a questão.
    Grande abraço.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 20/1/2022, 11:39