Iniciantes
Em construção. Repositório Access Geral
Traduzir Idioma
Função para Verificar Campos Vazios Personalizada
Página 1 de 1 • Compartilhe •
24122015

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
http://www.goodguyaccessvba.com.br/

» Função para Verificar Campos Vazios Personalizada
» Filtrar campos em vazios
» Como por para verificar a senha no email
» Desativar todos os campos de um formulário.
» Cartão pré-pago para verificar contas PayPal, AlertPay, SolidTrustPay, OkPay, etc...
» Filtrar campos em vazios
» Como por para verificar a senha no email
» Desativar todos os campos de um formulário.
» Cartão pré-pago para verificar contas PayPal, AlertPay, SolidTrustPay, OkPay, etc...
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum