Knap som gemmer tabel på disk

Something like this:

  If MsgBox(\"ISÆT DISKETTE I A: OG TRYK PÅ OK !\", vbOKCancel + vbDefaultButton1 + vbInformation, gsAppTitle) = vbOK Then

    filnavn = \"A:\\F306116\" & DatePart(\"M\", Date) & \".txt\"
    DoCmd.TransferText A_EXPORTFIXED, \"ExportSpecification\", \"varetabel\", filnavn
end if

taken from Access help

The following example exports the data from the Microsoft Access table External Report to the delimited text file April.doc by using the specification Standard Output:

DoCmd.TransferText acExportDelim, \"Standard Output\", _
    \"External Report\", \"C:\\Txtfiles\\April.doc\"

Lakse, vil du gemme den i txt-format? Eller skal det være i en Access-database? Eller et helt 3. format?

You should also take a look at help on the transfertext method.

Hej igen,

Følgende kode opretter og gemmer tabellen i en access-database på diskette:

  On Error Resume Next
  Dim W As Workspace, db As Database
  Set W = DBEngine.Workspaces(0)
  Set db = W.CreateDatabase(\"A:\\Test.mdb\", dbSortNorwdan, dbEncrypt)
  db.Execute \"SELECT Tabelnavn.* INTO Tabelnavn IN \'A:\\Test.mdb\' FROM Tabelnavn;\"

Du skal bare tilpasse databasenavn og tabelnavn, så de passer.
Endvidere skal du, hvis du bruger Access 2000, lave en reference til \"Microsoft Data Object Library 3.6\" i kode-editorens menu: Tools->References

/Thomas

Thomas hvis jeg sender dig filen kan du så ikke se om du kan få knappen til at virke?

Hej Lakse,

Gør du bare det, så skal jeg kigge på den: tj@makeiteasy.dk

Har du fået kigget på det?

Jo tak ...:-)

Det er bare guf.