[Resolvido]Public Function no Ex.Popula uma ListBox com txt.

No Exemplo do JPaulo:

Repositório de Códigos VBA e SQL para Ms Access
102 Códigos VBA para Access
Abre Bloco de Notas (txt, notepad) e popula numa ListBox no Formulário

Minha necessidade é usar o código um uma Public Function, aonde fosse definido o nome do Arquivo Texto na chamada da function
Ex: Call Aplic_fr0Txt (nome do Arquivo)

Abraços,

Simples Amigo,

Public Function Aplic_fr0Txt(Inserir_Arquivo as String)
Dim strTexto As String
Dim strNumero As Integer
'By JPaulo ® Maximo Access
On Error GoTo 1
Me.SuaListbox.RowSourceType = "Value List"
Me.SuaListbox.RowSource = ""

strNumero = FreeFile
'Open App.Path & "/teste.txt" For Input As #strNumero '(se tiver o txt junto ao banco)
Open Inserir_Arquivo For Input As #strNumero
While Not EOF(strNumero)
Input #strNumero, strTexto$
SuaListbox.AddItem strTexto$
DoEvents
Wend
Close #strNumero
1:
End Function

'Para chamar

Call Aplic_fr0Txt("SeuArquivo.txt")

Vieira,

Muito obrigado mesmo.

Um grande abraço.

Pô eu to parecido com o Vieira?

kkkkkk

Vou ter que trocar a Foto....kkkkkk

Valeu amigo, obrigado pelo retorno

Sds,

Charles, desculpa aí rsrsrsrs

mas o agradecimento está correto

Muito obrigado.