گرفتن Backup روی دیسکت

[iransim]

سلام
دوستان من خیلی جستجو کردم ولی حقیقتش چیزی که مد نظرم رو پیدا نکردم
من می خواهم با فشردن دکمه ای از بانک برنامه نسخه پشتیبان تهیه شده و از کاربر برای محل ذخیره سازی آن سئوال شود و یا اینکه نسخه پشتیبان مستقیما" بروی دیسکت ذخیره شود .
ممنون و تشکر

[مهدی قربانی]

سلام
اینجا رو ببین :
http://barnamenevis.org/forum/search.php?searchid=803014

[فردان فردان]

من خودم برنامه زیر را قبل با سرچ کردن به دست آورده ام.
بهتر است این تاپیک به علت تکراری بودن حذف شود.

[amirzazadeh]

سلام
دوستان من خیلی جستجو کردم ولی حقیقتش چیزی که مد نظرم رو پیدا نکردم
من می خواهم با فشردن دکمه ای از بانک برنامه نسخه پشتیبان تهیه شده و از کاربر برای محل ذخیره سازی آن سئوال شود و یا اینکه نسخه پشتیبان مستقیما" بروی دیسکت ذخیره شود .
ممنون و تشکر
دوست من یک ماکرو sendkeysدرست کن وخاصیت keystroke را به صورت زیر تنظیم کن واون رو به on click باتن وصل کن


keystroks=%FK

[Mahsa Hatefi]

دوست عزیز

موردی که دوستان ذکر کرده اند یه بک آپ از کل برنامه است ولی اگز حجم فایل mdb یا mde بیش از یک دیسکت باشد دیگر این روش مفید نیست .

من برای ذخیره گیری فقط از جداول که دیتای متغیر دارند بک آپ می گیرم و این هم منطقی تر است و از نظر حجم هم با مشکل کمتری مواجه خواهید شد .
برای این کار ابتدا جداول را به تکست تبدیل کرده و سپس آن را زیپ می کنم تا فضای کمتری اشغال کند .
برای بازیابی هم عکس این عمل را تعریف می کنم .
البته نظر اساتید گرامی چوان صارمی و یا سنبله کار و یا دوستان دیگر نیز شرط است
موفق باشید

[iransim]

دوست عزیز

موردی که دوستان ذکر کرده اند یه بک آپ از کل برنامه است ولی اگز حجم فایل mdb یا mde بیش از یک دیسکت باشد دیگر این روش مفید نیست .

من برای ذخیره گیری فقط از جداول که دیتای متغیر دارند بک آپ می گیرم و این هم منطقی تر است و از نظر حجم هم با مشکل کمتری مواجه خواهید شد .
برای این کار ابتدا جداول را به تکست تبدیل کرده و سپس آن را زیپ می کنم تا فضای کمتری اشغال کند .
برای بازیابی هم عکس این عمل را تعریف می کنم .
البته نظر اساتید گرامی چوان صارمی و یا سنبله کار و یا دوستان دیگر نیز شرط است
موفق باشید

دوست عزیز سلام
من هم دقیقا" منظورم همین است یعنی گرفتن پشتیبان از جداول
اگه لطف کنید و بفرمائید چگونه این فرایند را انجام می دهید ممنون می شوم .

[iransim]

سلام
اینجا رو ببین :
http://barnamenevis.org/forum/search.php?searchid=803014

سلام
مهدی جان لینک موردی را نشان نمی دهد

[Mahsa Hatefi]

دوست عزیز
یرای تبدیل جداول از دستور docmd.transfertotext استفاده کنید الان نمونه ای دم دست ندارم که آپ کنم اگه موفق نشدید بفرمایید یه نمونه براتون آماده کنم

موفق باشید

[مهدی قربانی]

سلام
کلمه فلاپی رو در بخش پایگاه داده Ms Access سرچ کن مطالب مرتبط رو می تونی ببینی .

[amirzazadeh]

سلام
دوستان من خیلی جستجو کردم ولی حقیقتش چیزی که مد نظرم رو پیدا نکردم
من می خواهم با فشردن دکمه ای از بانک برنامه نسخه پشتیبان تهیه شده و از کاربر برای محل ذخیره سازی آن سئوال شود و یا اینکه نسخه پشتیبان مستقیما" بروی دیسکت ذخیره شود .
ممنون و تشکر
یک باتون تو فرمت بذار وکد پایین رو توش کپی کن(من مسیر رو برای درایو D با نام new db ایجاد کردم شما میتونین به :a عوض کنی ردیف آخر نام جدولی رو که میخواهی کپی کنی قرار بده در ای مثال products قرلر داده شده)


Private Sub Command15_Click()

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"




End Sub

[iransim]

دوست عزیز
یرای تبدیل جداول از دستور docmd.transfertotext استفاده کنید الان نمونه ای دم دست ندارم که آپ کنم اگه موفق نشدید بفرمایید یه نمونه براتون آماده کنم

موفق باشید

دوست عزیز سلام
هر چند زحمت است ولی اگر لطف بفرمائید ممنون می شوم .

[iransim]

یک باتون تو فرمت بذار وکد پایین رو توش کپی کن(من مسیر رو برای درایو D با نام new db ایجاد کردم شما میتونین به :a عوض کنی ردیف آخر نام جدولی رو که میخواهی کپی کنی قرار بده در ای مثال products قرلر داده شده)


Private Sub Command15_Click()





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"





End Sub




سلام دوست عزیز
با تشکر از کد ارسالی شما
دستورا شما اجرا شد ولی به محض کلیک روی کلید خطای "compile error " با مضمون زیر را می دهد " user-defined type not defined "
نمی دانم علت چیست .

[amirzazadeh]

[/left]



سلام دوست عزیز
با تشکر از کد ارسالی شما
دستورا شما اجرا شد ولی به محض کلیک روی کلید خطای "compile error " با مضمون زیر را می دهد " user-defined type not defined "
نمی دانم علت چیست .

دوست من یک نمونه برات می گذارم امیدوارم مشکلت رو حل کنه