Ang. spørgsel (Når man impoter txt filer)

min kode ser sådan her ud nu og da det jo er en fil hver gang du det ikke helt

Private Sub Kommandoknap13_Click()

DoCmd.TransferText acImportDelim, "Højspænding", "Højspænding reinhaus", "F:\lab\HN\Rein-txt\BG380210.txt"

End Sub

Indsæt flg. i et modul:

Option Compare Database
Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Function LaunchCD(strform As Form) As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = strform.hwnd
sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _
"JPG Files (*.JPG)" & Chr(0) & "*.JPG" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = "C:\Billede"
OpenFile.lpstrTitle = "Vælg en fil og tryk på Åbn."
OpenFile.Flags = 0
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
MsgBox "Manglende fil!", vbInformation, _
"Du har ikke valgt en fil fra Stifinderen."
Else
LaunchCD = Trim(OpenFile.lpstrFile)
End If
End Function


og så:


Private Sub Kommandoknap13_Click()
Dim sti As String
sti = LaunchCD(Me)
DoCmd.TransferText acImportDelim, "Højspænding", "Højspænding reinhaus", sti
End Sub


om du skal have pakket sti ind i ''er ved jeg ikke, jeg har ikke testet!~)

Ved ikke hvad fejlen er men når jeg vælger den txt fil jeg vil impoter skriver den  Run-time erroe '31519'
Du kan ikke importere denne fil

Du kan prøve:

Private Sub Kommandoknap13_Click()
Dim sti As String
sti = LaunchCD(Me)
DoCmd.TransferText acImportDelim, "Højspænding", "Højspænding reinhaus", "'" & sti & "'"
End Sub

og det vil kun være txt filer der er akutelle at impoter hvis det kan gøre det mere overskuelig

Virker det sidste forslag?~)

Nu skriver den run-time error 3044
F:\lab\hn\rein-txt\ er ikke en gyldig sti

Næh, men det er det vel heller ikke...

Det er jo kun mappen!~)

det er når jeg trykker på åbn når jeg vælger den fil jeg vil importer

Er det også hvad, der står som valgt fil-sti inden du trykker åbn...

nej det er føst når jeg har trykket åben

altså når jeg har markeret den fil jeg vil importer

Det virker fint hos mig... så jeg ved ikke rigtigt, hvad problemet kan være...

Prøv at dobbeltklikke på en fil for at åbne, sker der det samme?~)

Nej det virker helle ikke selv om jeg dobbeltklikke
den skriver det samme

jeg har prøvet at flytte fil så den bliver åbnet på andre drev men det er det samme
den skriver Run-time erroe '3044'
*.* er ikke en gyldig sti.Kontroller, at stinavnet er stavet korrekt, og at du er tilsluttet den server, hvor filen findes.

*.* = det er lige meget hvor filen bliver åbnet fra

kan vi prøve at gør modulet mere simpel så det kun virker til txt filer
så er det måske nemmer at finde fejlen

Den virker på en txt fil hos mig..

eller nå nej det er jo her det er galt
Private Sub Kommandoknap13_Click()
Dim sti As String
sti = LaunchCD(Me)
DoCmd.TransferText acImportDelim, "Højspænding", "Højspænding reinhaus", "'" & sti & "'"
End Sub

det må være "'" & sti & "'" der skal stå på en anden måde

hvis jeg ændre "'" & sti & "'" til virker det og så her F:\lab\HN\Rein-txt\BG380210.txt

Ikke forstået!~)

der skulle bare stå sti det er min det fik jeg aldrig prøvet mange tak for hjælpen
  sti og ikke "'" & sti & "'"

!~)

har lige et lille spørgsmål når en fil så er importeret og jeg så stå i min formular
hvad skal jeg så tilføje min kode så den opdater skærm eller tabelen den er imoprtert til som det er nu bliver jeg nød til at lukke og så åbne min formular for at se den er importeret

me.requery

takker her også ;o)