احمد آقا
سه شنبه 12 اردیبهشت 1385, 11:38 صبح
من خیلی جاها و از جمله تو همین سایت دیدم که از کار انداختن شیفت را یک راه امنیتی معرفی میکنند در صورتی که اصلا اینطور نیست و کلید شیفت به همان راحتی که از کار می افتد به همان راحتی هم دوباره به کار می افتد البته ندیدم هیچ کسی دلش بیاید این نکته را توضیح بدهد
که حالا بنده فضولا کد زیر رو براتون میذارم با اجرای مراحل زیر هر فایلی که شیفتش از کار افتاده باشه دوباره به حالت اولش بر میگرده
1- یه فایل اکسس جدید باز کنید و یه فرو جدید تو اون باز کنید
2 - بعد کد زیر رو تو ادیتور ویژوال بیسیکش پیست کنید
3- به جای "مسیر فایل مورد نظر" مسیر فایل مورد نظر همراه با اسم فایل رو بنویسید
4 - فرمتونو اجرا کنید
5- بعد برید شیفت رو بگیرید و فابل مورد نظرتونو باز کنید
میبینید که شیفت کار میکنه
به همین راحتی
به همین خوشمزگی!
Private Sub Form_Load()
Dim app As New Application
app.OpenCurrentDatabase "مسیر فایل مورد نظر"
app.CurrentDb.Properties("allowbypasskey") = True
End Sub
که حالا بنده فضولا کد زیر رو براتون میذارم با اجرای مراحل زیر هر فایلی که شیفتش از کار افتاده باشه دوباره به حالت اولش بر میگرده
1- یه فایل اکسس جدید باز کنید و یه فرو جدید تو اون باز کنید
2 - بعد کد زیر رو تو ادیتور ویژوال بیسیکش پیست کنید
3- به جای "مسیر فایل مورد نظر" مسیر فایل مورد نظر همراه با اسم فایل رو بنویسید
4 - فرمتونو اجرا کنید
5- بعد برید شیفت رو بگیرید و فابل مورد نظرتونو باز کنید
میبینید که شیفت کار میکنه
به همین راحتی
به همین خوشمزگی!
Private Sub Form_Load()
Dim app As New Application
app.OpenCurrentDatabase "مسیر فایل مورد نظر"
app.CurrentDb.Properties("allowbypasskey") = True
End Sub