[Resolvido]Retornar último registro

Bom dia mestres

tenho esta linha de comando:

DoCmd.OpenForm "frm_saida2", , , "cracha=" & Me.Txt_RG, acFormEdit
RunCommand acCmdRecordsGoToLast

Deveria me retornar o último registro, porém, retorna o ultimo do dia anterior, e não o de hoje....

DoCmd.OpenForm "frm_saida2", , , "cracha=" & Me.Txt_RG, acFormEdit
DoCmd.GoToRecord , , acLast

Boa tarde, agradeço o tempo que dispos a me ajudar, porém, ainda não vem o último registro.

Poste aqui seu exemplo amigo, pois estou confuso sobre o que pretende!

Veja, não é complicado (só não sei como fazer hehe),
Cadastro a entrada no usuário com um número de cracha, depois preciso dar baixa neste crachá, ele tem que me trazer o último acesso daquele crachá, pois preencherei a saída do usuário.
Estou pensando em colocar uma caixa de seleção, após a saída marca "1" e pronto, o próximo virá com o "0"... Estou desenhando, vou ver se dá certo... não me lembro o comando para marcar a caixa, estou procurando aqui no forum rs,

BiaTerra, A solução apresentada por mim neste seu Tópico https://www.maximoaccess.com/t25319-resolvidoconsulta-retornar-ultimo-registro na Mensagem Nº08 nao atende as suas necessidades?

Bom dia Fabio,

Não vem o último, vem o penultimo.
Estou tentando colocar uma caixa de seleção sim/não, no momento em que eu registrar a saída ele marca a caixa, quando eu pesquisar novamente aquele crachá só virá os que não tiverem ela selecionada...
Pesquisando por aqui agora para ver qual comando marca a opção no momento em que carrega o formulário, assim deixo ela oculta.

Mas Bia, foi exatamente isto que fiz no exemplo que postei pra vc... a questao la e que preferi colocar um S ou N no campo...

Reveja a mensagem anterior!

Fabio, agradeço a ajuda, mas eu teria que mudar toda a estrutura do meu formulário.

Por favor, olha este código

DoCmd.OpenForm "frm_saida2", , , "cracha=" & Me.Txt_RG, acFormEdit

como faço para que além destes, ainda busque somente o que tiver 0 na tabela (o campo é sim/não onde 0 é não marcado na caixa de seleção)

DoCmd.OpenForm "frm_saida2", , , "cracha=" & Me.Txt_RG & " AND CampoSimNao = 0"

Tente assim Bia!

Mas, nao entendi isso: cracha=" & Me.Txt_RG (Cracha vai ser igual ao campo txt_RG????)

Sim, veja o critério: Digito "1" no txt, ele deve vir o registro que tenha o crachá 1, porém, onde o sim/não esteja 0 (onde 0 significa não)

Tente como lhe passei mensagem anterior... que dara certo...

Não dá Fabio, eu tentei e vem sempre o penultimo, antepenultimo, nunca o último.

Bia, posta seu aplicativo, o as partes envolvidas por favor...

E me fala como proceder...

Abra o formulário "entrada" depois "controle entrada", digite um RG (qualquer) "ok" preencha somente o nome depois clique em "acesso".
Preencha o crachá com "1". Feche. clique em "controle saída" digite "1", veja que deveria vir sua entrada, porém,. virá outra.

Coloquei uma caixa de seleção, agora quando clico em "controle saida" e no proximo form digito "1", quero que venha o arquivo cujo campo na tabela simnao esteja desmarcado, desta maneira tenho certeza que virá somente o ultimo.

http://www.4shared.com/rar/MzRZT9BYce/Portaria_SUBPerus2.html

A Bia, nao dara certo mesmo, pois existem outros registros para o mesmo Cracha sem a SAIDA.



Bia, vc realmente olhou o exemplo que lhe indiquei?
Pois nele tem tudo que precisa, e nao necessitaria nenhuma mudanca na sua Tabela, apenas teria que ajustar seu formulario.e FICARIA MAIS SUTOMATICO o lancamento das saidas...

Mas, mude o comando que abre o formulario para:

Private Sub Comando3_Click()
Dim F As String
F = DMax("Código", "TAB_Acesso", "cracha=" & Me.Txt_RG & " and simnao = 0")
DoCmd.OpenForm "frm_saida2", , , "[Código]=" & F & ""
End Sub

Perfeito, agora é só colocar uma mensagem quando o crachá não tiver "0", porque dá um erro... coloquei assim, mas não deu certo...

Dim F As String
If F = DMax("Código", "TAB_Acesso", "cracha=" & Me.Txt_RG & " and simnao = 0") Then
DoCmd.OpenForm "frm_saida2", , , "[Código]=" & F & ""
Else
MsgBox ("Crachá não lançado entrada. Verifique!"), vbExclamation, "Atenção!"
End If

não abre o formulário mesmo tendo "0"
e assim dá a mensagem mesmo quando tem:

Dim F As String
F = DMax("Código", "TAB_Acesso", "cracha=" & Me.Txt_RG & " and simnao = 0")
DoCmd.OpenForm "frm_saida2", , , "[Código]=" & F & ""

MsgBox ("Crachá não lançado entrada. Verifique!"), vbExclamation, "Atenção!"

Bia, para isso Utilizamos o NZ(antes do Dmax) assim ele conseidera Null como 0, entao se o resultado for 0 ele emite mensagem, se nao abre no cracha correto!

Private Sub Comando3_Click()

Dim F As Integer
F = Nz(DMax("Código", "TAB_Acesso", "cracha=" & Me.Txt_RG & " and simnao = 0"))
If F = 0 Then
MsgBox "Não existe Entradas pendentes para o Crachá : " & Me.Txt_RG, vbExclamation, "Atenção!!!"
Me.Txt_RG = ""
Me.Txt_RG.SetFocus
Else

DoCmd.OpenForm "frm_saida2", , , "[Código]=" & F & ""

End If

PERFECT
Muito obrigado de verdade.