Relatório de consulta

Moderador: Avelino Sampaio

eristonmattos
Mensagens: 2
Registrado em: 22 Ago 2018, 17:39

Relatório de consulta

Mensagempor eristonmattos » 20 Nov 2018, 17:40

Boa tarde aos caros,

Estou com problema na impressão de um relatório gerado após uma consulta em um formulário,
usei a função Dlookup no formulário, assim ele me retorna todos os dados de determinada pessoa
quando insiro o número do CNS dela, coloquei um botão pra abrir o relatório, relatório aberto,
aparecem todos os dados da consulta, mas na impressão só aparece o erro "#Nome?" no lugar dos
dados... A chave primária é NUM_CNS

Como resolver isso?
coloquei os prints em zip anexos, mas dá aquivo vazio aqui...
Uso o Access 2007 e o 2010.

Eis a função colocada no evento após atualizar no formulário:

Private Sub txt_NUM_CNS_AfterUpdate()
Me.txt_NOME = DLookup("NOME", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_DT_NASC = DLookup("DT_NASC", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_DT_INICIO = DLookup("DT_INICIO", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_CPF = DLookup("CPF", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_CIDADE = DLookup("CIDADE", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_Contato = DLookup("CONTATO", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_OCUPACAO = DLookup("OCUPACAO", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_TIPO_EMPRESA = DLookup("TIPO_EMPRESA", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_NOME_EMPRESA = DLookup("NOME_EMPRESA", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_CNPJ_CPF = DLookup("CNPJ_CPF", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_STATUS = DLookup("STATUS", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_NUM_CAIXA = DLookup("NUM_CAIXA", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_PRATELEIRA = DLookup("PRATELEIRA", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_ULT_ANDAMENTO = DLookup("ULT_ANDAMENTO", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")
Me.txt_SEXO = DLookup("SEXO", "Tbl_Processo", "NUM_CNS ='" & Me.txt_NUM_CNS & "'")

End Sub

E quando imprime, aparece assim lá:

CNS do Usuário: Nome: Data de Nasc: Data de Início:
#Nome? #Nome? #Nome? #Nome?
CPF: #Nome? Cidade: #Nome? Telelefone: ( ) #Nome?
Ocupação: #Nome? Nome da Empresa: #Nome?
CNPJ/CPF: #Nome? Situação: #Nome? Nº da Caixa: #No Prateleira: #No
Último Andamento: #Nome?

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 469
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Relatório de consulta

Mensagempor Damasceno Jr. » 21 Nov 2018, 01:36

Não entendi. Mande me os objetos envolvidos no email damascenojr@outlook.com
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.


Voltar para “Relatórios”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes