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]02 Condições para utilização do if

    Compartilhe

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 07/11/2013

    [Resolvido]02 Condições para utilização do if

    Mensagem  Bessa_SP em 24/7/2018, 14:27

    Bom dia Sr.s

    Estou precisando da seguinte ajuda
    Tenho um formulário aonde tenho duas caixas de combinações a primeira
    Txt_tipo: aonde eu seleciono o tipo de impressão
    Txt_mes_ano = aonde eu seleciono o período.

    O que eu desejo e não sei se e possível:
    Após atualizar Txt_mes_ano ele faça a condição que tentei abaixo e não deu certo;

    Dim resultado
    resultado = MsgBox("Deseja exportar os dados?", vbYesNo, "Exportar")

    If Me.Txt_Tipo.Value = "Utilizado" And resultado = vbYes Then
    DoCmd.OutputTo acOutputQuery, "Cs_Cheques_utilizados_rel", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint

    Else
    Me.Btn_Imprimir.SetFocus

    End If

    Eu quero que se o txt_tipo = "Utilizado" ele abrisse uma msgbox ("Deseja exportar os dados?", vbYesNo, "Exportar") e se a resposta fosse sim que ele exportasse os dados desse consulta.
    Por isso criei uma condição Dim e tentei colocar as duas na condição IF e o problema e que quando atualizo o campo txt_mes_ano com qualquer outra condição que não seja "Utilizado" ele me faz a msgbox.
    Alguém pode me ajudar aonde está o meu erro???

    Obrigado.
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 09/11/2012

    Re: [Resolvido]02 Condições para utilização do if

    Mensagem  =>Nois em 24/7/2018, 15:14

    tente assim

    Código:
    If MsgBox("Deseja exportar os dados?", vbQuestion + vbYesNo, "Exportar") = vbYes Then

        If Me.Txt_Tipo.Value = "Utilizado" Then

            DoCmd.OutputTo acOutputQuery, "Cs_Cheques_utilizados_rel", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint
       
        Else
            Me.Btn_Imprimir.SetFocus
        End If

    Else

        Me.Btn_Imprimir.SetFocus

    End If


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 07/11/2013

    02 Condições para utilização do if

    Mensagem  Bessa_SP em 24/7/2018, 15:22

    Amigo...

    Obrigado por tentar me ajudar...

    Está acontecendo o mesmo erro:
    "Quando eu coloco no txt_tipo qualquer outra condição que não seja Utilizado", ele aparece a msgbox.

    Infelizmente não deu certo...
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 09/11/2012

    Re: [Resolvido]02 Condições para utilização do if

    Mensagem  =>Nois em 24/7/2018, 15:35

    Aqui funcionou normal

    veja o teste

    Código:
    Private Sub txt_tipo_AfterUpdate()

    If Me.txt_tipo = "UTILIZADO" Then

        If MsgBox("Deseja exportar os dados?", vbQuestion + vbYesNo, "Exportar") = vbYes Then
            MsgBox "OK"
       
        Else
            MsgBox "KO"
       
        End If


    Else
        MsgBox "KO"
    End If

    End Sub


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

    Bessa_SP
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 07/11/2013

    02 Condições para utilização do if

    Mensagem  Bessa_SP em 24/7/2018, 15:42

    Valeu meu amigo, agora deu certo!!!!

    Obrigado
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 09/11/2012

    Re: [Resolvido]02 Condições para utilização do if

    Mensagem  =>Nois em 24/7/2018, 15:51

    Basketball Obrigado pelo Retorno


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: 21/9/2018, 03:54