Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Função para Verificar Campos Vazios Personalizada

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

24122015

Mensagem 

Função para Verificar Campos Vazios Personalizada






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 quais os campos obrigatórios para preenchimento.

Código:
Public Function VerificarCampos()

'#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
avatar
good guy
Facilitador
Facilitador

Brasil


http://www.goodguyaccessvba.com.br

Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahoo!Smarking

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum