[Resolvido]Valida Campos Nulos exemplo do JPaulo

Olá,

Com posso fazer a função não checar o campo LocalFoto em um form, nesse exemplo?

Tinha um exemplo usando o campo Marca da aba Outros na propriedade do Campo mas não acho,
e cada vez que navego nos registros quando chega em uma ficha que o campo LocalFoto esta vazio fica mandando preencher.

https://www.maximoaccess.com/t280-valida-campos-nulos

Bom dia,

Um paliativo rapido se for aplicar isso em apenas um campo. Observe o trecho em vermelho e teste no exemplo do JPaulo:

Private Function ValidaCamposNulos() As Boolean
'By JPaulo ® Maximo Access
ValidaCamposNulos = True
Dim ctl As Control
Dim strName As String
For Each ctl In Me.Controls
If IsNull(ctl) And ctl.Name <> "Campo1" Then
strName = ctl.Controls(0).Caption
ValidaCamposNulos = False
MsgBox "Preencha o Campo " & Chr(34) & strName, vbCritical
ctl.SetFocus
Exit Function
End If
Next ctl
End Function

Abraço.

Olá,

No programa estou usando essa Função:

Código:


Public Function CpoExigido(ByVal UmForm As Form) As Boolean


' Verifica se todos os controles Caixa de texto contém dados

Dim Ctl As Control
Dim Num As Integer
 
On Error GoTo Err_CpoExigido
 
  CpoExigido = False
  Num = 0
  For Each Ctl In UmForm
   
      If Ctl.ControlType = acTextBox Then
         
          If Ctl = "" Or IsNull(Ctl) Then
              Num = 1
             
              Exit For
          End If
      End If
  Next Ctl
 
  If Num = 1 Then
      MsgBox "O campo " & Ctl.Name & " está vazio." & vbCr & _
      "Verifique e preencha." & vbCr & "Para cancelar a Inclusão, tecle (Esc) após sair deste aviso.", _
      vbInformation, "Faltam dados..."
      CpoExigido = True
  Else
      CpoExigido = False
  End If

Exit_CpoExigido:
  On Error Resume Next
      If Not (Ctl Is Nothing) Then
          Set Ctl = Nothing
      End If
  Exit Function

Err_CpoExigido:
  Select Case Err
      Case 0
          Resume Next
      Case Else
          MsgBox Err.Description, vbInformation, "Erro: " & CStr(Err.Number)
  End Select
End Function


Código:

Public Function CpoExigido(ByVal UmForm As Form) As Boolean
Dim Ctl As Control
Dim num As Integer
 
On Error GoTo Err_CpoExigido
 
  CpoExigido = False
  num = 0
  For Each Ctl In UmForm
   
      If Ctl.ControlType = acTextBox Then
         
          If Ctl = "" Or IsNull(Ctl) And Ctl.Name <> "LocalFoto " Then
              num = 1
             
              Exit For
          End If
      End If
  Next Ctl
 
  If num = 1 Then
      MsgBox "O campo " & Ctl.Name & " está vazio." & vbCr & _
      "Verifique e preencha." & vbCr & "Para cancelar a Inclusão, tecle (Esc) após sair deste aviso.", _
      vbInformation, "Faltam dados..."
      CpoExigido = True
  Else
      CpoExigido = False
  End If

Exit_CpoExigido:
  On Error Resume Next
      If Not (Ctl Is Nothing) Then
          Set Ctl = Nothing
      End If
  Exit Function

Err_CpoExigido:
  Select Case Err
      Case 0
          Resume Next
      Case Else
          MsgBox Err.Description, vbInformation, "Erro: " & CStr(Err.Number)
  End Select
End Function

Olá, JPaulo,

Não deu certo não:

Mesmo alterando a linha incluindo o form "LocalFoto" não checar.

Deu o mesmo  erro. Não consegui mandar o Print da tela.

Eu verifiquei na tabela e o campo "LocalFoto" contem o caminho da foto!
Então verifiquei no evento Atual do form que ele verifica o campo conforme abaixo

Código:


On Error GoTo Limpa
   
    If IsNull(Me.LocalFoto) = False Then
        Me.Foto.Picture = Me.LocalFoto
    Else
        Me.Foto.Picture = ""
    End If

Sai:
    Exit Sub
   
Limpa:                    <<<<<- coloquei um ponto de parada AQUI e ele esta passando, então ele esta limpando co campo.
    Me.LocalFoto = Null
    Me.Foto.Picture = ""
    Resume Sai


Ai percebi que a foto da pessoa não existe no local indicado, apesar do caminho ser verdadeiro. Dai o erro e limpa o Campo "LocalFoto" do form.

Dando um retorno,

Consegui contornar com a interceptação do erro como 2220,

Select Case Err
Case 2220
Me.Foto.Picture = ""
MsgBox " O diretório Fotos não tem foto com esse RG " & [RG], vbExclamation, "Erro:" & CStr(Err.Number)

Resume Sai
Case Else
MsgBox Err.Description, vbInformation, "Erro: " & CStr(Err.Number)
End Select
Desta forma ele manteve o conteúdo do campo e informa o motivo.

Obrigado