[Resolvido]Inverter inicio da data

tipo assim estou importando um arquivo txt para meu formulario.

só que a data no arquivo txt estar assim: 20130101
só que no meu campo, no formulario quero que fique assim : 01/01/2013

como faço?

Boa tarde,
Que código utiliza na importação da data?

O arquivo que quero importar é esse txt que postei

Alimente o seu formulario com uma consulta e nela formate esse campo;

DataRef:Format(SeuCampoData;"dd-mm-yyyy")

Aqui esta o bando de dados

aproveitando, não sei se devo criar um novo topico.

o arquivo txt tem a primeira linha e a ultima diferente... como faço para importar-los diferentes dos outros????

desculpas, mas não conseguir fazer a data JPaulo.

Ola, com permissão dos demais:
Teste o anexo.

não deu certo, Marcelo David.

na importação não completa os dados.

...

alguem sabe como faço para não importar a ultima linha do txt???

ja postei o arquivo txt e o banco de dados com os código que estou usando, ja fiz para não importar a primeira linhas
mas agora não quero importar a ultima linha.

alguem sabe como importar um arquivo txt, sem que seja importada a ultima linha.

Amigo, novo dúvida, novo tópico!
Temos exemplos de importação/exportação de txt aqui
no fórum!

eu criei um novo topico, só que ele foi bloqueado, pediram para continuar nesse topico, agora fique na duvida, novo ou continuo no mesmo?

Boa tarde,
Não vi nenhum tópico bloqueado.
Mesmo assim, mostre o código de importação que utiliza para se tentar ajudar.

o arquivo txt é esse que está postado.
e o código esta no bando de dados postado.

Boa tarde,

Private Sub Importar_Click()
On Error Resume Next

Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim Linha As String
Dim NrLinha As Integer, QtLinhas As Integer

If Len(Me.Txtnomearq & vbNullString) = 0 Then ' Testa se txtNomeArq contém alguma coisa
MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
Me.Txtnomearq.SetFocus
Exit Sub
End If
If Len(Dir(Me.Txtnomearq)) = 0 Then ' Testa a existência do arquivo
MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
Me.Txtnomearq.SetFocus
Exit Sub
End If

Open Me.Txtnomearq For Input As #1 ' Abre o arquivo a ser importado

Set DB = CurrentDb
Set RS = DB.OpenRecordset("TblRepassesDetran")
'verifica quantidade de linhas do ficheiro
While Not EOF(1)
QtLinhas = QtLinhas + 1
Wend
Close #1

