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]Detetar se campo foi alterado

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Detetar se campo foi alterado Empty [Resolvido]Detetar se campo foi alterado

    Mensagem  Assis Qui 24 Jan 2019, 09:54

    Bom dia Amigos

    Tenho um campo no formulário chamado "PorContaDe" que no acontecimento Load do formulário assume o valor "PE - S "como mostra a imagem, com um espaço para colocar o cursor no sitio ideal para digitar um numero.

    Atenção o dito campo também pode assumir outros 2 valores que são "PE - B " e "PE - P "

    Queria detetar ao clicar no botão gravar se o dito campo "PorContaDe" foi ou não adicionado um número.

    Tentei assim e não resultou:

    If Me.PorContaDe = "PE - S " Then
       MsgBox "Falta Digitar o Número do PE", vbExclamation, "Aviso"
         Cancel = True 'Cancela o evento
      Me.PorContaDe.SetFocus
    Exit Sub
    End If



    [Resolvido]Detetar se campo foi alterado Sem_tz67

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Detetar se campo foi alterado Empty Re: [Resolvido]Detetar se campo foi alterado

    Mensagem  caiosouza Qui 24 Jan 2019, 10:51

    Bom dia,

    Tente trocar o Cancel = True pelo Docmd.CancelEvent

    E já que vc pode ter 3 valores iniciais no seu campo, não busque pelo valor e sim pela quantidade de caracteres:

    Código:
    Dim vPE As String
        vPE = Nz(Me.PorContaDe, vbNullString)
        If Len(vPE) < 9 Then
            MsgBox "Falta digitar o Nº do PE:", vbExclamation, "Aviso"
            DoCmd.CancelEvent
            Me.PorContaDe.SetFocus
            Exit Sub
        End If


    .................................................................................
    Caio Souza

    Engenheiro de Software
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Detetar se campo foi alterado Empty Re: [Resolvido]Detetar se campo foi alterado

    Mensagem  Assis Qui 24 Jan 2019, 16:27

    Obrigado Caio



    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Detetar se campo foi alterado Empty Re: [Resolvido]Detetar se campo foi alterado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 26 Abr 2024, 14:10