C
-cicada-
Excuse any errors in my description of the problem, as I'm only an
amateur with Access.
I've just created a simple VB application in A2000 that imports a text
file into a table, and works fine. I then used the Microsoft Upsizing
Wizard to create a new SQL database with an MS Access 2000 back end,
and guess what, it not longer works, but stops at the line
db.TableDefs.Delete ("tblData")
The code to the point where it 'stops' is as follows:
Dim objFile As TextFile
' Create new instance of TextFile class
Set objFile = New TextFile
' Set the Path property
objFile.Path = Trim(strDataInputFile.strFile)
strDataOutputFile = "c:\acag\temp\" & Mid(strDataInputFile.strFile, 15,
Len(Trim(strDataInputFile.strFile)) - 14)
Open strDataOutputFile For Output As 1
strDataErrorFile = "c:\acag\temp\Errors_Data.txt"
Open strDataErrorFile For Output As 2
Dim db As Database
Dim rstData As Recordset
Set db = CurrentDb
' delete previous table
db.TableDefs.Delete ("tblData")
Can anyone put me on the right track please.
-cicada-
amateur with Access.
I've just created a simple VB application in A2000 that imports a text
file into a table, and works fine. I then used the Microsoft Upsizing
Wizard to create a new SQL database with an MS Access 2000 back end,
and guess what, it not longer works, but stops at the line
db.TableDefs.Delete ("tblData")
The code to the point where it 'stops' is as follows:
Dim objFile As TextFile
' Create new instance of TextFile class
Set objFile = New TextFile
' Set the Path property
objFile.Path = Trim(strDataInputFile.strFile)
strDataOutputFile = "c:\acag\temp\" & Mid(strDataInputFile.strFile, 15,
Len(Trim(strDataInputFile.strFile)) - 14)
Open strDataOutputFile For Output As 1
strDataErrorFile = "c:\acag\temp\Errors_Data.txt"
Open strDataErrorFile For Output As 2
Dim db As Database
Dim rstData As Recordset
Set db = CurrentDb
' delete previous table
db.TableDefs.Delete ("tblData")
Can anyone put me on the right track please.
-cicada-