اشکال در backup

[takkhal]

اساتید بزرگوار سلام
یه نگاهی بندازید به این کد

Private Sub Command0_Click()
On Error GoTo A
Dim fcopy As New FileSystemObject
fcopy.CopyFile CurrentProject.FullName, "c:\makebackup .mdb", True
A:
End Subنمیدونم اشکالش چیه
اینو از همین سایت گرفتم ولی نمدونم A توش چیکارست!
ضمنا کار هم نمیکنه!
درواقع میخوام یه کپی از فایل جاری اکسس بسازم

[Mahsa Hatefi]

دوست عزيز

اول A رو براي هندل كردن خطاها معرفي كرده كه شما مي توانيد پيام يا رويدادهايي كه مي خواهيد در آن بخش ذكر كنيد .

دوم اگر عمل كپي انجام نمي شود احتمالا شما در ريفرنسها ، Microsoft Scripting Runtime را تيك نزده ايد .

انشاء الله كه كمكي شده باشد موفق باشيد .

[takkhal]

ممنون از پاسختون
Microsoft Scripting Runtime رو هم فعال کردم ولی مشکل سرجاشه

تصویر اررور رو میذارم
اولی وقتی که توی onload صفحه است
دومی وقتی با باتن اجرا میشه

[Mahsa Hatefi]

كدتون رو به اينصورت اصلاح بفرماييد جواب مي ده


Private Sub Command0_Click()
On Error GoTo A
Dim fcopy As New Scripting.FileSystemObject
fcopy.CopyFile CurrentProject.FullName, "c:\makebackup.mdb", True
A:
Resume Next
End Sub

[takkhal]

بازم از توجهتون ممنون
ولی هنوز همون گیر رو میده!

ممکنه مربوط به 2007 باشه؟
یا اینکه یه کد دیگه مانع اجراش بشه!؟
راستی بجای A حتما باید دستوری نوشته بشه؟

اینم ارور تو vb:

[amirzazadeh]

بازم از توجهتون ممنون
ولی هنوز همون گیر رو میده!

ممکنه مربوط به 2007 باشه؟
یا اینکه یه کد دیگه مانع اجراش بشه!؟
راستی بجای A حتما باید دستوری نوشته بشه؟

اینم ارور تو vb:
سلام
لطفا اين كد رو امتحان كنيد:

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")

fs.CopyFile Application.CurrentProject.FullName,"c:\back.mdb"
........................
موفق باشيد

[takkhal]

سلام
لطفا اين كد رو امتحان كنيد:

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")

fs.CopyFile Application.CurrentProject.FullName,"c:\back.mdb"........................
موفق باشيد

مرسی استاد
تا قسمتی زیادی مشکل حل شد
وقتی این رو توی یه فرم تازه اجرا میکنم کار میکنه ولی توی فرم اصلی بازم انگاذ یچیزی مانع اجراش میشه!! بنظرتون ممکنه؟

[amirzazadeh]

مرسی استاد
تا قسمتی زیادی مشکل حل شد
وقتی این رو توی یه فرم تازه اجرا میکنم کار میکنه ولی توی فرم اصلی بازم انگاذ یچیزی مانع اجراش میشه!! بنظرتون ممکنه؟
سلام
اگر ممكنه نمونه خودتون رو اپلود كنيد

[takkhal]

سلام
اگر ممكنه نمونه خودتون رو اپلود كنيد

ممنون از توجهتون
اینم نمونه

[amirzazadeh]

ممنون از توجهتون
اینم نمونه
سلام
دوست من لطفا با فرمت 2003 اپلود كنيد.

[takkhal]

سلام
دوست من لطفا با فرمت 2003 اپلود كنيد.

شرمنده
اینم 2003
امان از دست شما حرفه ای ها:خجالت:

[amirzazadeh]

شرمنده
اینم 2003
امان از دست شما حرفه ای ها:خجالت:
سلام
فايل شما تست كردم كدهاي شما هيچ مشكلي نداره . مشكل از فرم شماست كه ظاهرا با استفاده از ويزارد تهيه شده (به دليل استفاده از نام هاي فارسي در نامگذاري فيلدها ، در اين حالت كدها با مشكل مواجه ميشند) يك فرم با نام فرم 1 به صورت دستي به نمونه شما اضافه كردم كه با همون كدها به راحتي عمل ميكنه.
............................
موفق باشيد

[takkhal]

ممنون بسیار از توجهتون
یادم نمیاد فرمشو چطور ساختم، ولی احتمالا همینطوره که فرمودین
بهرحال مشکل رو با یه کلک دیگه حل کردم:چشمک:
تو یه فرم خالی دستورات رو نوشتم و اونو با یه باتن از تو صفحه اصلی بصورت hiden فراخوان کردم وبعدم همونطوری بستم!
end of amator!!