[Resolvido]Salvar e imprimir

Oi pessoal, precisando de mais uma ajuda
O problema é o seguinte estou usando um botão de comando para abrir um relatorio e no registro atual, só que quando faço alguma alteração em um dos campos do formulario, não aparece no relatório, tenho que voltar ao formulario e navegar deum registro para outro, ai volto no registro que quero e peço para abrir o relatório ai aparece os dados corretamente, o coódigo que estou usando é esse:

Private Sub Comando9_Click()
On Error GoTo Err_Comando9_Click

Dim stDocName As String

stDocName = "rtlIsento"
DoCmd.OpenReport "rtlIsento", acViewPreview, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"

Exit_Comando9_Click:
Exit Sub

Err_Comando9_Click:
MsgBox Err.Description
Resume Exit_Comando9_Click

End Sub


tem como nesse mesmo botão primeiro salvar e depois abrir o reltório?, eu entei colocar um cóodigo mas travou o meu bd.
Obrigada Amanda

Olá, tente assim:

Private Sub Comando9_Click()
On Error GoTo Err_Comando9_Click
Me.Refresh
Dim stDocName As String

stDocName = "rtlIsento"
DoCmd.OpenReport "rtlIsento", acViewPreview, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"

Exit_Comando9_Click:
Exit Sub

Err_Comando9_Click:
MsgBox Err.Description
Resume Exit_Comando9_Click

End Sub

Oi David, obrigado pela dica funcionou, obrigada, da para acrescentar neste código uma opção de imprimir ou só visuaizar?, obrigada novamente

Tanto imprimir como vizualizar. Voce quer primeiro vizualizar?

Certo mas como colocar para imprir depois de visualizar, ou assim abrir com uma mensagem deseja imprimir, caso positivo clicar em sim e imprimir se clicar em não ai só visualizar, não sei se fui clara. Obrigada

Olá! Sem querer me intrometer, pode tentar algo assim:

Private Sub Comando9_Click()

On Error GoTo Err_Comando9_Click
Me.Refresh

Dim stDocName As String, Msg As String

stDocName = "rtlIsento"
Msg = MsgBox("Deseja imprimir? Clique em Sim para imprimir ou Não para visualizar", vbYesNo + vbQuestion, "Opções")

Select Case Msg
Case vbYes
DoCmd.OpenReport "rtlIsento", acViewNormal, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"
Case vbNo
DoCmd.OpenReport "rtlIsento", acViewPreview, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"
End Select

Exit_Comando9_Click:
Exit Sub

Err_Comando9_Click:
MsgBox Err.Description
Resume Exit_Comando9_Click

End Sub

Oi Criquio obrigada por ajudar tb, eu testei e funcionou perfeitamente, só mais uma curiosidade eu vou esconder a janela do access o relatório abre normalmente?

Acredito que apenas terá que se certificar de que as propriedades Popup e Janela restrita estejam como Sim.

Valeu, a todos pela ajuda. qualquer coisa em volto a perguntar. Obrigada novamente

Só faltou o resolvido...

Oi desculpe falta pouco, nesse código que o Criquio fez para imprimir, tem como colocar um terceiro botão com a opção de cancelar, ficar Sim, Não e Cancelar.
Obrigada

Tente o seguinte:

Private Sub Comando9_Click()

On Error GoTo Err_Comando9_Click
Me.Refresh

Dim stDocName As String, Msg As String

stDocName = "rtlIsento"
Msg = MsgBox("Deseja imprimir? Clique em Sim para imprimir ou Não para visualizar", vbYesNoCancel + vbQuestion, "Opções")

Select Case Msg
Case vbYes
DoCmd.OpenReport "rtlIsento", acViewNormal, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"
Case vbNo
DoCmd.OpenReport "rtlIsento", acViewPreview, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"
Case vbCancel
Exit sub
End Select

Exit_Comando9_Click:
Exit Sub

Err_Comando9_Click:
MsgBox Err.Description
Resume Exit_Comando9_Click

End Sub

Veja se dá:

Private Sub Comando9_Click()

On Error GoTo Err_Comando9_Click
Me.Refresh

Dim stDocName As String, Msg As String

stDocName = "rtlIsento"
Msg = MsgBox("Deseja imprimir? Clique em Sim para imprimir ou Não para visualizar", vbYesNoCancel + vbQuestion, "Opções")

Select Case Msg
Case vbYes
DoCmd.OpenReport "rtlIsento", acViewNormal, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"
Case vbNo
DoCmd.OpenReport "rtlIsento", acViewPreview, , "[CodigoControle] ='" & Me.[CodigoControle] & "'"
Case Else
End Select

Exit_Comando9_Click:
Exit Sub

Err_Comando9_Click:
MsgBox Err.Description
Resume Exit_Comando9_Click

End Sub

Oi Criquio e David, muito obrigada, agora ficou perfeito. Tópico resolvido

Valeu. Só faltou clicar no Resolvido. Dessa vez eu o faço.