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

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

    avatar
    Bessa_SP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Bessa_SP 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.
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  =>Nois 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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    Bessa_SP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Bessa_SP 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...
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  =>Nois 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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    Bessa_SP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Bessa_SP 24/7/2018, 15:42

    Valeu meu amigo, agora deu certo!!!!

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

    Respeito às regras : Respeito às Regras 100%

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

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

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

    Basketball Obrigado pelo Retorno


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 21/4/2021, 18:22