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 - Avança

    avatar
    ARJ
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 67
    Registrado : 31/07/2022

    [Resolvido]Campo Obrigatório - Avança Empty [Resolvido]Campo Obrigatório - Avança

    Mensagem  ARJ 21/3/2023, 15:20

    Olá

    Estou com um problema, caros amigos preciso de uma ajuda vossa. Obrigado

    Estou a utilizar o seguinte código:

    Código:
    Private Sub Data_LostFocus()
    If IsNull(Data) Or Data.Value = "" Then
      MsgBox "É necessário preencher a DATA", vbCritical
      Cancel = True
      Me.Data.SetFocus
    End If
    End Sub

    Só que dou OK ao aviso e este passa para o campo seguinte em vez de parar/ ficar no campo Data.

    Obrigado.

    Cristian Souza
    Cristian Souza
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 12/01/2021

    [Resolvido]Campo Obrigatório - Avança Empty Re: [Resolvido]Campo Obrigatório - Avança

    Mensagem  Cristian Souza 21/3/2023, 15:24

    Olá AnabelaSousa Very Happy

    O access possui este bug.

    Tente mover o foco pra um campo, e depois pro campo que você deseja, por exemplo:

    Código:


    Private Sub Data_LostFocus()
    If IsNull(Data) Or Data.Value = "" Then
       MsgBox "É necessário preencher a DATA", vbCritical
       Cancel = True
       Me.CampoQualquer.SetFocus
       Me.Data.SetFocus
    End If
    End Sub

    ARJ gosta desta mensagem

    avatar
    ARJ
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 67
    Registrado : 31/07/2022

    [Resolvido]Campo Obrigatório - Avança Empty Re: [Resolvido]Campo Obrigatório - Avança

    Mensagem  ARJ 21/3/2023, 15:45

    Olá

    Cristian amigo, muito obrigado. resolveu o meu galho bounce Obrigado.
    Não sabia que o Access tinha este problema. Obrigado
    Sempre a aprender neste fórum.
    Obrigado e um beijinho.

    Conteúdo patrocinado


    [Resolvido]Campo Obrigatório - Avança Empty Re: [Resolvido]Campo Obrigatório - Avança

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/4/2024, 03:40