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]resultado de consulta em branco

    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]resultado de consulta em branco Empty [Resolvido]resultado de consulta em branco

    Mensagem  ifahidalgo 21/5/2014, 18:20

    senhores

    criei uma consulta onde me solicita o informação de um determinado campo. e utilizo a consulta como origem da linha para uma listbox.
    o que eu gostaria de fazer seria;

    quando abrir o form da listbox e executar a consulta, se o codigo do orçamento que desejo não existir, me seja informado e não abra o form.

    simplificando, ao executar a consulta e o valor a ser retornado for zero ou null, não abra o form e mostre uma mensagem que codigo não encontrado.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]resultado de consulta em branco Empty Re: [Resolvido]resultado de consulta em branco

    Mensagem  Assis 21/5/2014, 19:06

    Teste

    Private Sub Form_Open(Cancel As Integer)
    If Me.RecordsetClone.RecordCount = 0 Then
    MsgBox "Não Existem Movimentos a Visualizar", vbQuestion, "Aviso"
    Cancel = True
    Exit Sub
    DoCmd.Close acForm, "Nome seu formulario"
    End If

    End Sub


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]resultado de consulta em branco Empty Re: [Resolvido]resultado de consulta em branco

    Mensagem  ifahidalgo 21/5/2014, 19:26

    fiz conforme informado mas deu erro

    erro em tempo de execução 7951
    você inceriu uma expressão que contém uma referencia inválida à propriedade recordsetclone

    If Me.RecordsetClone.RecordCount = 0 Then

    os dados dessa consulta, irão para um listbox dentro de um form.
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]resultado de consulta em branco Empty Re: [Resolvido]resultado de consulta em branco

    Mensagem  ifahidalgo 21/5/2014, 20:00

    alterei para

    If Me.tabitem.ListCount = "0" Then

    funcionou.
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]resultado de consulta em branco Empty Re: [Resolvido]resultado de consulta em branco

    Mensagem  ifahidalgo 22/5/2014, 15:57

    obrigado

    Conteúdo patrocinado


    [Resolvido]resultado de consulta em branco Empty Re: [Resolvido]resultado de consulta em branco

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2024, 12:29