[Resolvido]Pesquisando o registro atual e imprimi-lo

Bom Dia, Pessoal

       Tenho criado um formulário, onde possui um botão para imprimir a ficha do funcionário referente ao registro corrente (atual), como não tenho experiencia em access, estou aprendendo e convivendo agora, estou tendo uns probleminhas. Tenho feito esse comando apos clicar no botão imprimir a ficha. Minha dúvida é como que devo proceder na codificação desta linha que esta com a seta (<----), qual campo devo inserir corretamente, o CódigoCliente e da tabela e  T_CodigoCliente do campo do formulário, qual e o correto fazer. Fico no aguardo por suas orientações, grato

Private Sub Btn_ImprimirFicha_Click()
DoCmd.RunCommand acCmdSaveRecord 'Salva o Registro Editado
If MsgBox("Imprimir Registro Atual?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then
  Cancel = True
  Exit Sub
Else
  Dim stDocName As String
  Dim stRegAtual As String
  stDocName = "RelFichaFuncionario"
  stRegAtual = "[CódigoCliente] =" & Me![T_CodigoCLiente]  <---------
  DoCmd.OpenReport stDocName, acPreview, , stRegAtual
  DoCmd.Maximize
  DoCmd.RunCommand acCmdFitToWindow
  DoCmd.RunCommand acCmdZoom100
  Me.Visible = False
End If
  DoCmd.GoToRecord , , acNext
End Sub



Obs.: Alem dessa possibilidade que tenho inserido acima, existe algum outro meio em que eu possa inserir no proprio relatorio para que seja o registro atual e seja impresso?

Ola;

O comando Private Sub SeuBotão Click, não tem a opção Cancel, deve utuilizar "DoCmd.CancelEvent"

Se CódigoCliente existe no report e é numerico, então a instrução está correta, mas altere para esta sequencia;

Código:

Private Sub Btn_ImprimirFicha_Click()
  Dim stDocName As String
  Dim stRegAtual As String
DoCmd.RunCommand acCmdSaveRecord 'Salva o Registro Editado
  stDocName = "RelFichaFuncionario"
  stRegAtual = "[CódigoCliente] =" & Me![T_CodigoCLiente]
  
If MsgBox("Imprimir Registro Atual?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then
  DoCmd.CancelEvent
  Exit Sub
Else
  DoCmd.OpenReport stDocName, acPreview, , stRegAtual
  DoCmd.Maximize
  DoCmd.RunCommand acCmdFitToWindow
  DoCmd.RunCommand acCmdZoom100
  Me.Visible = False
End If
  DoCmd.GoToRecord , , acNext
End Sub


Bom Dia, JPaulo

Fico grato pela atenção e pela cooperação no auxilio do meu aprendizado, esta funcionando perfeitamente, parabéns!


Nesta mesma Ficha de Cadastro do Funcionário(Relatório), possuo o campo image para receber a foto do funcionário que tenho inserido no formulário(form), este comando abaixo é o que tenho praticado para trazer a foto no Formuário, gostaria de saber como devo proceder para que esta mesma imagem possa ser inserida no relatório desta Ficha de Cadastro do Funcionario(Relatorio). Fico grato pela atenção. Ótimo dia a todos.

Private Sub BuscaFotoFunc_Click()
Dim s As String
s = OpenCommDlg()

If s <> "" Then
FotoFunc = s
FotoFunc_AfterUpdate
End If
End Sub



Private Sub FotoFunc_AfterUpdate()
Dim s As String
s = Nz(FotoFunc.Value, "")
If s <> "" Then s = IIf(Dir(s) = "", "", s)
On Error Resume Next
ImagemFunc.Picture = s
If Err.Number <> 0 Then ImagemFunc.Picture = ""
On Error GoTo 0
End Sub

Obrigado pelo retorno;

Veja e adapte este exemplo que fiz aqui no forum em 2012;

http://dl.dropboxusercontent.com/u/771097/6_fotos.rar

Bom Dia, JPaulo

Grato pelo enviado o programa, creio que seja esse o método do qual vou precisar usar. Só que como não tenho experiencia, não consegui abrir o programa, quando clico em stop, fecha todo o programa e não consegui visualizar os comandos para que pudesse avaliar de como estar inserindo no meu projeto. Caso possa estar orientando-me nos procedimentos de como habilitar o programa do qual enviou, assim vou poder verificar. Grato

Att
Amarildo

Boa Noite, JPaulo

Consegui efetuar a emissão da imagem por outro método do qual encontrei na internet e encontra-se funcionando perfeitamente. Conforme segue abaixo o código.

Obs.: Caso possa disponibilizar o código fonte do exemplo que havia enviado , gostaria muito, grato

Private Function GetPathPart() As String
Dim db As DAO.Database
Dim strPath As String
Dim intCounter As Integer

strPath = "C:\CadFuncionarios\ImageFunc"
Set db = CurrentDb
strPath = db.Name
db.Close
Set db = Nothing

For intCounter = Len(strPath) To 1 Step -1
If Mid$(strPath, intCounter, 1) = "\" Then
Exit For
End If
Next intCounter

GetPathPart = Left$(strPath, intCounter)

End Function

Private Sub Report_Current()

If Not Me!txtPicture = "" Or Not IsNull(Me!txtPicture) Then
Me!ImagemFunc.Picture = GetPathPart & Me!txtPicture
Else
Me!ImagemFunc.Picture = NoImage
End If

exit_Report_Open:
Exit Sub

err_Report_Open:
MsgBox Err.Description
Resume exit_Report_Open
End Sub