[Resolvido]Copiar valor de um arquivo .txt para um determinado campo do Form.

Bom dia amigos !
Necessito mais uma vez da ajuda de vocês !

Preciso capturar um valor dentro de um arquivo txt na raiz do C: para um determinado campo do meu formulário.

Por Exemplo:
O caminho completo do arquivo é [C:\Peso.txt] e dentro desse arquivo aparecerá o peso atualizado de segundo em segundo com o formato "888888".

Minha dúvida é:
Como devo escrever o código de modo que ao clicar no comando CapturaPeso ele pegará o peso que está escrito nesse arquivo Peso.txt e o jogará para o campo PesoAtual do Form?

Abraço a todos! []

Olá!

Esse assunto já foi bastante discutido aqui no fórum! Faça uma busca sobre: OPEN, print e txt e ecnontrará muita informação.

Bom estudo,

Opa eu aqui com a solução;

Dê o nome de txtPeso, ao seu campo no formulario:

Private Sub Form_Current()
Dim strTexto As String
Dim strNumero As Integer
'By JPaulo ® Maximo Access
    On Error GoTo 1

    strNumero = FreeFile
    'Open App.Path & "/teste.txt" For Input As #strNumero '(se tiver o txt junto ao banco)
    Open "c:\Peso.txt" For Input As #strNumero
    While Not EOF(strNumero)
        Input #strNumero, strTexto$
            Me.txtPeso.Value = strTexto$
            DoEvents
    Wend
    Close #strNumero
1:
End Sub

Grande Marcelo, peço desculpa não vi a sua intervenção, já tinha a janela da resposta aberta.

Grande Abraço

Bom dia le_lo28 !

Me desculpe, pesquisei sobre txt mas não consegui adaptar ao meu Form.

Valeu amigo !

Bom dia João Paulo !

Obrigado pelo retorno, já vou fazer a programação e posto assim que funfar.
Abraço!

Opa JP! Fica tranquilo, comigo não tem isso não!

Estamos num fórum!!! Quanto mais resposta melhor!!!

Você foi mais específico!!!

Grande abraço,

Em resposta à sua ajuda João Paulo o código funfa 100%

Adaptei seu código no Timer do Form atualizando-o a cada segundo.

Obrigado pela ajuda amigo!

Abraço []

Obrigado pelo retorno o fórum agradece.