Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Please help with save/export error Access 2000

Status
Not open for further replies.

vamoose

Programmer
Oct 16, 2005
320
MX
I am using the below code to save a copy of my database to a server. When it gets to the second export command I get the following error:

Run-time erroe '3313':
"Cannot place this validtion expression on this field"

Private Sub Exit_Click()

Dim WS As Workspace: Dim DB As Database: Set WS = DBEngine.Workspaces(0)
Filename = "\\Usbbbeeps1ms001\HID_Common\Production\Winding\" & [PDate] & ".mdb"
Set DB = WS.createdatabase(Filename, dbLangGeneral)
DoCmd.TransferDatabase acExport, "Microsoft Access", Filename, acTable, "SAP_Import", "SAP_Import", False
DoCmd.TransferDatabase acExport, "Microsoft Access", Filename, acTable, "Flex_Winder", "Flex_Winder", False
DB.Close: WS.Close: Set WS = Nothing: Set DB = Nothing

End Sub

The database is created and both tables are present within it as they should be. Any ideas ? Thank you all.
 
I think there may be something wrong with one of the fields in Flex_Winder. Have you tried a simple cut-and-paste of this table?
 
OK, you are correct. I cannot even cut and paste it into the source database. The table is Flex_Winder and the field in question is named Wound, number, Double, auto decimal places, required and indexed no. That's all, no validation rules or text. If I delete this field it copies and pasts just find. I am stumped.....
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top