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]Campo Obrigatório Form Access 2003

    Rosalvo Petrillo
    Rosalvo Petrillo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/09/2013

    [Resolvido]Campo Obrigatório Form Access 2003 Empty Campo Obrigatório Form Access 2003

    Mensagem  Rosalvo Petrillo 3/11/2013, 12:51

    Bom domingo a Todos!
    Estou precisando fazer com que uma caixa de seleção do meu formulário seja um campo obrigatório. Eu Tentei fazer dessa maneira e não funcionou:

    No evento: ao descarregar do formulário
    If Isnull(nomedocampo) then
    docmd.cancelevent
    msgbox "Campo obrigatório"
    docmd.gotocontrol 'nomedo do campo"
    else
    end if

    Ele só funciona se não preencher nenhum campo do formulário. Mas se algum campo qualquer do formulário for preenchido, o formulário é fechado e salvo, não me obrigando a preencher o campo que desejo.
    Alguém poderia, por favor, me ajudar nesta questão? Muito obrigado a todos!!!!
    avatar
    bacano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 136
    Registrado : 08/12/2010

    [Resolvido]Campo Obrigatório Form Access 2003 Empty Re: [Resolvido]Campo Obrigatório Form Access 2003

    Mensagem  bacano 3/11/2013, 14:01

    Boa tarde
    Eu uso assim

    No evento: ao descarregar do formulário
    If Isnull(nomedocampo) or nomedocampo = "" then
    docmd.cancelevent
    msgbox "Campo obrigatório"
    docmd.gotocontrol 'nomedo do campo"
    else
    end if
    avatar
    Convidado
    Convidado


    [Resolvido]Campo Obrigatório Form Access 2003 Empty Re: [Resolvido]Campo Obrigatório Form Access 2003

    Mensagem  Convidado 3/11/2013, 14:27

    Tente no evento ao Fechar do formulário:

    If Len("" & Me.SeuCampo) =0 Then
      MsgBox "sua Mensagem"
    End if

    Agora para caixa de seleção não sei se dará certo porque ela exprime valores: 0, 1 ou -1

    Pode tentar assim:

    If Me.SuaCaixaSelecão.Value = 0 Then....


    Agora.. 0 = quando a caixa não tem valor nenhum.. é como se fosse nulo..
    1 = Quando fora marcada
    -1 = Quando fora desmarcada

    é por ai.

    Cumprimentos.
    Rosalvo Petrillo
    Rosalvo Petrillo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/09/2013

    [Resolvido]Campo Obrigatório Form Access 2003 Empty Preenchimento obrigatórios ACCESS 2003

    Mensagem  Rosalvo Petrillo 3/11/2013, 14:56

    Bom, eu coloquei assim e aconteceu o seguinte:

    If Me.SuaCaixaSelecão.Value = 0 Then
    docmd.cancelevent
    msgbox "Campo obrigatório"
    docmd.gotocontrol 'nomedo do campo"
    else
    end if
    Ende sub

    Ele me avisa que está faltando preencher o campo, mas ele não não dá o foco no campo em questão e aceita fechar o formulário sem que o mesmo seja preenchido.
    Obrigado pela paciência...
    avatar
    Convidado
    Convidado


    [Resolvido]Campo Obrigatório Form Access 2003 Empty Re: [Resolvido]Campo Obrigatório Form Access 2003

    Mensagem  Convidado 3/11/2013, 18:44

    SuaCaixaDeSeleçào.. Deve substituir pelo nome da caixa de seleção que deseja checar..

    Cumprimentos.
    Rosalvo Petrillo
    Rosalvo Petrillo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/09/2013

    [Resolvido]Campo Obrigatório Form Access 2003 Empty Campo Obrigatório Form Access 2003

    Mensagem  Rosalvo Petrillo 3/11/2013, 20:26

    Olá Piloto! Agradeço por sua atenção. Mas eu só postei o exemplo de como eu formulei o código. Note até que End Sub está escrito errado. Uma dúvida é sobre a "frase":

    docmd.gotocontrol 'nomedodocampo"

    Isto está correto? Poque desta maneira o "nomedocampo" fica escrito em verde. Então eu o coloquei entre aspas.
    Obrigado mais um vez.
    avatar
    Convidado
    Convidado


    [Resolvido]Campo Obrigatório Form Access 2003 Empty Re: [Resolvido]Campo Obrigatório Form Access 2003

    Mensagem  Convidado 3/11/2013, 22:33

    Deseja verificar apenas um campo?

    Porque não envia o foco para ele?

    Me.SeuCampo.SetFocus
    Rosalvo Petrillo
    Rosalvo Petrillo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/09/2013

    [Resolvido]Campo Obrigatório Form Access 2003 Empty Preenchimento obrigatórios ACCESS 2003

    Mensagem  Rosalvo Petrillo 5/11/2013, 16:58

    Obrigado a todos pela grande ajuda!!!
    avatar
    Convidado
    Convidado


    [Resolvido]Campo Obrigatório Form Access 2003 Empty Re: [Resolvido]Campo Obrigatório Form Access 2003

    Mensagem  Convidado 5/11/2013, 17:04

    O Fórum agradece o Retorno.

    Conteúdo patrocinado


    [Resolvido]Campo Obrigatório Form Access 2003 Empty Re: [Resolvido]Campo Obrigatório Form Access 2003

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 03:32