MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Detetar se campo foi alterado

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 24/1/2019, 11: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 100%

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

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

    Mensagem  caiosouza em 24/1/2019, 12: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


    .................................................................................
    A persistência leva ao sucesso!
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 24/1/2019, 18: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: 24/7/2019, 10:06