[Resolvido]Formulário Vendas

Private Sub btnNovo_Click()
Dim SN As VbMsgBoxResult
SN = MsgBox("Deseja imprimir a venda?", vbYesNo, "Confirmação")
If SN = vbYes Then
DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
DoCmd.PrintOut
Call limpaCampos
End If
End Sub

Preciso de Ajuda com esse código para imprimir as vendas
Quando vou finalizar a venda exibe uma expressão dizendo se quero imprimir vendas quando clico em sim funciona e direciona uma nova venda quando clico em não gostaria que cancelasse a impressão e direcionasse uma nova venda sera que alguém pode me ajudar!
ai esta meu BD.

Boa tarde, Grande, e bem-vindo ao fórum
Entrei no form vendas, premi Finalizar Vendas e escolhi "Não". Não imprimiu
Se assim não for, indique passo-a-passo como se chega ao erro e o que pretendia que acontecesse

Tente assim:

Private Sub btnNovo_Click()
Dim SN As VbMsgBoxResult
SN = MsgBox("Deseja imprimir a venda?", vbYesNo, "Confirmação")
If SN = vbYes Then
DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
DoCmd.PrintOut
Call limpaCampos
If SN = vbNo
DoCmd.GoToRecord , , acNewRec
End If
End If
End Sub

Postamos juntos Alexandre!

Leandro acrescentei esse código que você passou deu erro
tentei colocar assim.
Private Sub btnNovo_Click()
Dim SN As VbMsgBoxResult
SN = MsgBox("Deseja imprimir a venda?", vbYesNo, "Confirmação")
If SN = vbYes Then
DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
DoCmd.PrintOut
Call limpaCampos
If SN = vbNo Then
DoCmd.GoToRecord , , acNewRec
End If
End If
End Sub

Mas continuou igual não limpa os campos para uma nova venda

ou assim...

If MsgBox(" Deseja imprimir essa venda ?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso Sistema") = vbOK Then
DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
DoCmd.PrintOut
Call limpaCampos
DoCmd.GoToRecord , , acNewRec

else
msgbox " nada foi impresso"
end if

End Sub

é apenas uma ideia.

Então:

Private Sub btnNovo_Click()
Dim SN As VbMsgBoxResult
SN = MsgBox("Deseja imprimir a venda?", vbYesNo, "Confirmação")
If SN = vbYes Then
DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
DoCmd.PrintOut
Call limpaCampos
If SN = vbNo Then
Call limpaCampos
DoCmd.GoToRecord , , acNewRec
End If
End If
End Sub

Bem leandro e Silvio as dua maneiras de vocês Funciona ao clicar em sim finaliza a venda e imprime mas quando clico em não, também não imprime, até ai tudo bem mas só que não finaliza a venda para poder vender novamente.

Assim deu certo aqui:

Private Sub btnNovo_Click()
Dim SN As VbMsgBoxResult
SN = MsgBox("Deseja imprimir a venda?", vbYesNo, "Confirmação")
If SN = vbYes Then
DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
DoCmd.PrintOut
Call limpaCampos
Else
Call limpaCampos
DoCmd.GoToRecord , , acNewRec
End If
End Sub

Opa! Postamos juntos!

Valeu meus amigos pela força de vocês e pelas ideias consegui resolver o código ficou assim

Private Sub btnNovo_Click()
Dim SN As VbMsgBoxResult
SN = MsgBox("Deseja imprimir a venda?", vbYesNo, "Confirmação")
If SN = vbYes Then
DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
DoCmd.PrintOut
Call limpaCampos

Else
Call limpaCampos
DoCmd.GoToRecord , , acNewRec
Me.Requery
End If
End Sub

dessa maneira funcionou beleza valeu e um abraço a todos.

Valeu.....aprendemos juntos !!

Agradecemos o retorno!