[Resolvido]Validar campos com preench. obrigatório pela Tag

Olá pessoal, em especial Jpaulo,

O código http://dl.dropbox.com/u/771097/PreenchimentoObrigatorioCamposNoFormulario.txt faz parte da biblioteca de codigos VBA disponibilizado pelo JPaulo aqui no fórum. Funciona perfeitamente.

Porém eu gostaria de poder selecionar quais campos serão validados ou não, pela propriedade Marca (Tag) do controle, e não pelo tipo controle, como faz o código.

Isso porque tenho campos que necessitam dessa validação e outros que não, alguns são combobox, alguns são textbox.

Dessa forma, eu selecionaria os campos que necessitam de validação apenas incluindo um texto qualquer, por exemplo, "VALIDAR", na propriedade marca(tag) do controle.

Isso me ajudaria também a otimizar o BD, pois poderia usar essa função como uma função global, o que seria muito interessante.

Obrigado desde já,

Forte abraço e feliz 2010 a todos os amigos do forum.

Abraços.

Ola amigo;

Para o que pretende, utilize este código:

Código:

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

Chamar a função:

Call valNullControl(Me)

Jpaulo,
Nem preciso dizer que funcionou perfeitamente. vc é mesmo o mago do VBA... Rápido, preciso, e superando as expectativas. Essa de colorir o background foi muito bacana.

Só tive um problema (que nem chega a ser um problema), criado por mim mesmo. Estou usando um formulario contínuo para estes cadastros, e quando o background de um campo de um registro fica "colorido", obviamente os demais campos similares abaixo, tb ficam, estando ou não preenchidos.

existe uma forma descomplicada de resolver isto ou é melhor mesmo nao colorir o background?

o que vc me recomenda?

muito obrigado

abraços

Ola bom dia !

Para formulario continuo eu recomendaria a formatação condicional direta em cada campo pretendido, ela funciona perfeito e é uma parametrização que fica para sempre.

O codigo acima não funciona em form continuo.

Bom dia JPaulo,

entendido. muito obrigado pela recomendação.

Abraço e sucesso a vc tb.

Solução perfeita
Parabéns pelo código criado, ficou super prático... fiz uma pequena adaptação no final da rotina para retornar True e assim poder testar uma combox de Status, no meu caso que uso tabelas vinculadas eu trabalho os registros conforme um Status... e só consegue ter o valor "Ok - arquivar" quando tiver todos os campos preenchidos...

Código:

'Rotina do site http://www.maximoaccess.com/post?t=102&mode=reply
'De JPaulo - adaptado por Márcio Melo
'VALIDAR OS CAMPOS DE UM FORM
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 = 255 ' vermelho  '161616 cor original
               validacaoOk = 1
               minhaArray = minhaArray & ctl.Tag & ", "
               End If
           End If
       End If
   Next ctl
If validacaoOk = 1 Then
MsgBox "Campo Obrigatório: " & minhaArray
valNullControl = True 'passei um retorno da função em True quando tiver a mensagem.
End If
End Function

'Abaixo no evento ao Atualizar do Combox StatusOK , se algum campo tiver faltando ser preenchido o status vai ter valor 2;Pendente se não... continua com o outro valor...
---------------------------------------

Código:

Private Sub StatusOk_AfterUpdate()

If valNullControl(Me) = True Then
Me.StatusOk = 2
Else
'MsgBox "Dados obrigatórios preenchidos...", vbInformation, "Ok!"
End If

End Sub

Sou mais Brasil!

Ficou perfeito para a  minha finalidade... e deixo aqui outras combinações e adaptações desta magnífica rotina

Forte Abraço... J Paulo
.

Me salvou

Esta dica me salvou de tal forma... Que vocês não tem nem noção...


Muito obrigado, a inteligência de vocês transborda

Olá Magnun, bem-vindo ao fórum.

Antes de tudo obrigado pelo retorno

No entanto veja no link abaixo as regras do fórum, em especial o nº 12:
https://www.maximoaccess.com/t48-regras-do-forum

Edite a sua mensagem e regularize a situação.
Abraço e bons estudos.

bom dia pessoal, veja se podem me ajudar, eu inclui no meu bd o exemplo do Jpaulo porem ao clicar em salvar ele não desabilita os botões e opções conforme cód abaixo, alguem sabe o motivo?
já tentei trocar de false para true, trocar as posições e nada

Código:

Private Sub btnSalvar_Click()
    If valNullControl(Me) = False Then
        Cancel = True
    Else
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
    TxtCodProd.enabled = False
    txtdatacad.enabled = False
    DESCRICAO.enabled = False
    PRECO_CUSTO.enabled = False
    PRECO_VENDA.enabled = False
    LUCRO.enabled = False
    cbunid.enabled = False
    cbgrupo.enabled = False
    cbsubgrupo.enabled = False
    txtref.enabled = False
    cbFabricante.enabled = False
    txtgarantia.enabled = False
    cbFornecedor.enabled = False
    txtobs.enabled = False
    btnSalvar.enabled = False
    btneditar.enabled = True
    btnnovo.enabled = True
    btnLocalizar.enabled = True
    btCancelar.enabled = True
    btneditar.enabled = True
    btnCadUnid.enabled = False
    btnCadGrupo.enabled = False
    btnCadSubGrupo.enabled = False
    btncadfab.enabled = False
    btgerar.enabled = False
    btnfoto.enabled = False
    btaddestoque.enabled = False
    End If
