[Resolvido]Respostas empregadas pela MsgBox em conjunto com função If Then e Else

Pessoal, novamente venho aqui pois estou tendo uma pequena dificuldade para fazer funcionar este codigo.

eu tentei este aqui

Private Sub tblCheque_AfterUpdate()
If Me.tblCheque <> "" Then
MsgBox "Você tem certeza que este é o cheque enviado para o pagamento deste pedido?", vbYesNo, "Confirmação de Cheque"
ElseIf vbYes Then
Me.DataRec.SetFocus
Me.Vinculado = -1
Me.ValorRec = Me.Valor
Me.DataRec = Me.Data
Me.NumDocumento = Me.NCheque
ElseIf Mensag = vbNo Then
MsgBox "Escolha o cheque pertinente a esta operação", vbCritical, "Selecione o Cheque Correto"
Me.tblCheque.SetFocus
Me.tblCheque = Empty
Me.ValorRec = 0
Me.DataRec = ""
Me.NumDocumento = ""
Me.Vinculado = 0
End If
End Sub

Esse ai de cima, me da a caixa de mensagem, mais não executa as ações.

e depois este
que nada acontece.


Private Sub tblCheque_AfterUpdate()
If Me.tblCheque <> "" Then
Sub ConjRespostaCheque()
Dim Vinculo As Boolean
Dim Valor As Currency
Dim Datas As Date
Dim Mensag As VbMsgBoxResult
Dim CHQ As Integer
Mensag = MsgBox("Você tem certeza que este é o cheque enviado para o pagamento deste pedido?", vbYesNo, "Confirmação de Cheque")
If Mensag = vbYes Then
DoCmd.GoToControl "DataRec"
Vinculo = Me.Vinculado = -1
Valor = Me.ValorRec = Me.Valor
Datas = Me.DataRec = Me.Data
CHQ Me.NumDocumento = Me.NCheque
ElseIf Mensag = vbNo Then
MsgBox "Escolha o cheque pertinente a esta operação", vbCritical, "Selecione o Cheque Correto"
Me.tblCheque.SetFocus
CHQ = Me.tblCheque = Empty
Valor = Me.ValorRec = 0
Datas = Me.DataRec = ""
CHQ = Me.NumDocumento = ""
Vinculo = Me.Vinculado = 0
End If
End Sub

Então, este código deveria funcionar assim.
Apos eu selecionar um cheque dentro da tblCheque, quando este campo é diferente de Vazio ele me apresentaria uma MsgBox SIM/Não onte se eu clicasse em sim ele marcaria uma caixa de (sim/não) ou seja Sim=-1 e Não=0.
Se Clicasse sim ele me daria aqueles resultados, se não o restante do proposto.
Mas quando eu faço o procedimento ele pula a primeira etapa, e não da em nada.

Obrigado desde Já,

Márcio P. Soares
Access 2010

Boa tarde,
Nomeie de forma normalizada
Veja se funciona
Private Sub tblCheque_AfterUpdate()
If Me.tblCheque <> "" Then
if MsgBox ("Você tem certeza que este é o cheque enviado para o pagamento deste pedido?", vbYesNo, "Confirmação de Cheque")vbyes then
Me.DataRec.SetFocus
Me.Vinculado = -1
Me.ValorRec = Me.Valor
Me.DataRec = Me.Data
Me.NumDocumento = Me.NCheque
Else
MsgBox "Escolha o cheque pertinente a esta operação", vbCritical, "Selecione o Cheque Correto"
Me.tblCheque.SetFocus
Me.tblCheque = Empty
Me.ValorRec = 0
Me.DataRec = ""
Me.NumDocumento = ""
Me.Vinculado = 0
End If
End If
End Sub

Agradeço pela sua Ajuda!

Que Deus te abençoe grandemente!

Mantenha o título para a sua finalidade de síntese da dúvida