[Resolvido]Adaptar código para função Yes/No

Bom temos o seguiente codigo
Esse código faz o seguiente
quando (escolho sim ele quita a conta)
(quando escolho não ele não cancela a quitação)

acrescentar mas uma msg:permitindo a escolha se quer ou não
imprimir a nota da venda

e fazer com que as funções de sim ou não funcionem corretamente

aos meu amigos mestres vba como ficaria esse código?


Private Sub Quitar_Click()
Me.QuitadaParcial.Value = 0
Dim MSG
MSG = MsgBox("Deseja quitar esta venda? ", vbYesNo + vbQuestion, "ATENÇÃO")
DoCmd.RunCommand acCmdSaveRecord
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "notadevenda"
strFilter = "ID= Forms!caixavenda!ID"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
DoCmd.Close acForm, "caixavenda"

If vbYes Then
Me.Quitar.Value = -1
Me.QuitadaParcial.Value = 0
DoCmd.RunCommand acCmdSaveRecord
Me.Refresh
DoCmd.GoToRecord , , acNewRec
Exit Sub
Else
Me.Quitar.Value = 0
End If
End Sub

Private Sub Quitar_Click()
Me.QuitadaParcial.Value = 0
Dim Msg, Style, Title
Msg = MsgBox("Deseja quitar esta venda? ", vbYesNo + vbQuestion, "ATENÇÃO")
DoCmd.RunCommand acCmdSaveRecord
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "notadevenda"
strFilter = "ID= Forms!caixavenda!ID"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
DoCmd.Close acForm, "caixavenda"

If msg=vbYes Then
Me.Quitar.Value = -1
Me.QuitadaParcial.Value = 0
DoCmd.RunCommand acCmdSaveRecord
Me.Refresh
DoCmd.GoToRecord , , acNewRec
Exit Sub
Else
Me.Quitar.Value = 0
End If
End Sub

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "notadevenda"
strFilter = "ID= Forms!caixavenda!ID"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
DoCmd.Close acForm, "caixavenda"

está parte e a que imprimie a nota

ai se eu esoclher não ele imprimi mesmo assim

Private Sub Quitar_Click()
On Error Resume Next
Dim Msg, Style, Title
Msg = MsgBox("Deseja quitar esta venda? ", vbYesNo + vbQuestion, "ATENÇÃO")
If msg=vbYes Then
Dim strDocName As String
Dim strFilter As String
strDocName = "notadevenda"
strFilter = "ID= Forms!caixavenda!ID"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
Me.Quitar.Value = -1
Me.QuitadaParcial.Value = 0
DoCmd.Close acForm, "caixavenda"
DoCmd.RunCommand acCmdSaveRecord
Me.Refresh
DoCmd.GoToRecord , , acNewRec
Exit Sub
Else
Me.Quitar.Value = 0
End If
End Sub

fiz assim vieria pararece que resolveu


Private Sub Quitar_Click()
Me.QuitadaParcial.Value = 0
Dim Msg, Style, Title
Msg = MsgBox("Deseja quitar esta venda? ", vbYesNo + vbQuestion, "ATENÇÃO")
DoCmd.RunCommand acCmdSaveRecord


If Msg = vbYes Then
Me.Quitar.Value = -1
Me.QuitadaParcial.Value = 0
DoCmd.RunCommand acCmdSaveRecord
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "notadevenda"
strFilter = "ID= Forms!caixavenda!ID"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
DoCmd.Close acForm, "caixavenda"
Me.Refresh
DoCmd.GoToRecord , , acNewRec
Exit Sub
Else
Me.Quitar.Value = 0
End If
End Sub

Se resolveu, coloca o Resolvido e bom trabalho

antes de dar por resolvido

uma pergunta ao mestre

neste mesmo codigo poderia colocar
a opção de escolher imprimir ou não?

A partir do momento que dás o sim, ele vai imprimir porque está definido como acNormal. Eu pessoalmente não gosto trabalhar com impressão directa. Prefiro ver antes, ou seja no modo Preview. Aí escolhe se que ou não imprimir.

mas coseguie aqui adpatar para escolher imprimir ou não caro o cliente não quera
a nota não perco tinta rsrsrsrs

obrigado!!!

grande viera

Bravo companheiro. Cada dia melhor.