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


4 participantes

    [Resolvido]Trocar o filtro caso o resultado seja nulo

    avatar
    Bruno
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 09/04/2011

    [Resolvido]Trocar o filtro caso o resultado seja nulo Empty Trocar o filtro caso o resultado seja nulo

    Mensagem  Bruno 7/11/2011, 23:21

    Prezados, boa noite!

    Estou tentando utilizar os códigos abaixo porém sem sucesso. Também tentei trocar NULL por "", porém também nãoo deu certo.

    DoCmd.ApplyFilter , "[statusserviço] = 'Bloqueado'"
    If Me.StatusServiço.Value = Null Then
    DoCmd.ApplyFilter , "[statusserviço] = 'Ativo'"
    End If

    OU

    Me.Filter = "[statusserviço] = 'Bloqueado'"
    Me.FilterOn = True
    If Me.StatusServiço = Null Then
    Me.Filter = "[statusserviço] = 'Ativo'"
    Me.FilterOn = True
    End If

    Quem puder ajudar eu agradeço.

    Abraços
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    [Resolvido]Trocar o filtro caso o resultado seja nulo Empty Re: [Resolvido]Trocar o filtro caso o resultado seja nulo

    Mensagem  le_lo28 8/11/2011, 10:06

    Fala ae blz?

    Você não foi claro em qual parte não está funcionando, se na aplicação do filtro ou na verificação do null, então tente:

    Código:

    Me.Filter = "[statusserviço] = 'Bloqueado'"
    Me.FilterOn = True
    If IsNull(Me.StatusServiço)or Me.StatusServiço = "" Then
    Me.Filter = "[statusserviço] = 'Ativo'"
    Me.FilterOn = True
    End If

    Na esperança que ajude.

    Falow,


    .................................................................................
    [Resolvido]Trocar o filtro caso o resultado seja nulo Assinaturacross
    M@rcelo
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Trocar o filtro caso o resultado seja nulo Empty Re: [Resolvido]Trocar o filtro caso o resultado seja nulo

    Mensagem  Avelino Sampaio 8/11/2011, 10:34

    Olá amigos

    ou este:

    ...
    If len(Me!StatusServiço & "") = 0 Then
    ...

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Trocar o filtro caso o resultado seja nulo Empty Re: [Resolvido]Trocar o filtro caso o resultado seja nulo

    Mensagem  vieirasoft 14/11/2011, 17:27

    Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.
    avatar
    Bruno
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 09/04/2011

    [Resolvido]Trocar o filtro caso o resultado seja nulo Empty Re: [Resolvido]Trocar o filtro caso o resultado seja nulo

    Mensagem  Bruno 23/11/2011, 12:42

    Prezados, bom dia!

    Peço desculpas pela demora.
    COnsegui resolver meu problema utilizando
    If IsNull(Me.StatusServiço)or Me.StatusServiço = "" Then

    Obriagdo le_lo28
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    [Resolvido]Trocar o filtro caso o resultado seja nulo Empty Re: [Resolvido]Trocar o filtro caso o resultado seja nulo

    Mensagem  le_lo28 23/11/2011, 16:18

    Ótimo!

    O fórum agradece pelo retorno!

    Até a próxima,


    .................................................................................
    [Resolvido]Trocar o filtro caso o resultado seja nulo Assinaturacross
    M@rcelo

    Conteúdo patrocinado


    [Resolvido]Trocar o filtro caso o resultado seja nulo Empty Re: [Resolvido]Trocar o filtro caso o resultado seja nulo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 19:39