Início
Espero que gostem. Em vez de utilizar funções que apenas digam que existem campos vazios, por que não indicar quais seriam esses campos? Por exemplo, "AVISO: o campo Telefone está vazio !!!". Logicamente, você deverá sinalizar com (-1) somente os campos obrigatórios para preenchimento.
- Código:
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
Última edição por good guy em 26/1/2016, 14:07, editado 1 vez(es)
