[Resolvido] Problemas com formulário de preenchimento

Ola;

Se você quer obrigar o preenchimento de todos os campos, faça assim no evento ao saír de cada um;

Private Sub SeuCampo_Exit(Cancel As Integer)
If IsNull(Me.ActiveControl) Then
DoCmd.CancelEvent
End If
End Sub


Os seus problemas terminam de uma só vez.

Grande JPaulo obrigado pelo retorno mas na verdade só alguns campos que devem ser obrigatórios e para esses é que eu queria que ele enviasse a mensagem informando o ususário para preencher. E o principal mesmo seria se alguem clicar no botão para gravar sem inserir nenhum dado o sistema informar que não tem dados preenchidos e anular o evendo para não mostrar a depuração do vba como está acontecendo porque algum engraçadinho pode inventar de clicar no botão de gravar só por brincadeira entendeu? rsrsrs

Se preferir uma coisa mais elaborada, faça o seguinte.

1º entre nas propriedades de cada campo e na linha Marca (Tag), coloque o nome desse campo.

2º Cole este código dentro do VBA do seu formulario.

Public Function ValidaPreenchimento() As Boolean
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
If IsNull(ctl.Value) Then
MsgBox "O Campo '" & ctl.Tag & "' não pode ficar em branco seu estupido..."
ctl.SetFocus
Exit Function
End If
End If
Next
End Function


3º Chame a função neste lugar.

Private Sub Adicionar_Click()

Dim db As Database
Dim rs As Recordset

If MsgBox("Gravar registro?", vbYesNoCancel, "Opções") = vbYes Then

If ValidaPreenchimento = False Then
Exit Sub
End If

Set db = CurrentDb()
Set rs = db.OpenRecordset("tblClientes", dbOpenTable)
rs.AddNew

Valeu grande jpaulo acho que isso encerra a questão.
ser noob é difícil né? rsrssrs
obrigado e abraços.

Para terminar, pode tambem usar este, que só valida os campos que você quiser, os que não forem obrigatórios basta retirar o nome da Marca (Tag).

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


No seu código ficará assim:

Private Sub Adicionar_Click()

Dim db As Database
Dim rs As Recordset

If MsgBox("Gravar registro?", vbYesNoCancel, "Opções") = vbYes Then

If valNullControl(Me) = False Then
Exit Sub
End If

Set db = CurrentDb()
Set rs = db.OpenRecordset("tblClientes", dbOpenTable)
rs.AddNew

obrigado amigo jpaulo se o mundo tivesse mais pessoas igual a você e os amigos aqui do forum a vida seria bem mais fácil para todos.
abração

Amigo, estava usando aquele primeiro código só que acontece um porem quando tento fechar o formulário não dá por causa do campo Nome em branco e aí todos os campos que coloquei que não pode ficar em branco impedem de fechar o formulário.

Mas então não colocou a instrução no evento ao pressionar de um botão.

Me refiro a esse esquema:

Ola;

Se você quer obrigar o preenchimento de todos os campos, faça assim no evento ao saír de cada um;

Private Sub SeuCampo_Exit(Cancel As Integer)
If IsNull(Me.ActiveControl) Then
DoCmd.CancelEvent
End If
End Sub

Os seus problemas terminam de uma só vez.
.................................................................................
Sucesso e abraço
Success and hug

A imaginação é inútil sem a aplicação de conhecimentos.
Imagination is fruitless without applying knowledge.

Bem legal ele só que se o foco estiver em campo vazio não se pode fazer mais nada nem com o mouse. Eu tenho um botão para fechar o form e por causa disso tive que reabilitar o botão fechar do próprio access só que tem outros elementos no form que eu precisaria usar. Vou partir para os outros exemplos que fazem a checagem ao clicar no botão de gravar.

Ao utilizar esse, é costume fazer algo assim;

Adicionar uma caixa de texto vazia, e dar o nome de txtSai

