[Resovido] Mensagem para linha de registro em branco

julianovv 30/1/2012, 13:45

julianovv: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 685
Registrado : 14/12/2010

Mensagem nº1

[Resovido] Mensagem para linha de registro em branco

Mensagem julianovv 30/1/2012, 13:45

Bom dia! Tenho um formulário baseado em tabela com um subformulário baseado na tabela relacionada a primeira. Este subformulário é uma tabela em modo folha de dados. Gostaria de ao clicar em qualquer campo em branco aparecesse uma mensagem: "Você não pode digitar nesse campo antes de completar os campos anteriores." Os dois primeiros campos não podem ficar em branco.
Alguém tem um código assim?
Obrigado!

Rolling Eyes

Última edição por julianovv em 30/1/2012, 19:02, editado 1 vez(es)

criquio 30/1/2012, 13:49

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resovido] Mensagem para linha de registro em branco

Mensagem criquio 30/1/2012, 13:49

Já tentou algo assim no evento "Ao receber foco" do campo?

If IsNull(Me.Campo1) Or IsNull(Me.Campo2) Or Me.Campo1.Value = "" Or Me.Campo2.Value = "" Then
MsgBox "Os campos 1 e 2 não podem ser nulos. Preencha-os.", vbCritical, "Atenção"

If IsNull(Me.Campo1) Or Me.Campo1.Value = "" Then
Me.Campo1.SetFocus
Else
Me.Campo2.SetFocus
End If

Else
End If

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

julianovv 30/1/2012, 13:51

julianovv

julianovv: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 685
Registrado : 14/12/2010

Mensagem nº3

Re: Mensagem para linha de registro em branco

Mensagem julianovv 30/1/2012, 13:51

Não tentei mas a dica pode ser útil. Preciso que seja ao clicar. Alguns usuários digitam dados antes de completar os anteriores e isso anda causando problemas no sistema.

Rolling Eyes

Convidad 30/1/2012, 13:53

Convidad

Convidad: Convidado

Mensagem nº4

Re: [Resovido] Mensagem para linha de registro em branco

Mensagem Convidad 30/1/2012, 13:53

Cloque este código em todos os campos que quer conferir:
Ou seja, no campo3, campo4, campo5...

Private Sub Campo3_Enter()
      If IsNull(Me.Campo1) Then
            Me.Campo1.SetFocus
            MsgBox "O campo1 não pode ficar em branco"
      ElseIf IsNull(Me.Campo2) Then
            Me.Campo2.SetFocus
            MsgBox "O campo2 não pode ficar em branco"
      End If
End Sub

Última edição por norbs em 30/1/2012, 13:55, editado 1 vez(es)

criquio 30/1/2012, 13:53

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº5

Re: [Resovido] Mensagem para linha de registro em branco

Mensagem criquio 30/1/2012, 13:53

Acho que tanto faz ser no "Ao clicar" ou "Ao receber foco", já que o segundo ocorre logo após a ocorrência do primeiro, não? Very Happy

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.