[Resolvido]Caixa de texto mostrar ultimo registro

Amigos,talvez seja algo simples pra vcs,tenho um formulario onde cadastro produtos,pois bem, eu quero que em uma caixa de texto apareça o ultimo codigo do produto digitado.

Abraços e obrigado.

Boa noite Kanan.
Crie um form com fonte de registro do cadastro de produtos.
Neste form coloque um campo do id do cadastro.
Na opção ao abrir do form, coloque para ir para o último registro (docmd.GoToRecord,,acLast).
Coloque este form no seu form de cadastro (não acoplado).
Pronto.
Espero ter ajudado.
PS: Existem outra opções, mas esta é a mais prática, sem programação.
Abraços.

Boa noite CMachado,obrigado por me atender tão prontamente,
teria um geito de fazer um exemplo pra mim entender melhor essa tua dica.
Obrigado

No evento ao carregar do seu formulário coloque:

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SuaTabelaProduto")
rst.MoveLast
SuaCaixaDeTexto = rst("NomeDoCampoDoCodigo")
rst.Close
Set rst = Nothing

Bom dia.
Como havia dito, existem opções com programação.
Siga as dicas do Dilson que são muito mais convenientes e práticas.
Precisando estamos ai.
Abraços.

Obrigado pelas dicas pessoal,seguindo a dica do Dilson,na caixa de texto onde coloco aquele código,lembrando que na minha tabela não é com numeração automatica.

obrigado

Depende;

Em que momento quer visualizar na caixa de texto ?

Obs:
Titulo do tópico alterado.

OI JPaulo,é assim, como disse tenho um formulario de cadastro de produtos,quero neste formulario uma caixa de texto que apareça sempre o ultimo código do produto digitado,por exemplo:o último produto que cadastrei seja codigo 500,na caixa texto fique aparecento o 500,cadastrei mais um produto,apareça na caixa 501 e assim por diante.

Obrigado.

Intão é só fazer como o Dilson lhe ensinou;

No evento VBA do seu formulario;

Altere nesta instrução, para os nomes corretos da sua tabela e campos;

Private Sub Form_Current()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Select * from SuaTabela")
rst.MoveLast
Me.SuaCaixaDeTexto = rst("NomeDoCampoDoCodigo")
rst.Close
Set rst = Nothing
End Sub

Muito bom JPaulo...

eu tenho um problema no bd q sempre aparece a msn "inserir o valor no parâmetro da unidade"...

se eu der cancelar, o último ítem registrado fica a vista, e digito o próximo registro.

valew.

Valeu JPaulo,Dilson,deu certinho,obrigado a todos voces.

Obs:To aprendendo muito neste forum.