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


    [Resolvido]Dúvida no procedimento para exibição de dado em um campo especifico

    avatar
    ewertonms
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 20/09/2012

    [Resolvido]Dúvida no procedimento para exibição de dado em um campo especifico Empty [Resolvido]Dúvida no procedimento para exibição de dado em um campo especifico

    Mensagem  ewertonms Dom 27 Jan 2013, 18:14

    Olá pessoal na formula abaixo se o campo nota3 estiver preenchido ele retorna o valor, se estiver vazia retorna o campo nota2 porém, se o campo nota2 também estiver vazio e o campo nota1 preenchido ele não retorna o valor da nota1 no campo lastnote, alguem ajudá por favor?

    Sub lastnote_Gotfocus()

    If IsNull(Nota3) Then
    Me("lastnote") = Nota2
    ElseIf IsNull(Nota2) Then
    Me("lastnote") = Nota1
    Else
    Me("lastnote") = Nota3
    End If
    End Sub


    Última edição por ewertonms em Dom 27 Jan 2013, 18:24, editado 1 vez(es)
    avatar
    ewertonms
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 20/09/2012

    [Resolvido]Dúvida no procedimento para exibição de dado em um campo especifico Empty Re: [Resolvido]Dúvida no procedimento para exibição de dado em um campo especifico

    Mensagem  ewertonms Dom 27 Jan 2013, 18:23

    Consegui resolver pessoal, coloquei dessa forma e funcionou:

    Sub lastnote_Gotfocus()

    If IsNull(Nota2) Then
    Me("lastnote") = Nota1
    ElseIf IsNull(Nota3) Then
    Me("lastnote") = Nota2
    Else
    Me("lastnote") = Nota3
    End If
    End Sub

      Data/hora atual: Qui 21 Nov 2024, 16:22