MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Filtro de duas tabelas

    Compartilhe

    rogeriorcds
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    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.

    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.

    rogeriorcds
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    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: Ter 06 Dez 2016, 05:44