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

    Manter Valor text Box não Aclopado

    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    Manter Valor text Box não Aclopado Empty Manter Valor text Box não Aclopado

    Mensagem  maguim 9/11/2017, 11:25

    meu queridos

    Dei uma sumida rs... Laughing

    Estou em novo projeto aqui na área.

    Tenho formulário que ele faz cálculos com coeficiente de negociação de plano de saúde.

    A ideia é manter ultimo valor inserido no textbox caso seja fechado o formulário ou access.

    Lembrando.. box não tem vinculo nenhum a cadastro em tabelas é somente um form simples de cálculos.

    Existe essa possibilidade, não achei nada na net e no fórum.

    Abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    Manter Valor text Box não Aclopado Empty Re: Manter Valor text Box não Aclopado

    Mensagem  CassioFabre 9/11/2017, 11:32

    Bom dia,

    Não é possível. Voce pode manter o valor numa variável e usá-lo enquanto o sistema estiver aberto, porém quando fechado ou reiniciado, o valor se perderia. Voce deve gravá-lo numa tabela.

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    Manter Valor text Box não Aclopado Empty Re: Manter Valor text Box não Aclopado

    Mensagem  maguim 9/11/2017, 11:43

    como seria o parâmetro?

    pelo o que entendi, se o aplicativo estiver aberto e o formulário fechado o valor se mantem?


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    Manter Valor text Box não Aclopado Empty Re: Manter Valor text Box não Aclopado

    Mensagem  CassioFabre 9/11/2017, 12:04

    Bom dia,

    É só voce criar essa variável num módulo e populá-la. Enquanto o programa estiver aberto, essa variável manterá o valor. Um exemplo clássico disso é a varável que diz o usuário logado atualmante no sistema. Bem simples de fazer.

    Abrao.


    .................................................................................
    Só não tem código pra morte!
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    Manter Valor text Box não Aclopado Empty Re: Manter Valor text Box não Aclopado

    Mensagem  maguim 9/11/2017, 12:47

    assim ? esta dando erro #Nome?


    Código:
    Function verificacampo(coef1 As String, vlr1 As String) As Boolean

          
        if verificacampo = True then
            setcampo coef1
        Else
            verificacampo = False
        End If

    End Function
    Sub setcampo(coef1 As String)
        strcampo = coef1
    End Sub
    Function getcampo() As String
        getcampo = strcampo
    End Function



    Última edição por maguim em 9/11/2017, 13:06, editado 1 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    Manter Valor text Box não Aclopado Empty Re: Manter Valor text Box não Aclopado

    Mensagem  maguim 9/11/2017, 13:06

    acredito eu que nao declarei em algum lugar pra essa bendita variavel


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    Manter Valor text Box não Aclopado Empty Re: Manter Valor text Box não Aclopado

    Mensagem  CassioFabre 9/11/2017, 14:44

    Boa tarde,

    Em um módulo coloque:
    Código:
    Dim strCampo as string

    Sub setCampo(coef1 As String)
        strCampo= coef1
    End Sub

    Function getCampo() As String
        getCampo= strCampo
    End Function

    A função que vai te retornar o valor que voce deseja é a função getCampo e a função que preenche o valor é a sub setCampo. Quando voce quiser preencher o valor da função getCampo, coloque:
    Código:
    setCampo("VALOR QUE RETORNARÁ")

    Quando quiser pegar o valor, numa msgbox por exemplo, coloque:
    Código:
    msgbox getCampo, vbInformation, "Valor"
    Na msgbox vai aparecer VALOR QUE RETORNARÁ conforme foi definido na sub setCampo.

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    Manter Valor text Box não Aclopado Empty Re: Manter Valor text Box não Aclopado

    Mensagem  maguim 9/11/2017, 18:47

    lembrando, o textbox é somente uma calculadora de valores

    esta dando erro #Nome? no text box

    joguei na fonte de controle setcampo(), porem sem resultado.

    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    Manter Valor text Box não Aclopado Empty Re: Manter Valor text Box não Aclopado

    Mensagem  CassioFabre 9/11/2017, 19:10

    Boa tarde,

    Na fonte do controle voce coloca =getCampo. A sub setCampo não retorna nenhum valor, ela é usada para atribuição de valores.

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    Manter Valor text Box não Aclopado Empty Re: Manter Valor text Box não Aclopado

    Mensagem  maguim 10/11/2017, 16:44

    amigo nao consigo escrever valores no campo.

    campo fica em branco porem nao escreve nada


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised

    Conteúdo patrocinado


    Manter Valor text Box não Aclopado Empty Re: Manter Valor text Box não Aclopado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:58