[Resolvido]Impressão de relatório

Criei um Tabela, formulário e relatório para impressão de vale para funcionários, no formulário criei botão de cmd para visualização de impressão para verificar  para se estou imprimindo só o registro atual, só que qdo clico não aparece nada, qdo vou para um novo registro se eu selecionar o último que editei aí ele me dá a visualização dos dados no relatório. Campos (ID Vendas, Funcionário, Data e Valor) Quando termino de editar o valor clico em visualizar e não aparece nenhum dado editado. Se puderem como sempre agradeço

Olá,

Era melhor por a tua base de dados em anexo para ver o que se passa.

Cumprimentos

Experimente desta forma no botão cmd:

On Error Resume Next
 Dim strDocName As String
  Dim strFilter As String
  strDocName = "Nome do seu Relatório"
  strFilter = "ChavePrimária= Forms!NomeFormulário!ChavePrimária"
  DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Exemplo no qual a chave primária é o ID e o Relatório "Empregados"

On Error Resume Next
 Dim strDocName As String
  Dim strFilter As String
  strDocName = "Empregados"
  strFilter = "ID= Forms!frmempregados!ID"
  DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Coloquei a expressão como segue abaixo, mas o programa me retorna dizendo que há um (erro de sintaxe)
Private Sub Comando14_Click()
On Error GoTo Err_Comando14_Click

Dim strDocName As String
Dim strFilter As String

strDocName = "Vale"
strFilter = "Id Vale= Forms!Vale de Funcionário!Id Vale"
DoCmd.OpenReport strDocName, acPreview, , strFilter

Exit_Comando14_Click:
Exit Sub

Err_Comando14_Click:
MsgBox Err.Description
Resume Exit_Comando14_Click

End Sub

Boa tarde

Existem algumas violações das regras de escrita no access e que podem dar conflitos, mas vamos por partes:

1- Id Vale como chave primária. Ou junte assim...IdVale, ou elimine o vale e fica só o Id. Da forma que está. está mal.

2- strFilter = "Id Vale= Forms!Vale de Funcionário!Id Vale" Também está mal. ValeFuncionário estaria bem, o contrário está mal.

3- Para que o código que lhe passei funcione, a chave primária da tabela e da sub tabela devem ser as mesmas, devendo a primeira ser númeração automática e a segunda número inteiro longo. Relação de um para muitos. Desta forma garanto o funcionamento. Para ter uma ideia do que estou a falar, fique com este exemplo.

Um pitaco,

Você diz, Quando termino de editar o valor clico em visualizar e não aparece nenhum dado editado

Pois você tem de salvar primeiro, para poder ter visualização da alteração.

Depois para abrir o relatorio no registro atual do form, é o simples.

DoCmd.OpenReport "SeuRelatorio", , , "[SeuCampo] = " & Me.SeuCampo

Se o campo a filtrar for texto, será,

DoCmd.OpenReport "SeuRelatorio", , , "[SeuCampo] = '" & Me.SeuCampo & "'"

É realmente já acontece isso, quando clico em novo registro (assim salva o último), é só eu selecionar qualquer outro registro já salvo que ele me dá a visualização individual no relatório. Sendo que eu estava tentando era após a última tabulação que ele me desse tanto a visualização no relatório da tela atual para impressão. Vou fazer a modificação e depois posto dizendo se deu certo. Valeu