takkhal
پنج شنبه 30 دی 1389, 20:18 عصر
با سلام حظور اساتید ارجمند
وقتی طبق دستورات زیر میخوام یک فایل جدید بسازم ارور 3001 میده و میگه invalid argument!
کمک لطفا
Dim wrkDefault As Workspace
Dim dbsNew As Database
Dim prpLoop As Property
' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)
' Make sure there isn't already a file with the name of
' the new database.
If Dir("d:\NewDB.mdb") <> "" Then Kill "d:\NewDB.mdb"
' Create a new encrypted database with the specified
' collating order.
Set dbsNew = wrkDefault.createdatabase("d:\NewDB.mdb", _
dbLangGeneral, dbEncrypt)
dbsNew.close
DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\newdb.mdb", acTable, "products", "products"
وقتی طبق دستورات زیر میخوام یک فایل جدید بسازم ارور 3001 میده و میگه invalid argument!
کمک لطفا
Dim wrkDefault As Workspace
Dim dbsNew As Database
Dim prpLoop As Property
' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)
' Make sure there isn't already a file with the name of
' the new database.
If Dir("d:\NewDB.mdb") <> "" Then Kill "d:\NewDB.mdb"
' Create a new encrypted database with the specified
' collating order.
Set dbsNew = wrkDefault.createdatabase("d:\NewDB.mdb", _
dbLangGeneral, dbEncrypt)
dbsNew.close
DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\newdb.mdb", acTable, "products", "products"