[Resolvido]Gerar relatório de registro filtrado

Bom dia a Todos,

Tenho conhecimentos básicos em Acces e já gastei horas em pesquisas e tentativas e por fim vim recorrer a ajuda.
Tenho um banco de dados com fichas de alunos e quero gerar um relatório a partir de um registro filtrado, ou seja, no Formulário criei um botão que abre uma consulta para filtrar o nome do aluno por meio de uma caixa de diálogo, após a aplicação dessa consulta/filtro podem ser gerados um ou diversos registros, o que eu preciso é gerar um relatório "apenas do registro que aparece na tela" com o cadastro do aluno, para imprimir por exemplo um contrato pré formatado com os dados desse aluno.

Obrigado,

Bom dia amigo, seja bem vindo.

Teste algo desse tipo:

DoCmd.OpenReport "Nome_Do_Relatorio",acViewPreview,,"codigo = " & me!codigo

Salve Fernando, grato pela acolhida.
Como já disse tenho noções básicas de Access por isso perdoe a pergunta básica: Onde insiro esse comando?
Abraços

Bom dia..

Só seguir a dica do grande mestre Avelino.

Bom dia a todos,

Criei o botão fazendo o caminho Botão>Operações de Relatório>Imprimir relatório em seguida na lista de opções selecionei o relatório que preciso imprimir (Rel Ficha do Aluno) inseri o código onde neste coloquei o nome do meu relatório Rel Ficha do Aluno, salvei e já no modo formulário filtrei um registro e quando cliquei no botão surgiu a mensagem:

"O Microsoft Office Access não pode localizar o campo "codigo" referido na sua expressão"

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Private Sub Comando108_Click()
On Error GoTo Err_Comando108_Click

Dim stDocName As String

stDocName = "Rel Ficha do Aluno"
DoCmd.OpenReport "Rel Ficha do Aluno", acViewPreview, , "codigo = " & Me!codigo

Exit_Comando108_Click:
Exit Sub

Err_Comando108_Click:
MsgBox Err.Description
Resume Exit_Comando108_Click

End Sub


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Tenho que substituir a palavra codigo por alguma expressão?  Lembrando que estou usando o Access 2003.

Abraços

Tem de substituir pelo nome do seu campo a filtrar... 

Bom dia a todos...

Cicero, você esta a utilizar "macros". O indicado, é usar em VBA.

Como proceder para utilizar o VBA.

1- depois de criado o botão para a impressão do relatório, vá em propriedades, aba eventos clicar ao lado da expressão " executar macro", nos 3 pontinhos que tem.

2- vai abrir para você uma caixa de dialogo, seleciona [ construtor de códigos]

3- vai abrir uma tela para você. Exatamente no procedimento " ao clicar " do teu botão.

4- Copia e cola o código, que o Avelino Sampaio lhe passou.

5- mude de "Nome_Do_Relatorio" para o nome do teu relatório.

6- mude de "me!codigo" para a chave primária de tua tabela, mantendo o comando " me!chaveprimaria"

É isso.

Abraços

Caro Silvio,

Vi uma luz no fim do túnel com a sua dica, fiz exatamente como você sugeriu e ao clicar no botão surgiu uma caixa de diálogo pedindo a chave primária que no caso é o numero do contrato (No), digitei o numero do contrato do aluno que já tinha filtrado e visualizei a impressão de todos os alunos e não somente o aluno filtrado.

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Private Sub Comando109_Click()
On Error GoTo Err_Comando109_Click

Dim stDocName As String

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "Rel Ficha do Aluno", acViewPreview, , "Codigo = " & Me!No

Exit_Comando109_Click:
Exit Sub

Err_Comando109_Click:
MsgBox Err.Description
Resume Exit_Comando109_Click

End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Obrigado

bom, vamos então com calma. Vamos aplicar um filtro ao teu relatório.

Private Sub bt_imprimir_Click()
Dim strDocName As String
Dim strFilter As String
strDocName = "Rel Ficha do Aluno" ' nome do relatório
strFilter = "no=forms!nomedoseuformulárioaqui!no" 'filtro aplicado no relatorio
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
End Sub


Sugestão.....

As boas práticas em programação dizem que:

* não usar acentos ou espaços para nomes de tabelas, formulários, consultas ou relatórios.
* normatizar tabelas como :tblalunos.
* normatizar fomulários como: frmalunos.
* normatizar consultas como: qryalunos.
*normatizar relatórios como : rptalunos.

Andava com o mesmo problema que o ciceroarq, mas ja consegui resolver, mas quando aparece a mensagem para indicar o numero que quero no registo, se faço cancelar ele manda-me ir dar uma "volta"

E assim ?


Private Sub bt_imprimir_Click()
On Error Go To 1
Dim strDocName As String
Dim strFilter As String
strDocName = "Rel Ficha do Aluno" ' nome do relatório
strFilter = "no=forms!nomedoseuformulárioaqui!no" 'filtro aplicado no relatorio
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
1:
If Err.Number = 2105 Then
Exit Sub
End If
End Sub

Mais uma vez o meu obrigado.

Obrigado pelo retorno o forum agradece.

Bom dia, acabei por pedir a ajuda de um amigo que assim como o Silvio e o JPaulo aplicou um filtro ao relatório, no princípio ao clicar no botão imprimir o relatório pedia para digitar de novo o nome do aluno, sendo assim criei outra consulta + macro + novo botão para pesquisar não por nome mas sim por numero do contrato, assim faço a pesquisa para achar o aluno e estou com a ficha dele na tela, ao clicar no botão imprimir contrato ele (com o filtro no relatório) me pede o numero do contrato que fica fácil que ele já está na tela é só digitar o mumero e imprime o relatório desejado.

Senhores, muitíssimo obrigado pela atenção e dicas, a internet tem muita porcaria mas uma das coisas boas é a solidariedade das pessoas que gastam seu precioso tempo para auxiliar as outras como acontece nesse e em outros fóruns.

Abraços a todos

Fico feliz, por poder concretizar com sucesso todas as suas duvidas aqui.