(Resolvido) Dúvida sobre formulários

[Inffernus]

Boa noite pessoal, sou novo no Access...

Seguinte, criei um BD com um formulário do qual a pessoa lança informações em uma tabela, e, nesse mesmo formulário introduzi um botão que chama outro formulário p/ impressão com menas informações.

Usei o código:

Private Sub Botao_Ficha_Click()

On Error GoTo Err_Botao_Ficha_Click

Dim stDocName As String

stDocName = "frmFichaImpressao"

DoCmd.OpenForm stDocName

DoCmd.RunCommand acCmdPrintPreview

MsgBox ("Em Imprimir, Intervalo de Impressão, defina: Páginas De: 1 Até: 1"), [vbExclamation], ("ATENÇÃO")

Exit_Botao_Ficha_Click:

Exit Sub

Err_Botao_Ficha_Click:

MsgBox Err.Description

Resume Exit_Botao_Ficha_Click

End Sub

Só que tenho um grande problema, toda vez que clico no Botão "Ficha" o Formulário carrega o primeiro Registro da tabela e não o registro atual! :huh:

Gostaria que vocês me falassem qual comando esta faltando para que quando eu clique no botão "Ficha" e ele chama o formulário de impressão o mesmo carregue do principal os dados atuais. :rolleyes:

[Leandro Abbade]

Boa noite amigo,

Veja este exemplo:

http://www.professorlar.com/contarcliques3..._especifico.zip

Caso não resolva, entre no meu site na área de DICAS.

[Inffernus]

Não existiria uma forma de apenas acrescentar um comando a este mesmo botão? :unsure:

[Evanjos]

DoCmd.OpenReport "Relatório", acViewPreview, , "CampoChave = forms!NomedoFormulário!CampoChave"

[Inffernus]

Leandro, através de uns códigos que você usou no programa que você deixou em anexo eu consegui fazer funcionar, só que achei o código muito grande para uma função tão simples no meu BD, então o código que o Evanjos deixou era o que eu estava procurando, muito obrigado!

Obrigado aos dois!

Abraço,

Valeu! :rolleyes: