boas noites
venho mais uma vez recorrer aos vossos conhecimentos para mais uma ajuda.
apos consultar os exemplos postados aqui encontrei um que me satisfaz as minhas necessidades para este meu novo projecto,
Validacamposnulos do JPaulo, mas ao adaptar na minha BD da-me este erro:
""
Private Sub Command4_Click()
'By JPaulo ® Maximo Access
If ValidaCamposNulos = False Then
Cancel = True
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Registro Salvo com Sucesso...", vbInformation
DoCmd.Close
End If
End Sub
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) 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
""
gostaria de entender o que estou a fazer mal, ou o que me falta fazer
grato pelos apoio
mirsofy
venho mais uma vez recorrer aos vossos conhecimentos para mais uma ajuda.
apos consultar os exemplos postados aqui encontrei um que me satisfaz as minhas necessidades para este meu novo projecto,
Validacamposnulos do JPaulo, mas ao adaptar na minha BD da-me este erro:
""
Private Sub Command4_Click()
'By JPaulo ® Maximo Access
If ValidaCamposNulos = False Then
Cancel = True
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Registro Salvo com Sucesso...", vbInformation
DoCmd.Close
End If
End Sub
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) 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
""
gostaria de entender o que estou a fazer mal, ou o que me falta fazer
grato pelos apoio
mirsofy