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

    Filtro de duas tabelas

    Compartilhe
    avatar
    rogeriorcds
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 26/06/2013

    Filtro de duas tabelas

    Mensagem  rogeriorcds em Qua 18 Dez 2013, 18:57

    Boa tarde amigos.

    Estou tendo problemas com uma situação que é ma seguinte.
    eu tenho 3 tabelas, 1º é TCliente onde gravo o cliente, 2º TClienteconj onde gravo o conjugê do cliente e a 3º cadastro onde faço o Atendimento deste cliente, na 3º tabela tenho uma combobox que eu chamo o Cliente da tabela TCliente e um filtro traz o conjugê deste cliente.
    O problema é quando o cliente não tem conjuge ele da problema, ele vai bem até aparecer o cliente que não tem conjugê.
    Como resolvo isso ?

    Obrigado pela ajuda.
    avatar
    Nivaldo
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 08/12/2009

    Re: Filtro de duas tabelas

    Mensagem  Nivaldo em Qua 18 Dez 2013, 21:46

    Olá Rogerio.

    Tenta usar a função Nz que faz tratamento de campos nulos.

    Pode ser que ajude.


    Nivaldo.
    avatar
    rogeriorcds
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 26/06/2013

    Re: Filtro de duas tabelas

    Mensagem  rogeriorcds em Qua 18 Dez 2013, 23:18

    Como eu faço isso na linha de códigos ?

    Private Sub txtnomelocatario_AfterUpdate()

    Dim objLocatarioconj As New clsLocatarioconj

    If Not IsNull(txtNomeLocatario) Then
    If objLocatarioconj.obter(CLng(txtNomeLocatario)) Then
    'Call preencheVenda
    txtcodLocatconj = objLocatarioconj.codLocatconj
    txtnomelocatariocont = objLocatarioconj.nomelocatariocont
    txtnomeLocatconj = objLocatarioconj.nomelocatconj
    txtNomeFiador.SetFocus

    Else
    txtcodLocatconj = Null
    txtnomeLocatconj = Null
    MsgBox "Este Locatario não tem Conjugê!", vbInformation, "Informação"
    txtNomeFiador.SetFocus
    End If
    End If

    End Sub

      Data/hora atual: Seg 26 Jun 2017, 21:35