ms access

erin_0502 — Mon, 20 Aug 2007 13:04:47 +0800

hye.....
this is my coding

Option Compare Database
Option Explicit

'Public Sub Main()
'ExportDatabaseObjects()
'End Sub

'Public Sub ExportDatabaseObjects()
Public Sub Main()
On Error GoTo Err_ExportDatabaseObjects

Dim db As Database
'Dim db As DAO.Database
Dim td As TableDef
Dim i As Integer
Dim strFilename As String
Dim sExportLocation As String
Dim Expression As String
Dim returnValue() As String

Set db = CurrentDb()

sExportLocation = "N:\- Guest -\guestbcs\usrPrivate\irni\irni\access\"
For Each td In db.TableDefs 'Tables
If Left(td.Name, 4) <> "MSys" Then
strFilename = sExportLocation & td.Name & ".txt"
Debug.Print strFilename
DoCmd.TransferText acExportDelim, , td.Name, strFilename, True
'DoCmd.RunMacro "table_name"
End If
Next td

For i = 0 To db.QueryDefs.Count - 1
Application.SaveAsText acQuery, db.QueryDefs(i).Name, sExportLocation & db.QueryDefs(i).Name & ".txt"
Next i

Set db = Nothing

MsgBox "All table been exported as a text file to " & sExportLocation, vbInformation
Exit_ExportDatabaseObjects:
Exit Sub

Err_ExportDatabaseObjects:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_ExportDatabaseObjects
End Sub

this coding will transfer all the data to text file...
but i want to transfer data to text file only column that i need....
can anobody help me....

Export MS Access Table

erin_0502 — Wed, 18 Jul 2007 12:27:38 +0800

hello.....i would like to export a Ms Access table to delimiter Text file using this "|" delimiter...can anobody help me....

[addedon]July 18, 2007, 12:28 pm[/addedon]please help me

Lowyat.NET: Latest topics by erin_0502

ms access

Export MS Access Table