Senhores,
uso este código para exigir o preenchimento de alguns campos do formulário...
If IsNull(Forms!Formulárioavista!Cliente) Then j = True
If IsNull(Forms!Formulárioavista!Cbomotoqueiro) Then k = True
If IsNull(Forms!Formulárioavista!Cbocontatocomaempresa) Then l = True
If j = True Then
MsgBox "Preencha o campo Cliente por favor", vbInformation, "Aviso"
Forms!Formulárioavista!CboCliente.SetFocus
End If
If k = True Then
MsgBox "Preencha o campo CboMotoqueiro por favor", vbInformation, "Aviso"
Forms!Formulárioavista!Cbomotoqueiro.SetFocus
End If
If l = True Then
MsgBox "Preencha o campo Cbocontatocomaempresa por favor", vbInformation, "Aviso"
Forms!Formulárioavista!Cbocontatocomaempresa.SetFocus
o problema é que ele esta ficando extenso demais, e abre varias janelas ao mesmo tempo, gostaria que fizesse esta verificação em uma sequencia...
Obrigado.
uso este código para exigir o preenchimento de alguns campos do formulário...
If IsNull(Forms!Formulárioavista!Cliente) Then j = True
If IsNull(Forms!Formulárioavista!Cbomotoqueiro) Then k = True
If IsNull(Forms!Formulárioavista!Cbocontatocomaempresa) Then l = True
If j = True Then
MsgBox "Preencha o campo Cliente por favor", vbInformation, "Aviso"
Forms!Formulárioavista!CboCliente.SetFocus
End If
If k = True Then
MsgBox "Preencha o campo CboMotoqueiro por favor", vbInformation, "Aviso"
Forms!Formulárioavista!Cbomotoqueiro.SetFocus
End If
If l = True Then
MsgBox "Preencha o campo Cbocontatocomaempresa por favor", vbInformation, "Aviso"
Forms!Formulárioavista!Cbocontatocomaempresa.SetFocus
o problema é que ele esta ficando extenso demais, e abre varias janelas ao mesmo tempo, gostaria que fizesse esta verificação em uma sequencia...
Obrigado.