[Resolvido]Enviar registro atual do formulário

Poderiam me ajudar?
Uso esse código para enviar um formulário em aberto, funciona normal... Porem ele enviar todos registros, gostaria de saber se é possível enviar somente o regístro do formulário em aberto.

Código:

Private Sub bt_salvarenviar_Click()
On Error Resume Next

    Dim stFormName As String
    Dim contact As String
    Dim CC As String
    Dim cco As String
    Dim Subject As String
    Dim Body As String
    
    stFormName = "fml_tratativa"
    contact = "Destinataio@gmail.com"
    CC = "copia@gmail.com"
    cco = "copiaOculta@gmail.com"
    Subject = "Tratativas"
    Body = "Olá" + vbNewLine + "Segue em anexo arquivo da tratativa de N° " & Me.txt_id
    DoCmd.SendObject acForm, stFormName, acFormatPDF, contact, CC, cco, Subject, Body
    
Exit_bt_salvaenviar_Click:
    Exit Sub

Err_bt_salvarenviar_Click:
    Dim erro As String
    erro = MsgBox("Esse contato não possui e-mail cadastrado.", vbOKOnly)
End Sub

Amigo, não sei se vai resolver, mas eu tentaria duas coisa.

A 1ª alterar a propriedade do formulário guia Outra e Ciclo para registro atual.

e a segunda uma consulta sql retornando o registro que eu quero... tipo Select * from sua tabela where id = 123.

Tente ai e me fala.

Tentei a primeira opção e não deu certo, me explique melhor a segunda opção porfavor?

Fiz o seguinte:

Private Sub bt_salvarenvia_Click()
DoCmd.OpenReport "Tratativas", acViewPreview, "", "[ID]=[forms]![fml_fotoinspetor]![ID]", acNormal 'abre o relatorio
On Error Resume Next

   Dim stReportName As String      'alterei o código para abrir um relatório em vez de um form.
   Dim contact As String
   Dim CC As String
   Dim cco As String
   Dim Subject As String
   Dim Body As String
   
   stReportName = "Tratativas"
   contact = "destinatario@max.com.br"
   CC = "copia@max.com.br"
   cco = ""
   Subject = "Tratativas"
   Body = "Olá" + vbNewLine + "Segue em anexo arquivo da tratativa de N° " & Me.txt_id
   DoCmd.SendObject acReport, stReportName, acFormatPDF, contact, CC, cco, Subject, Body
   
Exit_bt_salvaenvia_Click:
   Exit Sub

Err_bt_salvarenvia_Click:
   Dim erro As String
   erro = MsgBox("Esse contato não possui e-mail cadastrado.", vbOKOnly)
End Sub

Funcionou perfeitamente, espero que ajude os demais que tiveram a mesma dificuldade.