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


    Sair do form campo obrigatório

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 06/11/2020

    Sair do form campo obrigatório  Empty Sair do form campo obrigatório

    Mensagem  m_sousa 21/2/2021, 19:39

    Olá

    Preciso que ao sair do form seja sempre preenchido um campo, campo obrigatório, e se não preencher não grava.

    tenho o seguinte código, mas não funcionou ao colocar ao sair . . .

    Código:
    Private Sub QuestionarioEfetuado_Exit(Cancel As Integer)
    If IsNull(Me.ActiveControl) Then
    MsgBox "Campo Obrigatório", vbQuestion, "Atenção Operador(a) "
    DoCmd.CancelEvent
    End If
    End Sub

    Obrigado

    Um bem hajam... Saúde para todos.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1688
    Registrado : 23/01/2018

    Sair do form campo obrigatório  Empty Re: Sair do form campo obrigatório

    Mensagem  crysostomo 22/2/2021, 01:51

    fico de carona


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/12/2017

    Sair do form campo obrigatório  Empty Re: Sair do form campo obrigatório

    Mensagem  Ismael Silva 22/2/2021, 13:08



    Bom dia,

    Vê se dá certo este:


    If IsNull(nomedoseucampo) Or nomedoseucampo= "" Or nomedoseucampo.Value = 0 Then
    MsgBox "nomedoseucampo é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
    Me.nomedoseucampo.SetFocus
    Exit Sub
    End If


    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1688
    Registrado : 23/01/2018

    Sair do form campo obrigatório  Empty Re: Sair do form campo obrigatório

    Mensagem  crysostomo 23/2/2021, 13:22

    pensei que tinha um controle para todos para não precisar escrever todos, em uma só vez o sistema já identificar


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4442
    Registrado : 06/11/2009

    Sair do form campo obrigatório  Empty Re: Sair do form campo obrigatório

    Mensagem  Assis 23/2/2021, 13:33

    Boa tarde

    Poste só o formulário e a tabela da mensagem Nº 1

    PS - Qual é a versão do seu Office ?


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 06/11/2020

    Sair do form campo obrigatório  Empty Re: Sair do form campo obrigatório

    Mensagem  m_sousa 23/2/2021, 15:48

    Olá

    Por mim esta resolvido, pois a ideia era mesmo esta... Em relação a dúvida acrescida do amigo crysostomo, fico a tentar perceber se dou como resolvido ?

    Obrigado
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4058
    Registrado : 29/06/2012

    Sair do form campo obrigatório  Empty Re: Sair do form campo obrigatório

    Mensagem  Noobezinho 23/2/2021, 18:50

    Pessoal

    Aqui está minha contribuição antes de fechar o tópico:

    Código:

    'Código para colocar no botão fechar do formulário
    'Ali onde tem Me.idcliente, verifica se não é nulo, se for nulo, não executa o código pois o formulário está em branco.

    Private Sub btnFechar_Click()

    If Not IsNull(Me.idcliente) Then ' Deve ser a primeira caixa de texto a ser preenchida ao adicionar um registro.
       If Not TestaCampos Then
          Exit Sub
       Else
          DoCmd.Close
       End If
    Else
          DoCmd.Close
    End If
    End Sub

    ' O código abaixo vai na página de VBA do formulário.
    Código:

    'Com o formulário em modo design, clique numa caixa de texto e na aba [b]Outras[/b] da folha de propriedade e
    'vá até a ultima propriedade  (Marca) em VBA (Tag) (Meu Office é o 2010).
    'Podemos escolher qual caixa de texto é obrigado ser preenchida e para isso colocamos um (t) sem os parênteses, nessa propriedade, na
    'folha de dados.
    'O código abaixo irá verificar somente as caixas de texto que tem o  (t)  na Marca

    Private Function TestaCampos() As Boolean
        Dim I As Integer
        Dim strMsg As String
        Dim strTitle As String
          
        TestaCampos = True

        'inicia o loop pelos controle do formulário
        'a contagem começa em zero (0) até  x-1
        For I = 0 To Me.Count - 1
            'se o controle tem a marca(tag) = t então
            If Me(I).Tag = "t" Then
                'se o campo está vazio então
                If IsNull(Me(I)) Or Me(I) = "" Then
                    'emite mensagem acompanhado do nome do controle
                    strMsg = "É obrigatório o preenchimento do campo '" & Me(I).Name & "'!"
                    strTitle = "Campo em Branco"
                    MsgBox strMsg, 48, strTitle
                    'move o foco para o controle
                    Me(I).SetFocus
                    TestaCampos = False
                    Exit Function
                End If
            End If
        Next I

    End Function

    Espero que gostem

    { }'s

    Balem


    Última edição por Noobezinho em 4/3/2021, 22:32, editado 2 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/12/2017

    Sair do form campo obrigatório  Empty Re: Sair do form campo obrigatório

    Mensagem  Ismael Silva 23/2/2021, 19:35

    Boa dica,

    Vou fazer os meus teste aqui, essa eu não sabia ainda.

    Obrigado.

    Conteúdo patrocinado

    Sair do form campo obrigatório  Empty Re: Sair do form campo obrigatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 12:57