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]Impedir abertura de relatório sem dados no cabeçalho do relatório

    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório Empty [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório

    Mensagem  Daluque 11/10/2022, 18:12

    Boa tarde a todos.

    Tenho um relatório com quatro caixas de texto não acopladas, no cabeçalho do relatório.

    TxtDe - TxtPara - DtDe - DtPara

    Gostaria de impedir a visualização do relatório caso qualquer uma delas estejam sem preenchimento.

    agradeço auxilio.



    .................................................................................
    Daluque

    Office 2003
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2675
    Registrado : 23/01/2018

    [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório Empty Re: [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório

    Mensagem  crysostomo 12/10/2022, 03:13

    Boa noite.
    If IsNull(Me.TxtDe ) Or IsNull(Me.DtDe) or isnull(me.DtPara) Then

    MsgBox "Não a dados"
    DoCmd.Close
    End If
    End Sub


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório Empty Re: [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório

    Mensagem  Daluque 12/10/2022, 14:31

    Olá obrigado pelo retorno.

    Deu certo uma parte e outra não.

    é acionada a mensagem sobre a falta de preenchimento, porem o relatório continua abrindo para visualização.

    Lembrando que coloquei o "if IsNull" no cabeçalho do relatório que é onde estão os campos não acoplados.

    Gostaria que o relatório não abra e o foco volte para o campo no formulário.

    mas não estou conseguindo.


    obrigado.


    .................................................................................
    Daluque

    Office 2003
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2675
    Registrado : 23/01/2018

    [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório Empty Re: [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório

    Mensagem  crysostomo 13/10/2022, 00:09

    Boa noite, existe um evento que ja fecha o relatório se ele estiver vazio totalmente, mas como o seu te condições.

    Não entendi a lógia da mudaça que fiz  aqui, mas deu certo.
    No formulario que abri a reletorio colocar
    Código:
    On Error GoTo erro_mdb
       DoCmd.OpenReport "relatorio", acViewPreview
    erro_mdb:
    End Sub

    No relatório no evento ao abrir
    Código:
    On Error GoTo erro_mdb
    If IsNull(Me.Embalagem)  or IsNull(Me.QNT) Then
    Else
       MsgBox "Não a dados"
    DoCmd.CancelEvent
    End If
    erro_mdb:
    Basketball
    avatar
    Daluque
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    Registrado : 06/03/2012

    [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório Empty Re: [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório

    Mensagem  Daluque 13/10/2022, 10:47

    Olá meu amigo, bom dia.

    coloquei no evento click do botão que abre o relatório e funcionou.

    "Private Sub Comando11_Click()
    On Error GoTo Err_Comando11_Click

    Dim stDocName As String
    If IsNull(Me.DataDe) Or IsNull(Me.DataPara) Or IsNull(Me.TecnicoDe) Or IsNull(Me.TecnicoPara) Then

    MsgBox "Falta preencher os campos", vbInformation, "Erro de preenchimento"
    DoCmd.CancelEvent
    Else
    stDocName = "RltPlantao"
    DoCmd.OpenReport stDocName, acPreview
    End If
    Exit_Comando11_Click:
    Exit Sub

    Err_Comando11_Click:
    MsgBox Err.Description
    Resume Exit_Comando11_Click

    End Sub"

    obrigado pela colaboração.


    .................................................................................
    Daluque

    Office 2003
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2675
    Registrado : 23/01/2018

    [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório Empty Re: [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório

    Mensagem  crysostomo 13/10/2022, 15:39

    Sucesso.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório Empty Re: [Resolvido]Impedir abertura de relatório sem dados no cabeçalho do relatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/2/2024, 07:43