MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Verificação de campo vazio

    avatar
    davidapcon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 23/10/2010

    [Resolvido]Verificação de campo vazio Empty Verificação de campo vazio

    Mensagem  davidapcon em Qui 27 Jan 2011, 15:08

    Olá pessoal!!!

    Estou precisando de um auxilio em um código. Acontece que eu preciso que meu formulário verifique se tem algum campo vazio e me informe que existem campo(s) vazio(s).
    Eu uso um código que verifica pela TAG, mas o problema é que utilizando o código que tenho atualmente o formulário acaba verificando todos os controles mesmos os que eu não quero no caso os ocultos.

    Queria saber se existe alguma forma de verificar apenas os controles que eu quero e se é possivel aparecer apenas uma mensagem avisando que tem campos vazios no form. O código que uso atualmente é o abaixo:

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then

    If IsNull(ctl.Value) Or IsEmpty(ctl.Value) Then
    MsgBox "O campo '" & ctl.Tag & "' é obrigatório"
    DoCmd.CancelEvent
    ctl.SetFocus
    End If
    End If
    Next
    End Sub

    Desde já agradeço a ajuda de todos!!!
    Att,
    David
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Verificação de campo vazio Empty Re: [Resolvido]Verificação de campo vazio

    Mensagem  vieirasoft em Qui 27 Jan 2011, 15:23

    Vá ao repositório de códigos que tem lá exemplos para fazer essa verificação.
    avatar
    davidapcon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 23/10/2010

    [Resolvido]Verificação de campo vazio Empty Re: [Resolvido]Verificação de campo vazio

    Mensagem  davidapcon em Qui 27 Jan 2011, 16:17

    Ok Viera, vejo hoje a noite pois a segurança da informação aqui da empresa está bloqueando o servidor onde estão hospedados os arquivos do repositório.

    Obrigado!

    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Verificação de campo vazio Empty Re: [Resolvido]Verificação de campo vazio

    Mensagem  vieirasoft em Qui 27 Jan 2011, 16:32

    Aqui tem:

    Preenchimento Obrigatório de Campos TextBox no Formulario

    Todos os campos terão de ter o nome dos mesmos, nas propriedades, Aba Outros, Linha Marca (Tag).

    Public Function ValidaPreenchimento() As Boolean
    'By JPaulo ® Maximo Access
    Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
    If IsNull(ctl.Value) Then
    MsgBox "O Campo '" & ctl.Tag & "' não pode ficar em branco"
    ctl.SetFocus
    Exit Function
    End If
    End If
    Next
    End Function

    Private Sub SeuBotão_Click()
    Call ValidaPreenchimento
    End Sub
    avatar
    davidapcon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 23/10/2010

    [Resolvido]Verificação de campo vazio Empty Re: [Resolvido]Verificação de campo vazio

    Mensagem  davidapcon em Sex 28 Jan 2011, 19:13

    Procurando aqui no forum acabei achando esse código passado pelo JPaulo que faz a verificação somente dos campos que você desejar.

    Public Function valNullControl(frm As Form)
    Dim ctl As Control
    Dim minhaArray As String
    Dim validacaoOk As Byte

    validacaoOk = 0

    For Each ctl In frm.Controls
    If ctl.Tag <> Null Or ctl.Tag <> "" Then
    ctl.BackColor = 16777215
    End If
    Next ctl

    For Each ctl In frm.Controls
    If ctl.Visible = True Then
    If ctl.Tag <> Null Or ctl.Tag <> "" Then
    If IsNull(ctl) = True Or ctl = "" Then
    ctl.BackColor = 161616
    validacaoOk = 1
    minhaArray = minhaArray & ctl.Tag & ", "
    End If
    End If
    End If
    Next ctl
    If validacaoOk = 1 Then MsgBox "Campo Obrigatório: " & minhaArray

    End Function


    No seu código ficará assim:

    Private Sub Adicionar_Click()

    Dim db As Database
    Dim rs As Recordset

    If MsgBox("Gravar registro?", vbYesNoCancel, "Opções") = vbYes Then

    If valNullControl(Me) = False Then
    Exit Sub
    End If

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tblClientes", dbOpenTable)
    rs.AddNew


    Obrigado!!!
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Verificação de campo vazio Empty Re: [Resolvido]Verificação de campo vazio

    Mensagem  vieirasoft em Sex 28 Jan 2011, 19:15

    Obrigado pelo retorno o fórum agradece
    Caio
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Verificação de campo vazio Empty Re: [Resolvido]Verificação de campo vazio

    Mensagem  Caio em Qui 10 Set 2015, 09:43

    Davidapcon, e onde eu adiciono os campos que eu quero que ele verifique ai no código?
    avatar
    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 166
    Registrado : 01/09/2017

    [Resolvido]Verificação de campo vazio Empty Re: [Resolvido]Verificação de campo vazio

    Mensagem  diogoisaias21 em Ter 12 Dez 2017, 13:28

    gostaria de saber também

    Obrigado
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Verificação de campo vazio Empty Verificação de campo vazio

    Mensagem  good guy em Ter 12 Dez 2017, 14:05

    avatar
    gilsonrusso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 03/12/2015

    [Resolvido]Verificação de campo vazio Empty confuso!!!

    Mensagem  gilsonrusso em Qua 12 Set 2018, 12:33

    quando insiro o código aparace erro em tempo de execução - diz voçe inseriu um expressão que contem uma ref. invalida a propriedade visible

    criei um modulo e coloquei a funçao publica. e depois dentro do meu form no botao salvar fiz a chamada.

    ??????????

    depurador: If ctl.Visible = True Then

    alguém pode explicar melhor como inserir este código??? desde já agradeço!!!! estou precisando muito para enxugar os códigos inserido no form.
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Verificação de campo vazio Empty Re: [Resolvido]Verificação de campo vazio

    Mensagem  Access365 em Sab 08 Ago 2020, 19:38

    Como utilizar a Mensagem nº 5 (Muito bom por sinal):

    PROPRIEDADES > Aba OUTRA > Em "Marca"
    Coloque 1 nos campos obrigatórios

    DICA
    O código deve ser reformatado quanto às cores e qndo retirar estas cores, exemplo:
    Troque: ctl.BackColor = 16777215 por ctl.BorderColor = RGB(217, 217, 217)
    e ctl.BackColor = 161616 por ctl.BorderColor = RGB(204, 0, 0)

    RGB(217, 217, 217) -> cinza (padrão Access)
    RGB(204, 0, 0) -> vermelho

      Data/hora atual: Ter 01 Dez 2020, 14:06