Pessoal Bom dia!
Estou usando estes códigos para obrigar o digitador a inserir as informações nos campos que por ventura ele venha esquecer, está funcionado beleza, mas quando chega em um campo que contem "Grupo de Opções", ela dá um erro. alguem poderia me dizer como corrigir este erro.
Desde ja muito Grato.
Ney
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.NomeMae_Cad) Then
Cancel = True
Me.NomeMae_Cad.SetFocus
MsgBox "Por favor, preencher o campo NOME DA MÃE DO CADASTRADO em Dados Pessoais.", vbExclamation, "Atenção!!!"
ElseIf IsNull(Me.Nome_Cad) Then
Cancel = True
Me.Nome_Cad.SetFocus
MsgBox "Por favor, preencher o campo NOME DO CADASTRADO em Dados Pessoais.", vbExclamation, "Atenção!!!"
Estou usando estes códigos para obrigar o digitador a inserir as informações nos campos que por ventura ele venha esquecer, está funcionado beleza, mas quando chega em um campo que contem "Grupo de Opções", ela dá um erro. alguem poderia me dizer como corrigir este erro.
Desde ja muito Grato.
Ney
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.NomeMae_Cad) Then
Cancel = True
Me.NomeMae_Cad.SetFocus
MsgBox "Por favor, preencher o campo NOME DA MÃE DO CADASTRADO em Dados Pessoais.", vbExclamation, "Atenção!!!"
ElseIf IsNull(Me.Nome_Cad) Then
Cancel = True
Me.Nome_Cad.SetFocus
MsgBox "Por favor, preencher o campo NOME DO CADASTRADO em Dados Pessoais.", vbExclamation, "Atenção!!!"