Campo obrigatorio em um sub formulario

Boa noite a todos.

Recorro novamente aos amigos do Fórum com uma dúvida que é a seguinte
Uso o seguinte código em um sub formulário para não deixar campos vazio

If IsNull(Me.Texto38) Or Me.Texto38 = "" Then o
MsgBox "Preencha o campo COM O VALOR DO CUSTO!", vbInformation, " A t e n ç ã o. "
Me.Texto38.SetFocus 'Move o foco para o controle
Exit Sub
ElseIf IsNull(Me.EntradaQuantidade) Or Me.EntradaQuantidade = "" Then
MsgBox "Preencha o campo QUANTIDADE DO PRODUTO!", vbInformation, " A t e n ç ã o. "
Me.EntradaQuantidade.SetFocus
Exit Sub
Else
'MsgBox "Gravado com sucesso", vbInformation, "Gravado"
'DoCmd.Save acForm, "entrada"
Me.Refresh
End If.

Gostaria que ao clicar no botão para salvar no formulário fosse verificado se os campos do Sub Formulário estiverem em branco ele executasse o módulo acima.

Sou grato pela atenção de todos.

Olá

Tente colocar seu código no evento Antes de atualizar do form, porém referenciando o subform:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Nz(Len(Me!SeuSubform.Texto38), 0) = 0 Then
Cancel = True
MsgBox "Preencha o campo COM O VALOR DO CUSTO!", vbInformation, " A t e n ç ã o. "
ElseIf Nz(Len(Me!SeuSubform.EntradaQuantidade), 0) = 0 Then
Cancel = True
MsgBox "Preencha o campo QUANTIDADE DO PRODUTO!", vbInformation, " A t e n ç ã o. "
Else
'MsgBox "Gravado com sucesso", vbInformation, "Gravado"
'DoCmd.Save acForm, "entrada"
Me.Refresh
End If

Norbs
desta maneira da erro, objeto não referenciado(subform)

Substituiu a palavra Subfor pelo nome do seu formulário?

Foi feito a substituição do nome ai que esta o erro Norbs

Os campos Texto38 e EntradaQuantidade estão dentro do subform, quando eu clico no botão salvar do formulario da o erro referenciado(subform).

Editei o código lá em cima.
Teste de novo. Verifique o código pra ver se combina com sua estrutura.

Norbs, continua dando erro em
If Len(Me!EntradaDetalhe.Texto38) = 0 Then
Cancel = True

Coloquei ao perder foco do campo, mas em todas outras formas da erro.

Cara, sou muito grato pela sua atenção

Editei de novo...

Se não der certo, e quiser enviar uma cópia do bd em A2003, dou uma olhada.

Olha eu aqui a meter o bedelho;

Teste assim;

If ((Len(Nz(Me![EntradaDetalhe].Form!Texto38.Value, ""))) = 0) Then

Sua intervenção é um aprendizado, mestre!

Norbs e JP
Coloquei desta maneira

If ((Len(Nz(Me![EntradaDetalhe].Form!Texto38.Value, ""))) = 0) Then
Cancel = True
MsgBox "Preencha o campo COM O VALOR DO CUSTO!", vbInformation, " A t e n ç ã o. "

ElseIf Nz(Len(Me!EntradaDetalhe.EntradaQuantidade), 0) = 0 Then
Cancel = True
MsgBox "Preencha o campo QUANTIDADE DO PRODUTO!", vbInformation, " A t e n ç ã o. "

Else
Me.Refresh
End Ifantes de atualizar o form. EntradaDetalhe, no botão no formulario para salva o sub sem resultados, não consigo enxergar o que esta errado.

Ao sair do campo Texto38,

Conforme a sugestão do JPaulo, deve ficar assim:

Mantenha no mesmo evento!

Private Sub Form_BeforeUpdate(Cancel As Integer)
If ((Len(Nz(Me![EntradaDetalhe].Form!Texto38.Value, ""))) = 0) Then
Cancel = True
MsgBox "Preencha o campo COM O VALOR DO CUSTO!", vbInformation, " A t e n ç ã o. "
ElseIf ((Len(Nz(Me![EntradaDetalhe].Form!EntradaQuantidade.Value, ""))) = 0) Then
Cancel = True
MsgBox "Preencha o campo QUANTIDADE DO PRODUTO!", vbInformation, " A t e n ç ã o. "
Else
'MsgBox "Gravado com sucesso", vbInformation, "Gravado"
'DoCmd.Save acForm, "entrada"
Me.Refresh
End If

Se não funcionar, verifique a propriedade Nome do subform EntradaDetalhe para confirmar se combina, e verifique também esta mesma propriedade nos controles Texto39 e EntradaQuantidade para confirmar se combinam.

Se tudo estiver correto... só vendo o bd prá encontrar o erro!

Diga me uma coisa, para colocar o evento nos campos Texto38 e EntradaQuantidade assim que perder o foco e o valor for vasio ou 0 como devo proceder,(Ex. os campos não pode ficar vasio ou com o valor de 0)assim seria mais simples

Bem, isto muda o foco da questão.
Imaginei que você tinha motivos para fazer esta verificação a partir do form principal.

Então, tente assim:

Private Sub Texto38_Exit(Cancel As Integer)
  If Not Nz(Len(Me.Texto38), 0) > 0 Then
    Cancel = True
    MsgBox ""
  End If
End Sub

Norbs, a única coisa que não deu certo se o valor for digitado 0(na EntradaQuantidade)e 0,00 (no Texto38) aceita normal.

Você colocou o evento nos dois campos?

Private Sub Texto38_Exit(Cancel As Integer)
If Not Nz(Len(Me.Texto38), 0) > 0 Then
Cancel = True
MsgBox ""
End If
End Sub

Private Sub EntradaQuantidade_Exit(Cancel As Integer)
If Not Nz(Len(Me.EntradaQuantidade), 0) > 0 Then
Cancel = True
MsgBox ""
End If
End Sub

Também pode usar o LostFocus...

exatamente desta maneira Norbs.

Private Sub EntradaQuantidade_Exit(Cancel As Integer)
If Not Nz(Len(Me.EntradaQuantidade), 0) > 0 Then
Cancel = True
MsgBox "A QUANTIDADE DO PRODUTO É OBRIGATÓRIO PARA CONTINUAR O PEDIDO", vbInformation, " A T E N Ç Ã O. "
End If
Me.EntradaQuantidade.SetFocus
End Sub
Só esta aceitando digitar o valor 0, o campo em branco funciona corretamente.

Sou grato pela atenção

Sem solução

Olá

Deve haver algo errado que não estamos percebendo.
Veja que na mensagem 13 me ofereci para ver seu bd, mas você não enviou...

Abraço!

Você já tentou apenas chekar se o campo está vazio ou com zero ?


Private Sub EntradaQuantidade_Exit(Cancel As Integer)
If IsNull(Me.EntradaQuantidade.Value) Or Me.EntradaQuantidade.Value = "" Or Me.EntradaQuantidade.Value = Empty Or Me.EntradaQuantidade.Value = 0 Then
Cancel = True
MsgBox "A QUANTIDADE DO PRODUTO É OBRIGATÓRIO PARA CONTINUAR O PEDIDO", vbInformation, " A T E N Ç Ã O. "
Me.EntradaQuantidade.SetFocus
End If
End Sub

Boa noite a todos.
JP o campo esta definido como vazio como padrão

JP, quando o campo fica vazio e não perde o foco e eu clico no botão salvar do form. salva o pedido com o(s) campo(s) vazio.

Obrigado JPaulo pela dica.