[Resolvido][DDMMYYYY] DATETIME

Código:

rs("DATANASCIMENTO") = Format(CDate(Campo(6)), "ddmmyyyy")

Código:

While Len(file_name) > 0
    Set rs = db.OpenRecordset("t_mensal", dbOpenTable)
       
 
    'Abre o ficheiro mapa a ser importado
    Open dir_path & file_name For Input As #1
        While Not EOF(1)
            Line Input #1, Linha
 
            If Left(Linha, 4) = "1106" Or Left(Linha, 4) = "1107" Then
 
                Campo = Split(Linha, "|")
                   
 
                rs.AddNew
                rs("Campo0") = Campo(0)
                rs("Campo1") = Campo(1)
                rs("Campo2") = Campo(2)
                rs("Campo3") = Campo(3)
                rs("Campo4") = Campo(4)
                rs("Campo5") = Campo(5)
               
                If Campo(6) <> "" Then
                rs("Campo6") = Format(CDate(Campo(6)), "ddmmyyyy")
                    Else
                rs("Campo6") = 0
                End If
               
                rs("Campo7") = Campo(7)
                rs("Campo8") = Campo(8)
                rs("Campo9") = Campo(9)
                rs("Campo10") = Campo(10)
                rs("Campo11") = Campo(11)
                rs("Campo12") = Campo(12)
                rs("Campo13") = Campo(13)
                rs.Update
            End If
        Wend
    Close #1
    
 
    file_name = Dir$()
Wend

Private Sub b_Importar_au105_Click()

Dim Nome As String
Dim Campo As Variant
Dim Linha As String
Dim db As Database
Dim rs As DAO.Recordset
Dim Matriz() As String
Dim x, y
     

Dim dir_path As String
Dim file_name As String
     

Dim stDocName As String
     

'Abre o banco de dados
Set db = CurrentDb
    

dir_path = "C:\teste\"
file_name = Dir$(dir_path)
     

db.Execute "DROP TABLE t_tabela"
     

db.Execute "CREATE TABLE t_tabela ([Campo0] NUMBER, [Campo1] NUMBER, [Campo2] NUMBER, [Campo3] NUMBER, " _
& "[Campo4] NUMBER, [Campo5] DATETIME, [Campo6] DATETIME, [Campo7] TEXT)"

While Len(file_name) > 0
    Set rs = db.OpenRecordset("t_tabela", dbOpenTable)
        

    'Abre o ficheiro mapa a ser importado
    Open dir_path & file_name For Input As #1
        While Not EOF(1)
            Line Input #1, Linha

            If Left(Linha, 4) = "1106" Or Left(Linha, 4) = "1107" Then

                Campo = Split(Linha, "|")
                rs.AddNew
                rs("Campo0") = Campo(0)
                rs("Campo1") = Campo(1)
                rs("Campo2") = Campo(2)
                rs("Campo3") = Campo(3)
                rs("Campo4") = Campo(4)
                
                If Campo(5) <> "" Then
                x = Left(Campo(5), 2) & "/" & Mid(Campo(5), 3, 2) & "/" & Right(Campo(5), 4)
                rs("Campo5") = Format(x, "dd/mm/yyyy")
                    Else
                End If
                               
                If Campo(6) <> "" Then
                y = Left(Campo(6), 2) & "/" & Mid(Campo(6), 3, 2) & "/" & Right(Campo(6), 4)
                rs("Campo6") = Format(y, "dd/mm/yyyy")
                    Else
                End If
                
                rs("Campo7") = Campo(7)
  
                rs.Update
            End If
        Wend
    Close #1

    file_name = Dir$()
Wend
     
MsgBox "Dados importados com sucesso!", vbInformation, "Importacao"
rs.Close
db.Close
End Sub