[Resolvido]Executar uma ação depois do For Each

Prezados senhores,

Gostei muito desta ideia e quero reproduzi-la e preciso da ajuda de vocês. (Retirado aqui do Forum mesmo | Good Guy)

Adaptei aqui,

Public Function VerificarCamposVazios()

'#Código de Eduardo Machado (Good Guy) - 2015
On Error Resume Next
Dim strMsg As String
Dim ctl As Control




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 IsNull(ctl.Value) Or ctl.Value = "" Or ctl.Value = Null Then
     
           
        sCampoX = ctl.Name
       
        MsgBox "O campo " & sCampoX & " está vazio. Verifique !!!", vbInformation, "Checa Campos"  'Ou, com vbCritical
       
       
        Exit For
       
       End If
       
       End Select
 
   
   End If
   
 
Next ctl


End Function


Preciso executar um insert em uma tabela, mas apenas quando os campos obrigatórios (-1) estiverem preenchidos.
Não sei em qual lugar do código eu coloco esta ação.

Exemplo: Se tenho 3 campos obrigatorios, este codigo acima, me informa se ele está vazio e interrompe e move o foco para este campo e assim até terminar o loop. Quando os tres tiverem preenchido ele executa a acao que eu quero.

Desde já, grato.

Bom dia, tudo certo?
Não cheguei a ver a função que você está usando, porém, imagino que se ela retornar um booleano poderá validar se salva ou não as informações.

Caso queira dar uma olhada em uma forma bem legal de validação, que desenvolvi e disponibilizei um vídeo de como implementar, acesso o meu canal clicando aqui..

Nesse vídeo, mostro passo a passo como validar preenchimento de campos, destacando os campos necessários, todos de uma vez.

Caso queira permanecer na função que já está tentando usar, poderemos prosseguir também.

Olá obrigado por responder.

Coincidencia ou não já sigo o seu cana há um tempo e vi o video. Muito bom.

O codigo mostrado no video é muito similar.

Poderia me ajudar adapatar?

No meu caso, eu estou usando campos não vinculados em um form para inserir dados em um subformulario. "Meu insert tá funcionando certinho"
No entanto, antes de executar o o insert, eu verifico se todos os campos obrigatorios foram preenchidos. (Está Ok também)
Ele me avisa se tiver campos vazios etc, porem ele não está respeitando as condições. Se tiver vazio ele avisa, mas executa o insert do mesmo jeito, ao passo que ele deveria para o codigo, deixar eu preecher e só depois de tudo pronto ele executar o insert.

Não sei em qual lugar do código acima devo colocar o meu comando ou se devo colocar mais algum if...

Tentei com a sua orientação do video e estóu com o mesmo dilema.

Opa, grato por estar inscrito.
Poste aqui o código completo. Copie e cole aqui usando a tag [code], que facilita a leitura.

Public Function VerificarCamposVazios()

'#Código de Eduardo Machado (Good Guy) - 2015
On Error Resume Next
Dim strMsg As String
Dim ctl As Control

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 IsNull(ctl.Value) Or ctl.Value = "" Or ctl.Value = Null Then
sCampoX = ctl.Name

MsgBox "O campo " & sCampoX & " está vazio. Verifique !!!", vbInformation, "Checa Campos" 'Ou, com vbCritical

Exit For

End If

End Select

End If

Next ctl

End Function




Na verdade já está completo rrsrsr.

Preciso inserir o codigo abaixo em algum lugar aí em cima, apenas quando tudo estiver preenchido.

CurrentDb.Execute "INSERT INTO tbl_NF_Itens(id_NF,nome_produto,qtd,vUnitario,vSubTotalLinha,aliq_ICMS,aliq_IPI,VIPI,difal,frete,total) VALUES ('" & id & "', '" & nome_produto & "','" & qtd & "','" & vUnitario & "','" & vSubTotalLinha & "','" & aliq_ICMS & "','" & aliq_IPI & "','" & VIPI & "','" & difal & "','" & frete & "','" & total & "')"

WEBE escreveu:Na verdade já está completo rrsrsr.

Pensei que já houvesse algum código tento a validação, rsrs.

Vamos lá.
Tente isso:

Código:

Public Function VerificarCamposVazios()

'#Código de Eduardo Machado (Good Guy) - 2015
On Error Resume Next
Dim strMsg As String
Dim ctl As Control
Dim CamposVazios as Boolean

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 IsNull(ctl.Value) Or ctl.Value = "" Or ctl.Value = Null Then
 sCampoX = ctl.Name

 MsgBox "O campo " & sCampoX & " está vazio. Verifique !!!", vbInformation, "Checa Campos" 'Ou, com vbCritical
 
 Exit Function
 'Exit For

 End If

 End Select

 End If

Next ctl

CurrentDb.Execute "INSERT INTO tbl_NF_Itens(id_NF,nome_produto,qtd,vUnitario,vSubTotalLinha,aliq_ICMS,aliq_IPI,VIPI,difal,frete,total) VALUES ('" & id & "', '" & nome_produto & "','" & qtd & "','" & vUnitario & "','" & vSubTotalLinha & "','" & aliq_ICMS & "','" & aliq_IPI & "','" & VIPI & "','" & difal & "','" & frete & "','" & total & "')"

End Function

A tentativa é sair da função da função e não chegar aonde é feito a inserção.


Veja se funciona por favor. Aguardo.

Perfeito amigo. Muito Obrigado.
Deu certinho.

Grato pelo retorno!