Open Me.Txtnomearq For Input As #1 ' Abre o arquivo a ser importado
While Not EOF(1)
NrLinha = NrLinha + 1
If NrLinha < QtLinhas Then
Line Input #1, Linha ' Lê uma linha do arquivo texto
With RS
.AddNew
!Notif = Mid$(Linha, 1, 10)
!Placa = Mid$(Linha, 11, 7)
!DataPag = Mid$(Linha, 18,
!Valor = Mid$(Linha, 26, 6)
!BancoAgencia = Mid$(Linha, 32, 7)
!Extrato = Mid$(Linha, 39, 10)
!DataBaixa = Mid$(Linha, 49,
!DataRef = Mid$(Linha, 57,
!CodInfra = Mid$(Linha, 65, 4)
!DataInfra = Mid$(Linha, 69,
!Municipio = Mid$(Linha, 77, 10)
!Tipo = Mid$(Linha, 91, 1)
.Update
End With
End If
Wend
Close #1

Saida:
Close
Set RS = Nothing
Set DB = Nothing
MsgBox "Arquivo importado com sucesso", vbInformation, "Importação"
Exit Sub

Me.Form.Requery

End Sub

boa tarde

Alexandre Neves, não deu certo, pois toda vez que coloco pra importar. trava tudo, tipo não nem importa nem nada.

Boa noite,
Disponibilize os ficheiros para avaliar

o arquivo txt e o banco de dados ja estao postados...

Boa tarde,
Private Sub Importar_Click()
On Error Resume Next

Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim Linha As String
Dim NrLinha As Integer, QtLinhas As Integer

If Len(Me.Txtnomearq & vbNullString) = 0 Then ' Testa se txtNomeArq contém alguma coisa
MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
Me.Txtnomearq.SetFocus
Exit Sub
End If
If Len(Dir(Me.Txtnomearq)) = 0 Then ' Testa a existência do arquivo
MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
Me.Txtnomearq.SetFocus
Exit Sub
End If

Open Me.Txtnomearq For Input As #1 ' Abre o arquivo a ser importado
QtLinhas = 0
Set DB = CurrentDb
Set RS = DB.OpenRecordset("TblRepassesDetran")
'verifica quantidade de linhas do ficheiro
While Not EOF(1)
QtLinhas = QtLinhas + 1
Line Input #1, Linha
Wend
Close #1

Open Me.Txtnomearq For Input As #1 ' Abre o arquivo a ser importado
While Not EOF(1)
NrLinha = NrLinha + 1
Line Input #1, Linha ' Lê uma linha do arquivo texto
If NrLinha < QtLinhas Then
With RS
.AddNew
!Notif = Mid$(Linha, 1, 10)
!Placa = Mid$(Linha, 11, 7)
!DataPag = Mid$(Linha, 18)
!Valor = Mid$(Linha, 26, 6)
!BancoAgencia = Mid$(Linha, 32, 7)
!Extrato = Mid$(Linha, 39, 10)
!DataBaixa = Mid$(Linha, 49)
!DataRef = Mid$(Linha, 57)
!CodInfra = Mid$(Linha, 65, 4)
!DataInfra = Mid$(Linha, 69)
!Municipio = Mid$(Linha, 77, 10)
!Tipo = Mid$(Linha, 91, 1)
.Update
End With
End If
Wend
Close #1

Saida:
Close
Set RS = Nothing
Set DB = Nothing
MsgBox "Arquivo importado com sucesso", vbInformation, "Importação"
Exit Sub

Me.Form.Requery
End Sub

continuar a mesma coisa... coloquei esse novo modulo, mas quando importo o access não conseguir finalizar o processo, se deixar passa o dia inteiro.

tem como voce manda feito no banco de dados.????

Boa tarde,
Ei-lo

e nesse código o que faço para não importar a primeira linha tambem...

você colocou para não importar a ultima, mas tambem não quero importar a primeira.?

alguem sabe usando o modulo do ultimo banco de dados postado, como fazer com que ele tambem não importe a primeira linha.

Utilizamos o Line Input #1, Linha para saltar a primeira linha

Veja a mensagem Nº 5

http://maximoaccess.forumeiros.com/t9538-retirar-aspas-na-importacao-txt-e-ler-linha-unica

sabe eu tentei.

mas nao sei se to colocando no lugar certo.

tipo você pode colocar no bd e manda pra eu ver.???

alguem sabe como resolvo a questão

não importar a primeira e nem a ultima linha de arquivo txt????????

Rapaz, algumas perguntas;

1ª A adaptação do Alexandre, não funciona ?

2ª Em qual parte não funciona ?

3ª O que é que você entendeu da Mensagem Nº 5 do link que lhe passei ?

a adptação do alexandre, da certo para não importa apenas a ultima, a que eu postei anteriormente não importa a primeira...

só que não quero importar nem a primeira e nem a ultima linha.

e sinceramente não consigo juntas os dois modulos para que funcionem como quero (não imporar a primeira e nem a ultima)

Não tem que importar dois modulos alguns.

Vou repetir para você;

Na mensagem Nº5 eu digo:

Utilizamos o Line Input #1, LinhaDoTexto para saltar a primeira linha


Então você só tem de adicionar essa intrução antes do Do Wile.

On Error Resume Next

Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim Linha As String
Dim NrLinha As Integer, QtLinhas As Integer

If Len(Me.Txtnomearq & vbNullString) = 0 Then ' Testa se txtNomeArq contém alguma coisa
MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
Me.Txtnomearq.SetFocus
Exit Sub
End If
If Len(Dir(Me.Txtnomearq)) = 0 Then ' Testa a existência do arquivo
MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
Me.Txtnomearq.SetFocus
Exit Sub
End If

Open Me.Txtnomearq For Input As #1 ' Abre o arquivo a ser importado
QtLinhas = 0
Set DB = CurrentDb
Set RS = DB.OpenRecordset("TblRepassesDetran")
'verifica quantidade de linhas do ficheiro
While Not EOF(1)
QtLinhas = QtLinhas + 1
Line Input #1, Linha
Wend
Close #1

Open Me.Txtnomearq For Input As #1 ' Abre o arquivo a ser importado
While Not EOF(1)
NrLinha = NrLinha + 1
Line Input #1, Linha ' Lê uma linha do arquivo texto
If NrLinha < QtLinhas Then
With RS
.AddNew
!Notif = Mid$(Linha, 1, 10)
!Placa = Mid$(Linha, 11, 7)


O inicio do modulo é esse. Você pode me dizer onde colocar o "line input #1, linhadotexto".

grato

alguem sabe como resolvo esse problema????????

Mestre JPaulo deu certo... agora não importa mas nem a primeira nem a ultima linha...

On Error Resume Next

Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim Linha As String
Dim NrLinha As Integer, QtLinhas As Integer

If Len(Me.Txtnomearq & vbNullString) = 0 Then ' Testa se txtNomeArq contém alguma coisa
MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
Me.Txtnomearq.SetFocus
Exit Sub
End If
If Len(Dir(Me.Txtnomearq)) = 0 Then ' Testa a existência do arquivo
MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
Me.Txtnomearq.SetFocus
Exit Sub
End If

Open Me.Txtnomearq For Input As #1 ' Abre o arquivo a ser importado
QtLinhas = 0
Set DB = CurrentDb
Set RS = DB.OpenRecordset("TblRepassesDetran")
'verifica quantidade de linhas do ficheiro
line input #1, linhadotexto
Do While Not EOF(1)
QtLinhas = QtLinhas + 1
Line Input #1, Linha
loop
Close #1

Open Me.Txtnomearq For Input As #1 ' Abre o arquivo a ser importado
lina input #1, linhadotexto
Do While Not EOF(1)
NrLinha = NrLinha + 1
Line Input #1, Linha ' Lê uma linha do arquivo texto
If NrLinha < QtLinhas Then
With RS
.AddNew
!Notif = Mid$(Linha, 1, 10)
!Placa = Mid$(Linha, 11, 7)

- o problema tava que eu tinha transformado em Do While apenas a segunda e não a primeira linha e tinha colocado o "line input #1" tambem só na segunda e era necessario nas duas.

valeu ai, e desculpas pela falta de conhecimento.

agora no inicio desse topico o que perguntei tambem foi com relação a data, nao sei se preciso abrir outro topico

no arquivo txt que postei a data 20130501 e que que ao importar fique no formulario assim 01/05/2013. o que tem fazer?

Este ficou sem continuidade.
Deu certo? ainda está à espera?

valeu... obrigado...

resolvido