[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á Lucimara,

Por gentileza, envie uma copia do seu bd, somente objetos (formulários, tabelas, modulos e etc.) envolvidos no problema, para análise e solução.
Nem sempre o uso de subformulários é a melhor opção.

Att,

Alexandre Fim

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!

Olá,

Não veio o anexo.

Veja se foi agora!

Não veio.
Veja no link como postar anexos:

https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com

Att,

Fim

veja se foi agora

Opa....agora veio.
Vou analisar.
obrigado

Att,

Alexandre Fim

Lucimara,

Eu fiz uma cópia do "frm_Cadastro_Cliente_Venda" e preservei o que vc desenvolveu.
Vou ajustar o formulário novo e também remover o subformulário, pois não há necessidade de utilizá-lo.

Assim que terminar, eu disponibilizo nova versão.

Até+

Att,
FIM

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

Sim...está!
Mas o que eu estou mexendo não vai mais ter subformulário...rssss

Aguarde!

Att,

FIM

Olá Lucimara,

Fiz algumas modificações no Cadastro de Vendas e também criei algumas tabelas e consultas pertinentes ao cadastro também.

O Cadastro de Vendas ficou assim:




OBS: Abra o código e verifique o código e o que cada procedimento realiza.
Fiz alguns comentários no código. Não comentei tudo!

O sistema possui um função chamada "ValidaCampos", onde ela verifica se os campos da tela foram preenchidos:

Código:



Public Function ValidaCampos() As Boolean


    ValidaCampos = True
    
    If IsNull(Me.cboCPF) Or Trim(Me.cboCPF) = Empty Then
        MsgBox "Informe o CPF do cliente.", vbExclamation, "Aviso"
        Me.cboCPF.SetFocus
        Me.cboCPF.Dropdown
        ValidaCampos = False
        Exit Function
    End If
    
    '-- Inserir abaixo os campos que devem ser preenchidos
    


End Function



Eu coloquei somente 1 campo e os demais ficam por sua conta...rsss

Vou tentar fazer um video para explicar melhor.

Espero ter ajudado.

Segue versão


Att,

FIM

Bom dia Alexandre!

Ficou ótimo!

Obrigada pela atenção, viu?

Valeu Lucimara,

O fórum agradece.

Sucesso.