[Resolvido]Formulário de Navegação - Obrigar preenchimento de campo

Viva a todos,

Aqui estou eu outra vez.

Sei que existem tópicos do que pretendo para Formulários Simples, no entanto o respectivo código não funciona nos Formulários de Navegação.

Pretendo que ao activar o Separador 1 e o  Campo PARK se o Campo A não for preenchido não seja possível :
- sair do Access;
- navegar entre registos desse Formulário;
- activar os restantes separadores, ou seja, o 2 e o 3.

Deixo aqui um ficheiro que ilustra a dificuldade relatada.

O meu obrigado antecipado

B. Gordino

Forneça-nos mais detalhes.

Cumprimentos.

Viva,

Então aqui vai:

Apliquei no Form1 o código do seguinte exemplo: http://maximoaccess.forumeiros.com/t2284-validar-ao-sair-do-campo-textbox-do-access-obrigar-preenchimento

Este código funciona se abrir o Form1 directamente, mas se for aberto através do Form 0 (Formulário de navegação) não consigo obrigar o preenchimento do Campo A.

Espero ter sido útil na explicação.

Obrigado

B. Gordino

Boas ....

Infelizmente, não tenho o AC2010. Se possível for salve o mesmo em Ac2003 para que possamos analisar melhor a duvida em questão.

Abraços.

Viva,

O problema é que 0 2003 não permite os Formulários de Navegação.

Obrigado na mesma.

Bruno Gordino

Bruno, tô em viagem de trabalho e não posso verificar na integra.

Posso sugerir que vá nas propriedades do seletor de registros e outras e pesquise como pode intervir no funcionamento pelo vba.

Já amanhã darei uma olhada no que possa ser útil.

Obrigado pela participação amigo Dilson.. eu também não tenho o 2010

Cumprimentos.

Não sei se entendi direito, faz o teste para ver se é isso mesmo que desejas.

Viva Sr. Beto,

Antes demais muito obrigado pela atenção dispensada.

Testei o exemplo e não me vejo obrigado a prencher o Campo A.

Possívelmente estou a explicar-me mal.

O que pretendo é obrigar o preenchimento do Campo A, assim que o Campo Park receber o Focus.

Quero que enquanto o Campo A não for preenchido, o utlilizador não pudesse:
- navegar entre registos;
- clicar nos separadores que dão acesso aos outros Formulários;
- sair do Access.

Help, mais uma vez!

Cumprimentos

B. Gordino

O evento ocorre ao sair do campo A depois de preencher o campo PARK, pois o primeiro campo a ser preenchido não é o campo PARK? Obrigar a preencher o campo A ao chegar no campo PARK, terias que colocar o foco primeiramente no campo A.

Olá Sr. Beto,

De início a intenção era a função funcionar bastando apenas o Focus estar no Campo Park.

Qualquer das maneira para o que preciso, se o Campo Park tiver que conter um valor também dá, ou seja, o seu  "If Not IsNull(Me.unb_Park) Then" está impecável.

Só está a acontecer duas coisas que não percebo:
- Porque é que, ao introduzir um valor no Campo Park, a MsgBox só surge se colocar o cursor no Campo A?
- Porque é que ao clicar nos separadores, a MsgBox surge 4 vezes seguidas?

O que eu já andei às voltas com isto e nunca me passou pela cabeça usar o "Enabled" nos botões de navegação.

Sr. Beto, está quase ... obrigado.

Cumprimentos

B. Gordino

Porque não tem lógica eu colocar no evento ao receber o foco do campo PARK, pois ele é o primeiro campo a ser preenchido, então se ele é o primeiro a ser preenchido não tem lógica também o campo A já estar preenchido se eu ainda não passei por ele, concordas?

Olá,

Concordo com não ter lógica em colocar no evento ao receber o foco do Campo PARK, pois ele é o primeiro campo a ser preenchido.

Mas imaginemos que depois do Campo PARK preenchido, o utilizador se esquece de preencher o Campo A, com o código que o Sr. Beto desenvolveu consigo sair sem qualquer problema, certo?

Acabei de colocar no Evento ao Sair do Campo Park "Me.CampoA.SetFocus" e ficou OK.

Agora só falta resolver o problema de, ao não preencher o Campo A e clicar nos separadores, a MsgBox surgir 4 vezes seguidas?

Deixo aqui a última versão do exemplo postado inicialmente.

Está quase, está quase...

B. Gordino

Baixa novamente do mesmo lugar acima e faz o teste.

Bom dia Sr. Beto,

Baixado, Testado, Impecável, ... e mais um "Resolvido".

Muito obrigado.

B. Gordino

O Fórum agradece o Retorno.