Abro um novo tópico, como sugerido pelo consultor João Paulo.
Tenho o seguinte código para a importar dados de um ficheiro txt e guardar numa tabela em Access, ao executar o código, não dá erro mas não importa os dados para a tabela do access. O problema é que o código funciona, já foi testado noutros computadores, por isto o problema deve estar no meu computador.
O meu computador é um terminal de rede, mas o ficheiro que estou a tentar aceder, está no c:\ no meu desktop.
Alguém me poderá auxiliar nesta questão?
Código abaixo…
Private Sub ImportTicket_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Tabela_Stock_Bilhetes", dbOpenDynaset)
Dim strData As String
Close #1
Open "C:\users\20000252\desktop\EMD140211.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strData
If Left(strData, 4) Like "*BKS*" Then
rs.AddNew
rs!Bilhete = Trim(Mid(strData, 26, 14))
On Error Resume Next
rs.Update
End If
Loop
MsgBox "Importação Concluída com Sucesso!!!"
Close #1
rs.Close
Set rs = Nothing
End Sub