MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Campos de Preenchimento Obrigatório

    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    [Resolvido]Campos de Preenchimento Obrigatório Empty Campos de Preenchimento Obrigatório

    Mensagem  Uilson Brasil Ter 21 maio 2013, 2:50 pm

    Pessoal, bom dia!!!

    Tenho um formulário onde quando ao carregar é habilitada apenas os botões de NAVEGAÇÃO, NOVO REGISTRO e SAIR. Nele também existe uma combobox (não acoplada) que serve para selecionar um registro específico. Após atualizar esta combobox os botões ALTERAR, SALVAR também são ativados.
    Alguns campos deste formulário é de preenchimento obrigatório. Criei uma instrução no botão SALVAR para informar que o campo TAL (quando não preenchido) é de preenchimento obrigatório e seta para o TAL campo. O problema é que se o operador passar campo a campo com o ENTER ou TAB após sair do último registro ele salva normalmente.

    Como tenho a instrução de setar para o primeiro campo sempre que for inserir ou alterar um registro, gostaria de criar um forma que não permitisse sair do registro sem antes de inserir os dados. só lembrando que os 5 primeiros registros são de preenchimento obrigatório.

    Se alguém poder me ajudar, desde já agradeço pela atenção.

    Uilson Brasil
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Campos de Preenchimento Obrigatório Empty Re: [Resolvido]Campos de Preenchimento Obrigatório

    Mensagem  Cláudio Más Ter 21 maio 2013, 2:57 pm

    Altere a propriedade Ciclo do formulário para "Registro atual".

    Seria interessante também desabilitar as teclas Page Up e Page Down.
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    [Resolvido]Campos de Preenchimento Obrigatório Empty Re: [Resolvido]Campos de Preenchimento Obrigatório

    Mensagem  Uilson Brasil Ter 21 maio 2013, 4:10 pm

    Caro Cláudio Más,

    Fiz a alteração sugerida porém consigo sair do campo normalmente sem realizar o preenchimento ...
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Campos de Preenchimento Obrigatório Empty Re: [Resolvido]Campos de Preenchimento Obrigatório

    Mensagem  Cláudio Más Ter 21 maio 2013, 4:24 pm

    Isso não estaria sendo controlado pelo botão "Salvar"?
    Achei que o problema fosse salvar o registro sem clicar no botão "salvar", movendo inadvertidamente para outro registro.
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    [Resolvido]Campos de Preenchimento Obrigatório Empty Re: [Resolvido]Campos de Preenchimento Obrigatório

    Mensagem  Uilson Brasil Ter 21 maio 2013, 4:33 pm

    Suponhamos que os campos são: A, B, C, D, E
    Quero que o campo B ao receber o foco, verifique se o campo A foi preenchido. se o valor do campo A for NULL apareça a caixa de mensagem informando que o campo A é de preenchimento obrigatório e set para o campo A para que seja preenchido e assim por diante ...
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Campos de Preenchimento Obrigatório Empty Re: [Resolvido]Campos de Preenchimento Obrigatório

    Mensagem  Cláudio Más Ter 21 maio 2013, 4:45 pm

    Traduzindo para o VBA, no evento "Ao receber foco" do campo B:

    Código:
    If IsNull(Me!A) Then
        MsgBox "A é de preenchimento obrigatório"
        Me!A.SetFocus
    End If

    Ou no "Ao perder foco" do campo A:

    Código:
    If IsNull(Me!A) Then
        MsgBox "A é de preenchimento obrigatório"
        Me!B.SetFocus
        Me!A.Setfocus
    End If
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    [Resolvido]Campos de Preenchimento Obrigatório Empty Re: [Resolvido]Campos de Preenchimento Obrigatório

    Mensagem  Uilson Brasil Ter 21 maio 2013, 5:12 pm

    Caro, Cláudio Más

    Aproveitando a oportunidade (deixa abusar um pouquinho da sua boa vontade).
    Existe a possibilidade de desabilitar o foco nos campos através do clik do mouse??? Aí vai funfar 100%
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Campos de Preenchimento Obrigatório Empty Re: [Resolvido]Campos de Preenchimento Obrigatório

    Mensagem  Cláudio Más Ter 21 maio 2013, 5:49 pm

    Não sei se vai funfar 100%, mas tente o comando abaixo no evento "Ao clicar" dos campos:

    Screen.PreviousControl.SetFocus

    Ou escolha um outro campo qualquer para enviar o foco.
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    [Resolvido]Campos de Preenchimento Obrigatório Empty Re: [Resolvido]Campos de Preenchimento Obrigatório

    Mensagem  Uilson Brasil Ter 21 maio 2013, 8:04 pm

    Fiz o seguinte ...

    Private Sub COORD_Exit(Cancel As Integer)
    If IsNull(Me!COORD) Or Me!COORD = "" Then
    MsgBox "Campo de preenchimento obrigatório!"
    Cancel = True 'Cancela o evento.
    End If
    End Sub


    FUNFOU!!!
    Agora o problema é que quando o operador iniciar um NOVO REGISTRO e por ventura queira desistir o sistema não permite sair do campo. Pensei em criar um botão CANCELAR para efetuar a desistencia sem gravar os dados iniciados, mas não é possivel clicar fora do campo em foco... Tens alguma idéia???
    End Sub


    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    [Resolvido]Campos de Preenchimento Obrigatório Empty Re: [Resolvido]Campos de Preenchimento Obrigatório

    Mensagem  Uilson Brasil Ter 21 maio 2013, 10:11 pm

    RESOLVIDO

    Conteúdo patrocinado


    [Resolvido]Campos de Preenchimento Obrigatório Empty Re: [Resolvido]Campos de Preenchimento Obrigatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 19 Abr 2024, 6:11 pm