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]cancelar ao confirmar Nao

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 13/03/2011

    [Resolvido]cancelar ao confirmar Nao Empty [Resolvido]cancelar ao confirmar Nao

    Mensagem  msilveir em 29/7/2019, 17:15

    ola pessoal

    estou com um problema no codigo abaixo quando confirmo nao ele nao limpa o campo CboSigla e ainda executa a consulta atualização
    alguem poderia dar uma olhada

    ' variavel para formatar a data com Hora
    Dim DataDia
    DataDia = Format(Now, "ddmm-hhmm")



    'validação do campo de turnos
    If IsNull(Me.CboSigla) Then
    MsgBox "Escolha o Turno!!", vbCritical, "Atenção"
    Me.CboSigla.SetFocus

    Else

    ' menssagem para informar o usuario
    If MsgBox("Voce esta Pretes Gerar o Pedido e exportar o Relatorio", vbExclamation + vbYesNo, "Atenção") = vbYes Then
    DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\Enviados\" & Me.CboSigla.Column(0) & "-" & DataDia & ".xlsx"

    'executa uma consulta para atualizar o campo sim/nao da tbl_Movimentacao
    DoCmd.OpenQuery "Atualizar", acViewNormal

    ' atualiza a lista de pedidos e limpa campo turno
    Me.ListaFalse.Requery
    Me.CboSigla = ""

    End If
    End If
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 13/03/2011

    [Resolvido]cancelar ao confirmar Nao Empty Re: [Resolvido]cancelar ao confirmar Nao

    Mensagem  msilveir em 30/7/2019, 00:06

    Ola Pessoal

    consegui resolver com código abaixo para caso alguém precise.

    Dim DataDia
    DataDia = Format(Now, "ddmm-hhmm")

    If IsNull(Me.CboSigla) Then
    MsgBox "Escolha o Turno!!", vbCritical, "Atenção"
    Me.CboSigla.SetFocus

    Else

    If MsgBox("Voce esta Prestes a Gerar relatorio de embarque", vbYesNo + vbInformation, "Atenção") = vbYes Then
    DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\Enviados\" & Me.CboSigla.Column(0) & "-" & DataDia & ".xlsx"
    DoCmd.OpenQuery "Atualizar", acViewNormal
    Me.ListaFalse.Requery
    Me.CboSigla = ""

    MsgBox ("Relatorio Gerado com Sucesso"), vbInformation, "Atenção"
    Else
    MsgBox ("Relatorio Cancelado"), vbInformation, "Cancelado"
    Me.CboSigla = ""
    End If
    End If
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1067
    Registrado : 22/11/2016

    [Resolvido]cancelar ao confirmar Nao Empty Re: [Resolvido]cancelar ao confirmar Nao

    Mensagem  IvanJr. em 30/7/2019, 00:45

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado

    [Resolvido]cancelar ao confirmar Nao Empty Re: [Resolvido]cancelar ao confirmar Nao

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2019, 11:32