Beste Helpers,
Als ik onderstaande uitvoer krijg ik de melding dat veld F1 in de doeltabel ontbreekt. Dat veld komt niet voor in het bronbestand en in het doelbestand.
Dim MijnBestand As String
With Application.FileDialog(3)
.Title = "Bestand selecteren"
.InitialFileName = "C:"
.Filters.Clear
.Filters.Add "CSV-bestanden", "*.CSV"
.AllowMultiSelect = False
If .Show <> 0 Then
MijnBestand = .SelectedItems.Item(1)
MsgBox MijnBestand
Else
Exit Sub
End If
End With
DoCmd.TransferText acImportDelim, , _
"tblLeads_Boekhouders", MijnBestand
Groet,
Hans
Als ik onderstaande uitvoer krijg ik de melding dat veld F1 in de doeltabel ontbreekt. Dat veld komt niet voor in het bronbestand en in het doelbestand.
Dim MijnBestand As String
With Application.FileDialog(3)
.Title = "Bestand selecteren"
.InitialFileName = "C:"
.Filters.Clear
.Filters.Add "CSV-bestanden", "*.CSV"
.AllowMultiSelect = False
If .Show <> 0 Then
MijnBestand = .SelectedItems.Item(1)
MsgBox MijnBestand
Else
Exit Sub
End If
End With
DoCmd.TransferText acImportDelim, , _
"tblLeads_Boekhouders", MijnBestand
Groet,
Hans