kontrol af diskette i A:\

man kan jo prøve at importere det, så skal den nok selv fortælle om den kan finde filen eller ej.. ;0)

Dim FilNavn As String
  FilNavn = "a:\navnlist.txt"
 
  If Dir(FilNavn) <> "" Then

Du skal lave en imput box, for det er jo ikke samme fil du altid spørger efter.

Function TabelEksisterer(ByVal Tabelnavn As String) As Boolean
  On Error GoTo EKSISTERER_IKKE
  TabelEksisterer = True
  DoCmd.OpenTable Tabelnavn
  DoCmd.Close
  Exit Function
 
EKSISTERER_IKKE:
  TabelEksisterer = False
  Err.Clear
End Function

Hvis du har brug for at kunne ændre navnet, skal du ændre 2. linie til:

filnavn = forms!minformular!mininputbox

Eller med imputbox:
Dim Filnavn As String
  Filnavn = InputBox("Importer fil:", "Import", "c:\dokumenter\databaser\eksempelfiler\telefonliste.txt")
  DoCmd.TransferText acImportDelim, "Telefonliste Importspecifikation", "Telefonliste", Filnavn
End Sub

Rettelse til dit filnavn:

Dim Filnavn As String
Filnavn = InputBox("Importer fil:", "Import", "A:\Navnlist.txt")
DoCmd.TransferText acImportDelim, "Navnlist Importspecifikation", "Navnlist", Filnavn

Vh Henrik

henrik13> Skal vi så ikke sætte dem sammen til:

Dim FilNavn As String
  FilNavn = Forms![minformular]![mininputbox]
 
If Dir(FilNavn) <> "" Then
  DoCmd.TransferText acImportDelim ...
  Exit Sub
else
  MsgBox "Filen" & filnavn & "eksisterer ikke", vbInformation, "Filen findes ikke!"
End If

hekla >
Ja hvis du har afprøvet det om det virker. Jeg har mit fra en bog, om vba, og jeg har afprøvet, alle exemplerne.
Vh Henrik

Jeg har afprøvet if-sætningen og den virker.

I dit svar kan jeg ikke se, at du tester, om filen eksisterer. Gør du det?

hekla >
Ja. Jo, det foregår i fejl-rutinen jeg ikke fik Kopieret med. ;o)
Vh Henrik

tak for hjælpen begge to

>> Det var vidst for hurtiget jeg fik sagt tak for hjælpen.

Jeg kan ikke for nogen at koder til at virke. I mit tilfælde er det den same fil jeg hvil impoter og derfor også kontroller om den fgylling

Jeg er her hvad er problemet

>>Henrik13
Jeg få en fejl "run-time error '52'  Dad file name or number

Jeg får en anden fejl, jeg laver en test db hvor det virker, du skal ikke smide flere poient ud på det.
Vh Henrik

>> gylling

Jeg har lavet en Demo7.mdb til dig. Der viser om filen ,er på A drevet eller ej. Jeg har også skrevet, hvordan du kan ombygge den til andre fil-typer. Der erstattes .txt med .*
Læg din email, og hvad access du kører med.

Vh Henrik

>>henrik13 xp  og mail  jhg@mail.tele.dk
og tak

gylling

Er sendt.
:o)