Agarrar nessa cx e redimencioná-la ao minimo, e colocá-la num campo do seu form.

Ao abrir o form, dar-lhe com o Me.txtSai.SetFocus, assim saí sempre.

Mas se você caír dentro de uma com o If IsNull(Me.ActiveControl), aí só saí se você a preencher.

Amigo sem querer abusar da sua boa vontade, aonde eu coloco esse código?

Para terminar, pode tambem usar este, que só valida os campos que você quiser, os que não forem obrigatórios basta retirar o nome da Marca (Tag).

Public Function valNullControl(frm As Form)
Dim ctl As Control
Dim minhaArray As String
Dim validacaoOk As Byte
...

no qual evento devo inseri-lo? Ao abrir ou Ao carregar?

Grato.

Amigo, esses códigos de Public Function não estão deixando gravar os registros na tabela parece que eles anulam a mensagem de registros gravados com sucesso e não grava nada na tabela. o que será que tá errado?

Consegui resolver aqui do jeito que eu queria, depois de muitos testes, hehehe Ficou assim o código agora:

Private Sub Adicionar_Click()

If IsNull(Me.tNome) Or Me.tNome.Value = "" Then
MsgBox ("Campo Nome precisa ser preenchido")
Me.tNome.SetFocus
Exit Sub
End If
If IsNull(Me.tSobrenome) Or Me.tSobrenome.Value = "" Then
MsgBox ("Campo Sobrenome precisa ser preenchido")
Me.tSobrenome.SetFocus
Exit Sub
End If
If IsNull(Me.tNascimento) Or Me.tNascimento.Value = "" Then
MsgBox ("Campo Dt de nascimento precisa ser preenchido")
Me.tNascimento.SetFocus
Exit Sub
End If
If IsNull(Me.cboCEP) Or Me.cboCEP.Value = "" Then
MsgBox ("Campo CEP precisa ser preenchido")
Me.cboCEP.SetFocus
Exit Sub
End If
If IsNull(Me.tNúmero) Or Me.tNúmero.Value = "" Then
MsgBox ("Campo Número precisa ser preenchido")
Me.tNúmero.SetFocus
Exit Sub
End If

Dim db As Database
Dim rs As Recordset

If MsgBox("Gravar registro?", vbYesNoCancel, "Opções") = vbYes Then
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblClientes", dbOpenTable)
rs.AddNew

rs("Nome") = Me!tNome
rs("Sobrenome") = Me!tSobrenome
rs("Nascimento") = Me!tNascimento
rs("CPF") = Me!tCPF
rs("RG") = Me!tRG
rs("Telefone") = Me!tTelefone
rs("Celular") = Me!tCelular
rs("Email") = Me!tEmail
rs("Endereço") = Me!tEndereço
rs("Número") = Me!tNúmero
rs("Bairro") = Me!tBairro
rs("Cidade") = Me!tCidade
rs("Estado") = Me!tEstado
rs("CEP") = Me!tCEP
rs("País") = Me!tPaís
rs("Observações") = Me!tObservações

rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing

Me.tNome = Null
Me.tSobrenome = Null
Me.tNascimento = Null
Me.tCPF = Null
Me.tRG = Null
Me.tTelefone = Null
Me.tCelular = Null
Me.tEmail = Null
Me.tEndereço = Null
Me.tNúmero = Null
Me.tBairro = Null
Me.tCidade = Null
Me.tEstado = Null
Me.tCEP = Null
Me.tPaís = Null
Me.tObservações = Null

MsgBox "Registo gravado com sucesso", vbInformation, "Concluído"
Me.tNome.SetFocus
Else: Exit Sub
End If
End Sub

A parte do código em vermelho é o que eu consegui fazer com que me retornasse o resultado esperado hehehe
eu sabia que dava para fazer isso no onClick do próprio botão.
como diz JPaulo existe varias maneiras de se fazer naston né? hehehehe