ساخت mdb در اکسس xp

[mohkhosh]

دوستان من با این فرمان در ویندوز 2000 و آفیس xp یا همون 2002 به راحتی بک آپ میگیرم ولی این فرمان در جایی که ویندوزش xp است و آفیسش 2003 کار نمی کنه لطف کنید نگاه کنید به این فرمان

sDataBaseName = "a:\db1.mdb"
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsNew = wrkDefault.CreateDatabase(sDataBaseName, _
dbLangGeneral, dbEncrypt) 'Create New DataBase
dbsNew.Close 'close database
DoCmd.CopyObject "a:\db1.mdb", "1", acTable, "1"
err:
If err.Number = 3204 Then 'DB exists
Kill sDataBaseName
Resume
End If
End Sub

البته بخش ساخت db1 کار نمی کنه کمک کنید لطفا

[moustafa]

رفرنسها رو چک کردی

[mohkhosh]

بله چک کردم اونها مشکل نداره تو بخش creat db1 مشکل میگیره .
اگه دستور دیگه ای برای ساخت یک new access با اسم db1 وجود داره لطفا برام بگذارید
ممنون می شم

[سنبله کار]

چه اروری میده ؟

[mohkhosh]

پیغام میده sDataBaseName is not define میگه تعریف نشده است
راستی ورژن office مرد نداشت همان 2000 بود با convert تغییر ورژن هم دادم هم 97 هم 2003 تاثیری نداشت
help me

[mohkhosh]

این دفعه شروع کردم با dim به تعریف کردن و هردفعه می گفت یکی دیگه تعریف نشده اولی رو string و دو تا بعدی رو variant تعریف کردم ولی آخرش error نگرفت ولی کاری هم نکرد (ضایعم کرد)
کمکی ای دوستان

[mohkhosh]

اومدم مقایسه کردم تو xp وقتی dim رو می زنم database رو بهم نمیده و لی تو 2000 می یاد نمی دونم مثل اینکه microsoft jetdatabase enigin روش نصب نیست از کجا می تونم بیارمش یه راهی کمکی ....

[mohkhosh]

مشکل حل شد
vba- tools -refrens -microsoft dao 3.6 رو تیک زدم مشکل حل شد
ساده بود نه .....
ای ای ای

[سنبله کار]

آفرین این نشون می ده شما می تونید با تلاش و پیگیری موضوع خیلی از مشکلاتو حل کنید و بقیه دوستان هم استفاده کنن .
حالا که به نتیجه رسیدی عنوان گفتگوی شما رو عوض می کنم تا بشه در مباحث مفید جاش داد .

[moustafa]

به خاطر یه تیک ادم چند روز الاف میشه ......
من اولش گفتم رفرانسها رو چک کردی بر همین بود دیگه ،با کدهای که شما نوشتی فکر کردم چنین چیزی رو بدونی والا می گفتم باید ان رو چک بزنی عدم دسترسی به سایت هم مزید بر علت شد
در پروژه باید چک اون برداری و اینو چک بزنی :
microsoft activex data objects library