[Resolvido]Botão salvar verificando se subformulário foi preenchido

Bom dia pessoal!

Tenho um formulário com dados do pedido e um subformulário com dados do itens do pedido. Criei um botão salvar e preciso que ele verifique antes de salvar se houve registros cadastrados no subformulário. Com o código abaixo eu consegui que ele verificasse, mas ele não prossegue com o códido depois de verificar. Poderiam me dizer o que há de errado com meu código?


Private Sub btn_Salvar_Click()

Me.cmb_StatusVenda = "ATIVA"


DoCmd.GoToControl ("frm_Item_Venda1")
DoCmd.GoToRecord , , acFirst

If IsNull(Forms!frm_Cadastro_Venda.frm_Item_Venda1!Quant_Item) = True Or (Forms!frm_Cadastro_Venda.frm_Item_Venda1!Quant_Item = "") Then
  MsgBox "Este campo está em branco!", vbCritical, "ATENÇÃO"
  Exit Sub


_____Ele vem até aqui e depois volta para (DoCmd.GoToControl ("frm_Item_Venda1")
DoCmd.GoToRecord , , acFirst))



Else
   
Dim X As Integer
If Me.Dirty Then
X = MsgBox("Deseja salvar as alterações ?", vbYesNo)
If X = vbNo Then
End If
End If
End If
End Sub


Desde já agradeço a ajuda!

bom dia! lumoquenco.

Se não estou errado, se ele entrar no primeiro IF, é por causa do " Exit Sub", função com que faz ele sair e encerrar o If.

att, Sidney

Sim Sidney, ele entra no 1º If e quando sai ele volta para o

DoCmd.GoToControl ("frm_Item_Venda1")
DoCmd.GoToRecord , , acFirst

Na verdade, fiz alguns testes e ele só não entra na rotina:

Dim X As Integer
If Me.Dirty Then
X = MsgBox("Deseja salvar as alterações ?", vbYesNo)
If X = vbNo Then
End If
End If

Já tirei o "Exit Sub" e não funcionou.

Coloquei Me.btn_Salvar.SetFocus em baixo desta rotina e o cursor chega aí.

Boa noite!!
tenho essa função veja se serve para lhe ajudar

Public Function VerificarCamposVazios()

'#Código de Eduardo Machado (Good Guy) - 2015
On Error Resume Next
Dim strMsg As String
Dim intRetVal As Integer
Dim ctl As control
Dim sCampoX As Variant


strMsg = "Verificar dados?"
intRetVal = MsgBox(strMsg, vbQuestion + vbYesNo, "Impressão de Relatório")
Select Case intRetVal
Case Is = vbYes

Const conVinculado = -1 'Colocar -1 na propriedade Marca da aba Outra de cada campo do formulário que deseja verificar

For Each ctl In Me.Controls
If ctl.Tag = conVinculado Then
Select Case ctl.ControlType
Case acTextBox, acComboBox
If ctl.Value = "" Or ctl.Value = Null Then

sCampoX = ctl.Name

MsgBox "O campo " & sCampoX & " está vazio. Verifique !!!", vbInformation, "Checa Campos" 'Ou, com vbCritical
End If
End Select
End If
Next ctl
Case Is = vbNo
DoCmd.RunCommand acCmdSaveRecord
MsgBox "OK", vbExclamation, "Fim da Verificação"
End Select

End Function

Bom dia Antonildo!

Este código checa o subformulário?

Olá Alexandre!

Segue a cópia!

Se puder dar uma olhada no botão desfazer também, ele não está excluindo o ítem vendasubformulário!

Veja se foi agora!

veja se foi agora

Mas o subformulário está no frm_Cadastro_Venda, ok?

Bom dia Alexandre!

Ficou ótimo!

Obrigada pela atenção, viu?