Import TXT

Jeg er i tvivl om, hvorvidt det kan lade sig gøre unden at benytte een eller anden form for tabel som "mellemstation" ... hvorfor vil du ikke ( som minimum ) have data i databasen midlertidigt ?

Alternativ:
Indlæse tekst-filen når formularen (ubundet) aktiveres
(Hej Jensen)

Hej SuperTekst ... long time no hear  C",)

Mener ikke man kan importere til andet end en tabel. Men bagefter kan man jo blot slette tabellen med DropTabel.

->hitmann3k
Hvor mange linier er der i tekstfilen?
Hvordan forestiller du, hvis flere linier, at disse skal kunne vælges?
Er der andre Access-elementer involveret?

Naturligvis kan man læse fra filen og udfylde felterne on-the-fly (uden tabel). Det kræver ikke mange liniers kode; men der er vel lidt mere i opgaven end som så.
- Hvad med filnavnet? Er det altid det samme?
- Hvordan finder man den rigtige linie i filen?
- Eller er der kun een eneste linie?

Hvis du har en formular med 3 felter:
txtLat, txtLong og txtGPS

og en knap: cmdGO

Det antages at textfilen hedder "1.txt" og ligger i samme mappe som databasen.
Det antages også at der kun er een linje i filen. De øvrige deltageres spørgsmål er helt relevante.

Bruges så dette for knappen:



Private Sub cmdGO_Click()

If MsgBox("Vil du indsætte dataene?", vbOKCancel + vbDefaultButton1, "") <> vbOK Then
    Exit Sub
End If

Dim aValues() As String
Dim sFilePath As String
Dim sFileText As String
Dim iFile As Integer
Dim i As Integer


sFilePath = CurrentProject.Path & "\1.txt"

iFile = FreeFile

' Since it's a small file, we'll read it all at a gulp.
Open sFilePath For Input As #iFile
sFileText = Input(LOF(iFile), iFile)
Close #iFile

' Split the line into values.
aValues = Split(sFileText, ";")

Me.txtLat = aValues(0)
Me.txtLong = aValues(1)
Me.txtGPS = aValues(2)

Erase aValues

End Sub

Der er kun en linje i filen og fil navn altid samme.. kigger på din kode i dag engang.

Det var præcis det jeg ville som din kode lave :-D nu jeg en glad mand

:-D :- D :-D :-D :-D :-D :-D :-D :-D :-D

Tak for det. Held og lykke med det.
Linjen "Dim i As Integer" kan godt slettes.