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 ?
->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, ";")
Tak for det. Held og lykke med det. Linjen "Dim i As Integer" kan godt slettes.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.