[Resolvido]Preenchimento de dados

Boa tarde a todos!

Antes demais, não posso de deixar de dar os parabéns pelo excelente forum, e pelos exemplos/trabalhos aqui apresentados... são de uma ajuda extrema!


Bem, problema/dúvida é a seguinte:

Tenho um formulário e queria criar um botão que fosse buscar os dados da linha/registo anterior e colasse na nova linha.
exemplo:

Linha/Registo 1 -> Produto X | Descrição Y | Quantidade Z

ao clicar num botão ele iria colar os dados do Produto X e a descrição Y para o novo registo... A quantidade já seria posto manualmente.

Não sei se me fiz entender, mas se alguém tiver uma sugestão agradecia.


Desde já agradeço a ajuda,
miighty

Olá miighty,

Utilize para esse fim a função DLast para seu botão.

'********************************************************************
Private Sub cmdInserir_Click()
On Error Resume Next

DoCmd.RunCommand acCmdRecordsGoToNew

Dim sUltimo As String

sUltimo = DLast("Produto","SuaTabela")

Produto = sUltimo


sUltimo = DLast("Descricao","SuaTabela")

Descricao = sUltimo
End Sub
'**********************************************************************

Logo quando chegar a casa irei tentar, depois direi se funcionou ou não!

Obrigado pela ajuda ;D

Bem parece que esse código, não faz bem aquilo que eu pretendia.
Irei deixar aqui um exemplo em BD e tentarei explicar melhor o que quero.

Ao abrirmos a BD, abrindo também o formulário Listagem, este apresentar-nos-a uma listagem! (até aqui tudo bem)

Ao fazermos duplo clique numa Nomenclatura, este irá abrir outro formulário ontem aparecem todos os itens que pertencem a esse "produto" (até aqui tudo em ordem tb)

O meu problema é:
Nesse tal formulário, tenho lá um sub-formulário, em que cada vez que eu clicasse no botão "Novo" ele adicionasse um novo registo nesse sub-formulario (o que está a fazer), só que, em vez de adicionar essa linha em branco, queria que ele preenchesse os dados do NNA e da Nomenclatura a que pertence.

Não sei se me fiz entender... mas caso alguém tenho uma sugestão é bem vinda.

Obrigado!

Olá, bom dia!

No código do seu botão NOVO, coloque a seguinte instrução:

Private Sub Comando44_Click()

'A condição abaixo testa onde está o curso no subformulário. Se ele estiver em um registro que já possui dados, então ele irá para um novo. Se não for colocado esta instrução, ele irá subscrever os dados já inseridos. E se colocar o RunCommand direto, ele vai executar se o cursor estiver em um registro já editado. Se não estiver no registro preenchido e sim já posicionado na linha do novo registro, ele retornará um erro. Então é prudente colocar a linha abaixo.
If Me.NNA.Value > 0 Then DoCmd.RunCommand acCmdRecordsGoToNew

Me.NNA.Value = Forms!sublistagem!NNA.Value
Me.Nomenclatura = Forms!sublistagem!Nomenclatura.Value

'Se você quiser salvar logo que inserir os dados automaticamente, então coloque a linha abaixo.
DoCmd.RunCommand acCmdSaveRecord

End Sub

Era isso mesmo que precisava.

Muito obrigado a todos pela ajuda ;P

Feliz em ajudar!

Ah! Não esqueça de clicar em resolvido.

Abraços.

Mais uma vez, Obrigado a todos!