Verificação de Campos Obrigatórios Personalizado By Caio Souza

tem como usar esse codigo

Dim CountFields As Integer
CountFields = CamposBranco(Me)
If CountFields > 0 Then 'Se tiver campos em branco
Select Case CountFields
Case 1
MsgBox "O campo abaixo é de preenchimento obrigatório:" & Chr(13) & Chr(13) & fieldsnames, vbExclamation, "Aviso"
Case Else
MsgBox "Os " & CountFields & " campos abaixo são de preenchimento obrigatório:" & Chr(13) & Chr(13) & fieldsnames, vbExclamation, "Aviso"
End Select
Else
MsgBox "Todos os campos estão devidamente preenchidos!", vbInformation, ""
End If


pra todos os formularios sem precisar ficar colando em cada formulario tipo uma funcao global pra todos os formularios

Tópico mudado.
Não coloque duvidas no Repositório de Exemplos Ms Access

alguem??

Na verdade a função que faz a avaliação dos campos já é global. No formulário mesmo o código é só pra mostrar quais campos precisam ser preenchidos e para isso é preciso chamar de dentro do formulário mesmo, não tem como escapar disso.