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]Erro com Msgbox testando campo

    avatar
    AJM
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 27/01/2012

    [Resolvido]Erro com Msgbox testando campo Empty [Resolvido]Erro com Msgbox testando campo

    Mensagem  AJM 9/3/2024, 00:07

    Boa noite

    Gostaria que o campo Me.Texto74 fosse testado, se for verdadeiro, abrir uma mensagem pedindo se deseja gerar novamente
    Caso a resposta seja Não, cancela, e caso seja Sim continua o processo.
    Não esta funcionando, erro de compilacao, erro de sintaxe.

    If (Me.Texto74) = "Transferido" Then
    MsgBox("Transferencia de preços já foi gerada para este Orçamento, Deseja gerar novamente?", vbYesNo, "Aviso") = vbNo then
    Undo
    ElseIf .....
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3226
    Registrado : 13/12/2016

    [Resolvido]Erro com Msgbox testando campo Empty Re: [Resolvido]Erro com Msgbox testando campo

    Mensagem  Alexandre Fim 9/3/2024, 16:06

    André,

    Acredito que seja isso:

    Código:


        If (Me.Texto74) = "Transferido" Then
            If MsgBox("Transferencia de preços já foi gerada para este Orçamento, Deseja gerar novamente?", vbQuestion + vbYesNo, "Confirma?(S/N)") = vbNo Then
                Undo
            Else
                '-- continua processo....
            End If
        ElseIf (Me.Texto74) <> "Transferido" Then
                '-- continua processo....
        End If
       


    Att,

    Alexandre


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erro com Msgbox testando campo Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    AJM
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 27/01/2012

    [Resolvido]Erro com Msgbox testando campo Empty Re: [Resolvido]Erro com Msgbox testando campo

    Mensagem  AJM 10/3/2024, 01:24


    Minha ideia era testar e colocar a pergunta no inicio, mas não deu, então coloquei por ultimo, no Else, depois de outras 4 testagens de campos.
    Dessa forma deu certo
    Obrigado pela dica Alexandre


    ElseIf (Me.Texto74) = "Transferido" Then
    If MsgBox("Transferencia de preços já foi gerada para este Orçamento, Deseja gerar novamente?", vbQuestion + vbYesNo, "Confirma?(S/N)") = vbNo Then
    Undo

    Else

    'executa o processo de atualização se a condição for atendida.......



    Conteúdo patrocinado


    [Resolvido]Erro com Msgbox testando campo Empty Re: [Resolvido]Erro com Msgbox testando campo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/5/2024, 16:39