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


    Filtro de duas tabelas

    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Filtro de duas tabelas Empty Filtro de duas tabelas

    Mensagem  rogeriorcds 18/12/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
    Convidado
    Convidado


    Filtro de duas tabelas Empty Re: Filtro de duas tabelas

    Mensagem  Convidado 18/12/2013, 21:46

    Olá Rogerio.

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

    Pode ser que ajude.


    Nivaldo.
    rogeriorcds
    rogeriorcds
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Filtro de duas tabelas Empty Re: Filtro de duas tabelas

    Mensagem  rogeriorcds 18/12/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

    Conteúdo patrocinado


    Filtro de duas tabelas Empty Re: Filtro de duas tabelas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:08