Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

Boa tarde,

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

Boas Cf... o arquivo >>> Open "C:\users\20000252\desktop\EMD140211.txt" For Input As #1

Está na rede?  em um outro pc da rede?

Cumprimentos.

Boas HARYSOHN,

O meu pc está numa rede, tenho username e uma password para aceder a rede.

Cumprimentos,
Carlos Machado

Então... você deve colocar o endereço da Rede...

Exemplo: \\nome do computador na rede\pasta\

Cumprimentos.

Boas,

Obrigado HARYSOHN. Mas já estava a usar o endereço de rede no codigo. Já consigo abrir o arquivo TXT, estou agora com problemas na condição que por alguma razão não adiciona um novo registo.
Quando chega á condição "If" ele salta para "End If". Apesar da variavel strData ter um segmento de texto com "BKS".
Ver anexo.


If Left(strData, 4) Like "*BKS*" Then
rs.AddNew
rs!TicketInFileNumber = Trim(Mid(strData, 28, 10))
On Error Resume Next
rs.Update

End If

Cpts,
CM

Tente assim:

Like '*"'BKS'"*'"

Ou

Dim StrTexto as string

StrTexto = "BKS"

If Left(strData, 4) Like '*" & StrTexto & "*'"

Cumprimentos.

Boa tarde,

ele não gostou do codigo If Left(strData, 4) Like '*" & StrTexto & "*'" teu erro. Ver PrintScreen 2 no anexo.
Tive que colocar assim If Left(strData, 4) Like "'*" & StrTexto & "*'" mas ele continua a sair da condição "If".

Cumprimentos
Carlos Machado

Envie o modelo como está atualmente..

Cumprimentos.

Segue em anexo.

O problema está no meu computador será um problema librarias no ms access? O problema é que aqui o departamento de informatica não me ajudam porque não percebe nada do access.

Cmpts,
Carlos Machado

Cite o passo a passo para que eu reproduza aqui.

Cumprimentos.

A variável Strdata contém um texto bem grande.
Ocorre que o inicio é composto apenas de espaços....
Como você está pegando apenas os 4 primeiros dígitos de StrData.. este não retorna registro algum.

Cumprimentos.

Tente assim:

     If Left(LTrim(strData), 4) Like "*BKS*" Then

Cumprimentos.

HARYSOHN, você é uma máquina.
Já importa o número de Ticket para a tabela, mas só uma vez. Precisava de importar todos os tickets novos que estão no ficheiro. Na primeira linha com BKS que está no ficheiro. O problema é que existem no mesmo ficheiro TXT tickets com o mesmo número e eu não quero importar números de tickets que estejam repetidos.

Muito obrigado, já estava com pouca esperança de ver o meu problema resolvido.
Cumprimentos,
Carlos Machado

Copie o txt no word, marque colorido as informações que deseja importar e me envie, o txt, o word e o bd.

Cumprimentos.

Mais uma vez, obrigado, pela sua ajuda.

Segue em anexo o ficheiro zip com aquilo que pediu.

- PrintScreen da pasta onde recebo os ficheiro diáriamente. O nome dos ficherios não é constante, mas sim váriavel.

- Ficheiro doc o exemplo da informação do ficheiro.txt que é preciso importar. A verde está assinalado o contador de registos, a azul está assinalado a sigla da primeira linha do registo que tem a informação do numero de bilhete, a amarelo está a informação a importar para a tabela que é o número do bilhete/Ticket.

- Ficheiro original com a informação a importar.

- Base de dados

Cumprimentos,
Carlos Machado

Bom dia, baseado neste .doc que me enviou Cite os tickets que deseja que sejam importados, ex:

Bks xxxxxx
Bkt yyyyy


Aguardo.

Cumprimento.

Bom dia HARYSOHN,

Não percebi bem aquilo que me diz?
Quer que eu indique os numeros de tickets a serem importados!? Existem milhões de numeros de tickets possiveis em cada ficheiro.

Cumprimentos,
Carlos Machado

Pelo menos das primeiras linha.. para que eu possa entender...


Cumprimentos...

Pegue uma parte inicial deste txt...
sei la umas 10 ou 20 linhas..

Marque com cores.. e cite como deseja isso..

XXX
bbb
cccc

Para eu saber onde buscar e como buscar esta informação no seu txt

Cumprimentos.

Segue em anexo ficheiro com as notas explicativas.

Ok, baseado no que me enviou... coloque como seria a informação exibida depois de importado, ex:

BKS3312400749263
BKS 3312400749263
BKS 3312400749263

etc...


Depois de importado.. coloque como deveria aparecer os textos do ticket que marcou em cores no doc..


Cumprimentos.

Boa tarde HARYSOHN,

A unica informação que necessito é o numero de Ticket.

Ver anexo.

Cpts,
Carlos Machado

Você tem um txt correto?

Isso.. você me enviou.. coloriu e tal...

Faça assim...
Para as primeiras 20 ou 25 linhas do txt... Descreva como ficaria na tabela com os dados importados das 20 ou 25 primeiras linhas..

Pra você deve ser fácil visualizar isto.. pois trabalha na área.. para mim parece Chinês..

Então eu devo ter uma visualização de qual seria o resultado para estas primeiras linhas.. assim eu terei noção de como fazer o código.

Cumprimentos.

Boas HARYSOHN,

Tirei uns dias de férias...  

O resultado para estas primeiras linhas é a visualização/importação do texto que está a amarelo para um campo na tabela.
Também não sei especificar todo o conteúdo do ficheiro. Julgo que também não preciso, pois só necessito do texto que se encontra a amarelo.
Mas se reparar o texto que se encontra a amarelo aparece muitas vezes no ficheiro e eu só quero que este texto seja integrado ou importado uma vez na tabela. Para isto que isto aconteça julgo que a melhor opção, será importar o texto a amarelo que se encontra na primeira linha que começa com as letras BKS que vem logo a seguir a linha BKT. Sempre que o BKT se repete o texto a amarelo/bilhete é diferente. Assim não é importado textos/bilhetes iguais.

Espero que tenha exclarecido.

Cumprimentos,
Carlos Machado

Os ticket's BKS serão sempre de numeração diferentes?


Cumprimentos.

Boas HARYSOHN,

O problema é que pode haver ticket's BKS com a mesma numeração. Mas quero carregar só uma vez a numeração ticket's BKS.

Cumprimentos,
Carlos Machado