[Resolvido]Obrigar usuário prencher campo "Nome"

Companheiros, preciso de uma ajudinha, ja usei códigos obrigando o usuário a preencher campos, e sempre funcionou
desta feita, não estou conseguindo colocar o código do Norberto, ai como sou encucado com as coisas, abri esse tópico
e conto com a ajuda de todos!

Estou usando esse código do Norberto!

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Nome) Then
Cancel = True
Me.Nome.SetFocus
MsgBox "Informe o nome do Cliente."
Exit Sub
End If
End Sub


Quando clico em fechar o form ele me da a mensagem dizendo "informe o nome do usuário" mas fecha o form sem me dar a opção de preencher o campo.

segue o bd

http://speedy.sh/ntQar/ObrigatorioPreencherCampo.zip

Lupércio

Você tem que colocar esse código no evento antes de atualizar do controle Nome para que ele funcione.

Private Sub Nome_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Nome) or Me.Nome = "" Then 'coloque essa parte em verde também.
Cancel = True
Me.Nome.SetFocus
MsgBox "Informe o nome do Cliente."
Exit Sub
End If
End Sub

Abração

Poisé amigo Balem la eu coloquei funciona, mas estava querendo quando for fechar o formulário, mas não funciona,
o Norberto passou assim no evento antes de atualizar do form!

Lupércio

Eu já coloquei esse código no fórum, mas vou repetir pra você.

Código:




Private Function TestaCampos() As Boolean
    Dim I As Integer
    Dim strMsg As String
    Dim strTitle As String
     
    TestaCampos = True
If Me!IDCliente <> 0 Then  '<-----Troque o nome do controle para o nome do teu controle
    'inicia o loop pelos controle do formulário
    'a contagem começa em zero (0) até  x-1
    For I = 0 To Me.Count - 1
        'se o controle tem a marca(tag) = t então
        If Me(I).Tag = "t" Then
            'se o campo está vazio então
            If IsNull(Me(I)) Or Me(I) = "" Then
                'emite mensagem acompanhado do nome do controle
                strMsg = "É obrigatório o preenchimento do campo '" & Me(I).Name & "'!"
                strTitle = "Campo em Branco"
                MsgBox strMsg, 48, strTitle
                'move o foco para o controle
                Me(I).SetFocus
                TestaCampos = False
             
                Exit Function
            End If
        End If
    Next I

End If
End Function


Para que o código funcione você deve colocar a letra "t" (sem aspas) na propriedade Marca (tag) das caixas de texto que não devem ficar em branco.

O estranho é que você postou naquele tópico


Então no botão Fechar do formulário:

If Not TestaCampos Then
Exit Sub
End If

Docmd.Close

Sim amigão eu postei eu tinha conseguido aquele código na internet, e postei só hoje fui tentar usa-lo mas não funfa.

Já este funfa!

Ao sair de cada campo:

If IsNull(TeuCampo) Then
MsgBox "Preenchimento obrigatório", vbInformation, "Atenção"
Docmd.CancelEvent
End if

Balem estou com problemas para adaptar o seu código, se por acaso não estiver muito ocupado daria para você adaptar para mim? Só estiver desocupado, e querer ajudar seu amigo

Não tem segredos Lupércio

Coloque o código num módulo.

no evento On Click do botão fechar do formulário, coloque a parte em verde:
==============================
Private Sub btnFechar_Click()
On Error GoTo Err_btnFechar_Click

If Not TestaCampos Then
Exit Sub
End If

DoCmd.Close

Exit_btnFechar_Click:
Exit Sub

Err_btnFechar_Click:
MsgBox Error$
Resume Exit_btnFechar_Click

End Sub
==================

Depois abra o formulário em modo design
Clique na caixa de texto Nome e olhe na folha de propriedades dela.
Se a aba Todas estiver aparecendo, a propriedade Marca é a última, lá embaixo da folha de propriedades.
Então digite uma letra t minúscula.

Pronto

Mas se ainda não conseguir, envie o aplicativo que eu faço pra você.

Abraços

Balem não funfou

Segue o bd

http://speedy.sh/px2Gc/Bd-Balem.zip

Lupércio

Tai o teu aplicativo

Detalhes no formulário

Abraços

Balem olá amigão!

Uma pergunta?
No módulo você alterou só o campo ID -------------------esta linha If Me!IDCliente <> 0 Then
E no campo ficou igual eu coloquei na "Marca" = t

Então eu consertei não só ali, mas dentro onde você tirou o (I) e colocou o nome da caixa de controle.
O código começa verificando se tem o ID do registro, no caso IdCliente.
Então ele varre todos os controles do formulário e verifica se tem a marca " t " e se tiver, verifica se ela está em branco ou não, se tiver mostra a mensagem e vai para o primeiro controle que estiver em branco.
Se ainda tiver o código no teu aplicativo , faça a comparação.
Mudei o código para dentro do formulário, pois tem muita referencia com ( Me! ), portanto, não funciona num módulo separado.
Lembre-se, a marca " t " (sem as aspas, como você digitou) é que irá dizer ao código que você deseja que ele verifique se o controle está em branco ou não.

Experimente colocar o t na marca do bairro e deixe sem preencher para você ver.


Abraços

Sim "Ninja"

Eu fiz os testes aqui, ai compreendi, seu código é nota "10"! maravilhoso!
Obrigado por sua atenção, um grande abraço "amigão".

Valeu meu amigo

Outro do mesmo tamanho para você!

Como é de praxe, eu concluo os tópicos assim:

Boa sorte !!