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]Condicional entre Campos Nulos ou não

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Condicional entre Campos Nulos ou não Empty Condicional entre Campos Nulos ou não

    Mensagem  Leandro 13/4/2012, 14:30

    Bom dia,
    Estou usando esse código para buscar o código de Deslocamento:

    Me.DeslocUrbanoExecucao = DLookup("[CODDESLOC]", "TabDeslocamentos", "[CodRecurso]=[Texto29] and [DescModulo]=[Texto47]and [CodLocal] = [LocalExecucao]and [TipoEquipe]=[Texto48]")

    Na parte: [TipoEquipe]=[Texto48]
    Preciso de uma condicional; Caso Texto48 seja igual Null ela tem que usar como critério um outro campo do form, Texto78.

    Como faço isso?

    Obrigado

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Condicional entre Campos Nulos ou não Empty Re: [Resolvido]Condicional entre Campos Nulos ou não

    Mensagem  Leandro 13/4/2012, 14:42

    Caros colaboradores, consegui uma solução, acho que não do padrão excelência em VBA, mas funcionou:

    If Me.Texto48.Value > 0 Then
    Me.DeslocUrbanoExecucao = DLookup("[CODDESLOC]", "TabDeslocamentos", "[CodRecurso]=[Texto29] and [DescModulo]=[Texto47]and [CodLocal] = [LocalExecucao]and [TipoEquipe]=[Texto48]")
    Else
    Me.DeslocUrbanoExecucao = DLookup("[CODDESLOC]", "TabDeslocamentos", "[CodRecurso]=[Texto29] and [DescModulo]=[Texto47]and [CodLocal] = [LocalExecucao]and [TipoEquipe]=[Texto78]")
    End If

    Obrigado aos que olharam o tópico.


      Data/hora atual: 8/11/2024, 17:52