code:

---

$AC1=CREATEOBJECT("ACCESS.APPLICATION")
IF @ERROR = 0
	$AC1.VISIBLE = 1
	$AC1.OPENCURRENTDATABASE("C:\DATA\KIX\BRNP\AUTHOR~1\AUTHOR~1.MDB")
	;$AC1.DOCMD.RUNMACRO("IMPORT DATA")
	$AC1.DOCMD.TRANSFERTEXT("ACIMPORTDELIM","WESDATA1","SERVICES","C:\DATA\KIX\BRNP\AUTHOR~1\SERVICES\TEST2.TXT")
	;$A=MESSAGEBOX(@SERROR,@ERROR)
	$AC1.USERCONTROL = 1
ELSE
	$A=MESSAGEBOX(@SERROR,@ERROR)
ENDIF

---

Everything in this works expect for the fact that it won't import the file. The macro won't run nor can I get the TRANSFERTEXT function to work. The Macro I have setup in Access works if I run it. I pulled all of the settings for TRANSFERTEXT out of the Macro's settings so I think they're right. I hope someone can shed some light on this for me. Thanks

[ 18 February 2002: Message edited by: Ben Dulaney ]

Have a look at this post..

You should be able to do something similar without importing the file, but rather "reading" it in..

READEXCEL - Read an Excel Spreadsheet and return results

We use this with a Vendor-Supplied COM Object and it works beautiful!

HTH,

- Kent

[ 18 February 2002: Message edited by: Ben Dulaney ]

I used the following comma-delim text file:

First,Last,Member
Shawn,Tassie,173
Ben,Dulaney,3314
kdyer,,1559

with field names on first row, and the following snippet of code (based on your code):

BREAK ON

$DATABASE = "M:\ACCESS\DB1.MDB"
$TABLE = "NEWTABLE"
$TEXTFILE = "M:\ACCESS\TEST2.TXT"

$AC1=CREATEOBJECT("ACCESS.APPLICATION")

$AC1.VISIBLE = 1

$AC1.OPENCURRENTDATABASE($DATABASE)

$AC1.DOCMD.TRANSFERTEXT(,,$TABLE,$TEXTFILE,-1)

?"@SERROR"

$AC1.USERCONTROL = 1

$AC1.QUIT

$AC1 = 0

EXIT 1

Hope this helps

-Shawn

[ 18 February 2002: Message edited by: Ben Dulaney ]

-Shawn

code:

---

$DATABASE="C:\DATA\KIX\BRNP\AUTHOR~1\AUTHOR~1.MDB"
$TABLE="SERVICES"
$TEXTFILE="C:\DATA\KIX\BRNP\AUTHOR~1\SERVICES\TEST2.TXT"
$SPEC="WESDATA1"
$AC1=CREATEOBJECT("ACCESS.APPLICATION")
IF @ERROR = 0
	$AC1.VISIBLE = 1
	$AC1.OPENCURRENTDATABASE($DATABASE)
	$AC1.DOCMD.TRANSFERTEXT(,$SPEC,$TABLE,$TEXTFILE,0)
	$AC1.QUIT
	$AC1=0
ELSE
	$A=MESSAGEBOX(@SERROR,@ERROR)
ENDIF

---

Thanks again for your help Shawn.

code:

---

$AC1.DoCmd.SetWarnings False
$AC1.RUNSQL = "INSERT INTO PhoneDirectory ( Name, Area, Ext, Login, Email ) SELECT DISTINCTROW [All].[Display name], [All].Company, [All].Phone, [All].Alias, [All].Alias FROM [All] LEFT JOIN PhoneDirectory ON [All].Alias = PhoneDirectory.Login WHERE (((PhoneDirectory.Login) Is Null))"
$AC1.DoCmd.SetWarnings True

---

code:

---

$AC1.DoCmd.SetWarnings False
$AC1.DoCmd.RunSQL "INSERT INTO ErrorLog ( TStamp, Loan, ErrorMessage ) SELECT Now()," & Chr(34) & loan_nm & Chr(34) & "," & Chr(34) & oDTrac.ErrorMsg & Chr(34) & ";"
$AC1.DoCmd.SetWarnings True

---

code:

---

$DATABASE = "C:\KixTest\laptop.MDB"
$TRANSFERTYPE = "acExportDelim"
$TABLE = "Decubiti"
$TEXTFILE = "C:\KixTest\laptop.TXT"
$AC1=CREATEOBJECT("ACCESS.APPLICATION")

$AC1.VISIBLE = 0 
$AC1.OPENCURRENTDATABASE($DATABASE)
$AC1.DOCMD.TRANSFERTEXT($TRANSFERTYPE,,$TABLE,$TEXTFILE,-1)
?"@SERROR"
$AC1.USERCONTROL = 0
$AC1.QUIT
$AC1 = 0
EXIT 1

---