Manter Valor text Box não Aclopado

meu queridos

Dei uma sumida rs...

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

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.

como seria o parâmetro?

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

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.

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



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

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.

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

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.

amigo nao consigo escrever valores no campo.

campo fica em branco porem nao escreve nada