End Sub

Olá;

Não utilize o Cancel=True, porque ele não existe no evento Click.

Teste assim;

Código:

Private Sub btnSalvar_Click()
    If valNullControl(Me) = True Then
        'Cancel = True
        Exit Sub
    Else
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

        Me.btneditar.Enabled = True
        Me.btneditar.SetFocus
       
        Me.btnnovo.Enabled = True
        Me.btnLocalizar.Enabled = True
        Me.btCancelar.Enabled = True
        Me.btneditar.Enabled = True
       
        Me.TxtCodProd.Enabled = False
        Me.txtdatacad.Enabled = False
        Me.DESCRICAO.Enabled = False
        Me.PRECO_CUSTO.Enabled = False
        Me.PRECO_VENDA.Enabled = False
        Me.LUCRO.Enabled = False
        Me.cbunid.Enabled = False
        Me.cbgrupo.Enabled = False
        Me.cbsubgrupo.Enabled = False
        Me.txtref.Enabled = False
        Me.cbFabricante.Enabled = False
        Me.txtgarantia.Enabled = False
        Me.cbFornecedor.Enabled = False
        Me.txtobs.Enabled = False
        Me.btnSalvar.Enabled = False
        Me.btnCadUnid.Enabled = False
        Me.btnCadGrupo.Enabled = False
        Me.btnCadSubGrupo.Enabled = False
        Me.btncadfab.Enabled = False
        Me.btgerar.Enabled = False
        Me.btnfoto.Enabled = False
        Me.btaddestoque.Enabled = False
    End If
End Sub

mesma coisa, ele deixa salvar, tentei mudar para If valNullControl(Me) = Cancel Then... mais mesmo assim não vai, ele deixa salvar o registro com o código acima, eu armazenei esse código de validação em um módulo, será que é esse o problema?

Código:

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

If valNullControl(Me) = Cancel ???????

Amigão, não invente se quiser aprender.

O seu form deve estar vinculado a uma tabela, logo quando você digita e saí do campo já está a gravar.
Para não gravar, terá de usar o Me.Undo, mas o melhor é você anexar aqui parte do seu banco para resolver-mos o seu problema.

nessas horas a gente tenta de tudo JPaulo...rsrs vou preparar aqui e enviar  

segue o bd

https://www.dropbox.com/s/1x16skh661sscup/SisTec%20backup%20v1.1.accdb?dl=0

use o form cadastro de produto

Seu banco aqui;

Download

Código:

Private Sub btnSalvar_Click()
 'valida campos null pela tag de cada controle
    If valNullControl(Me) = True Then
 'se existirem não passa daqui
        Exit Sub
    Else
 'se tudo estiver preenchido, pergunta
    If MsgBox("Deseja salvar este registro ?", vbQuestion + vbYesNo, "Save") = vbNo Then
 'se a resposta for não, desfaz todo o registro
       DoCmd.RunCommand acCmdUndo
       Me.TxtCodProd.SetFocus
       Exit Sub
    End If
 'se a resposta for sim, avança para um novo, porque não necessita de salvar uma vez que
 'o form está vinculado a uma tabela, logo já fica salvo
    DoCmd.GoToRecord , , acNewRec
    
        Me.btnEditar.enabled = True
        Me.btnEditar.SetFocus
        
        Me.btnNovo.enabled = True
        Me.btnLocalizar.enabled = True
        Me.btCancelar.enabled = True
        Me.btnEditar.enabled = True
        
        Me.TxtCodProd.enabled = False
        Me.txtdatacad.enabled = False
        Me.DESCRICAO.enabled = False
        Me.PRECO_CUSTO.enabled = False
        Me.PRECO_VENDA.enabled = False
        Me.LUCRO.enabled = False
        Me.cbunid.enabled = False
        Me.cbgrupo.enabled = False
        Me.cbsubgrupo.enabled = False
        Me.txtref.enabled = False
        Me.cbFabricante.enabled = False
        Me.txtgarantia.enabled = False
        Me.cbFornecedor.enabled = False
        Me.txtobs.enabled = False
        Me.btnSalvar.enabled = False
        Me.btnCadUnid.enabled = False
        Me.btnCadGrupo.enabled = False
        Me.btnCadSubGrupo.enabled = False
        Me.btncadfab.enabled = False
        Me.btgerar.enabled = False
        Me.btnfoto.enabled = False
        Me.btaddestoque.enabled = False
        
        MsgBox "Registro salvo com sucesso...", , "Salvo"
    End If
End Sub

muito obg JPaulo, deu certinho aqui! fiz alguns ajustes de cores aqui e ficou perfeito!

Fico feliz
Obrigado pelo retorno o fórum agradece.