[Resolvido]Mostar recibo por data

Boa noite pessoal, estou precisando de mais uma ajuda de vocês.  tenho um formulário cliente e outro de recibo, existe um comando para exibir ultimo recibo no formulário de cliente de acordo com a data que foi criado o recibo, segue o bd para vocês da uma solução

Boa noite. Segue

Bom dia meu amigo, não deu certo não vou passa uma parte do banco de dados pra você da uma olhada, eu preciso que ao clicar localizar ultimo recibo no frm_cliente ele mim traga o ultimo recibo cadastrado deste cliente

Bom dia cicero de assis.
Aqui está funcionando corretamenre.
Basta somente você levar ao seu sistema original.


Dim ultimo As Variant
ultimo = DMax("recebemos2", "TBL_RECIBO2")<----aqui ele procuro o ultimo registro
DoCmd.OpenForm "FRM_RECIBO2", , , "recebemos2=" & ultimo <--- aqui ele abre o recibo com o ultimo registro

certo olha ao clicar na pesquisa ele nao esta mostrando o ultimo recibo emitido pelo cliente,

voce abriu esse novo banco de dados que te passei

Ele não esta mostrando o ultio recibo porque voce coloou o sub do cliente.
Faz ai no seu modelo com o sub do TBL__RECIBO.

opa amigão não funcionou não, baixa ai o ultimo bd de da uma verificada

cicero de assis. A lista é essa só modificar pelo seu modelo e reparar alguns codigos.
Obs.: Quando for mandar Bd para nós desbloquei todos janelas  etc vai ajudar a gente. desbloquei muitas, mas mesmo assim tive que fechar e abrir toda vez.

boa tarde, deu certo

Não esqueça de fechar o tópico.
Sucesso

Não deu certo, acho que esta faltando algum código

Uai cicero, esqueceu algum codigo? depura ele e mostra a mensagem

Olá,

Fiz um pequeno exemplo e ficou assim:



Acredito que seja isso que vc precisa.

Segue versão

Espero ter ajudado

Att

Alexandre Fim

e isso mesmo meu amigo que eu estava querendo, porem tentei adaptar no meu banco de dados e esta dando um erro tipo de dados incompatível na expressão de critério.

Apguei esta mensagem por outro motivo.

esta dando um erro tipo de dados incompatível na expressão de critério.

Pega os códigos acima e faz de acordo do modelo do Alexandre.

esta dando esse erro

tipo de dados incompatível na expressão de critério.


Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot)

If Not rs.EOF Then
With txtRecibo
sDados = " ============== ÚLTIMO RECIBO ==============" & vbNewLine & _
" Código........: " & rs(0) & "" & vbNewLine & _
" Data..........: " & rs(2) & "" & vbNewLine & _
" Valor (R$)....: " & Format(rs(1), "#,##0.#0") & "" & vbNewLine & _
" ==========================================="

boa noite estava de ferias por isso nao visualizei as resposta postada.     estou mandando o banco de dados modificado para possivel analice, gostaria de localizar o ultimo recibo emitido no formulario de cliente

Cícero,

A exibição do recibo não estava funcionando pq a consulta estava baseada no nome do cliente e informando o código para carregar a consulta.
Sempre utilize ID para identificar registros em tabelas e NUNCA utilize nome, pois podem haver ocorrencia de homonimos na sua base de dados, e o Access irá exibir o primeiro que ele encontrar.
Em seguida, fiz os demais ajustes para funcionamento.

OBS: Não utilize botões de comando para servir de "borda arredondada" de campo texto. Utilize somente o campo, para não ter problemas futuros.

Segue versão do sistema.

Espero ter ajudado.

Att,

Alexandre Fim

resolvido meu amigo. muito obrigado fico grato pela sua atenção

Sucesso