اريد اخفاء الاكسيس بنفس الطريقة في الملف المرفق

[Yousef Aqel]

السلام عليكم . اخواني  قاعدة بيانات اكسس قمت بتحميلها وبصراحه حجمها 5 ميجا لا اعرف كيف ارفعها على الموقع ... المهم في هذه القاعدة شاشة الاكسيس تختفي نهائيا حتى لما تضغط عليها في شريط المهام ما تطلع صفحه الاكسيس ..... اريد اعمل قاعدة البيانات عندي بنفس الطريقة .. بصراحه حاولت استخرج الملفات الموجودة في هذا البرنامج لكن ما فهمت شي منها ... كيف ارفق الملف ؟ حتى تفهمو قصدي كويس ؟؟ 

[sandanet]

اخي يوسف طريقة اخفاء شاشة الاكسس معروفة لدى الاغلبية الساحقة هنا في هذا المنتدى وهي باستعمال وحدة نمطية التالية 

Option Explicit
Option Compare Database
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Sub HideAccess()
Call ShowWindow(Access.hWndAccessApp, 0)
End Sub

وتقوم بوضع الامر التالي في حدث عند الفتح او حدث عند التحميل لكل نموذج و تقرير لديك

HideAccess

اما بالنسبة للنقطة الثانية وهي  "حتى لما تضغط عليها في شريط المهام ما تطلع صفحه الاكسيس " فيكفي انك تستعمل الكود التالي لتعطيل مفتاح الشفت بحيث لن يتمكن المستخدم من فتح نافذة الاكسس الا اذا ضغط على زر امر لاعادة تفعيل مفتاح الشفت

ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", DB_BOOLEAN, False
ChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, False
ChangeProperty "AllowFullMenus", DB_BOOLEAN, False
ChangeProperty "AllowSpecialKeys", DB_BOOLEAN, False
ChangeProperty "AllowToolbarChanges", DB_BOOLEAN, False
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False

لاعادة تفعيل مفتاح الشفت ضع الكود التالي في زر امر 

Call ZA

واضف الوحدة النمطية التالية للبرنامج

Option Compare Database

Public Function ZA()
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
 str_Title = "كلمة المرور مطلوبة"
 str_Prompt = "ادخل كلمة المرور لتمكين مفتاح الشيفت"
If InputBox(str_Prompt, str_Title) = "12345" Then
MsgBox "تم تمكين مفتاح شفت", vbInformation + vbMsgBoxRight, "تنبيه"
ChangeProperty "StartupShowDBWindow", dbBoolean, True
ChangeProperty "StartupShowStatusBar", DB_BOOLEAN, False
ChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, False
ChangeProperty "AllowFullMenus", DB_BOOLEAN, False
ChangeProperty "AllowSpecialKeys", DB_BOOLEAN, True
ChangeProperty "AllowToolbarChanges", DB_BOOLEAN, False
ChangeProperty "AllowBypassKey", DB_BOOLEAN, True
DoCmd.OpenForm "limit"
Else
ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", DB_BOOLEAN, False
ChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, False
ChangeProperty "AllowFullMenus", DB_BOOLEAN, False
ChangeProperty "AllowSpecialKeys", DB_BOOLEAN, False
ChangeProperty "AllowToolbarChanges", DB_BOOLEAN, False
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False

MsgBox "الرجاءالتأكد من كلمة المرور الصحيحة", , "كلمة المرور غير صحيحة"
End If
End Function

بذلك عند الضغط على زر الامر لاعادة تفعيل مفتاح الشيفت سوف يطالبك بادخال كلمة المرور لتنفيذ الامر .. هنا وضعتها 12345

 

ملاحظة اخيرة: توجد برامج عديدة تعيد تمكين مفتاح الشيفت حتى وان طبقت الكود السابق وللأسف الى الان لاتوجد طريقة لايقاف ذلك 

 

تحياتي

[Yousef Aqel]

1 ساعه مضت, sandanet said:

اخي يوسف طريقة اخفاء شاشة الاكسس معروفة لدى الاغلبية الساحقة هنا في هذا المنتدى وهي باستعمال وحدة نمطية التالية 

Option Explicit
Option Compare Database
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Sub HideAccess()
Call ShowWindow(Access.hWndAccessApp, 0)
End Sub

وتقوم بوضع الامر التالي في حدث عند الفتح او حدث عند التحميل لكل نموذج و تقرير لديك

HideAccess

اما بالنسبة للنقطة الثانية وهي  "حتى لما تضغط عليها في شريط المهام ما تطلع صفحه الاكسيس " فيكفي انك تستعمل الكود التالي لتعطيل مفتاح الشفت بحيث لن يتمكن المستخدم من فتح نافذة الاكسس الا اذا ضغط على زر امر لاعادة تفعيل مفتاح الشفت

ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", DB_BOOLEAN, False
ChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, False
ChangeProperty "AllowFullMenus", DB_BOOLEAN, False
ChangeProperty "AllowSpecialKeys", DB_BOOLEAN, False
ChangeProperty "AllowToolbarChanges", DB_BOOLEAN, False
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False

لاعادة تفعيل مفتاح الشفت ضع الكود التالي في زر امر 

Call ZA

واضف الوحدة النمطية التالية للبرنامج

Option Compare Database

Public Function ZA()
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
 str_Title = "كلمة المرور مطلوبة"
 str_Prompt = "ادخل كلمة المرور لتمكين مفتاح الشيفت"
If InputBox(str_Prompt, str_Title) = "12345" Then
MsgBox "تم تمكين مفتاح شفت", vbInformation + vbMsgBoxRight, "تنبيه"
ChangeProperty "StartupShowDBWindow", dbBoolean, True
ChangeProperty "StartupShowStatusBar", DB_BOOLEAN, False
ChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, False
ChangeProperty "AllowFullMenus", DB_BOOLEAN, False
ChangeProperty "AllowSpecialKeys", DB_BOOLEAN, True
ChangeProperty "AllowToolbarChanges", DB_BOOLEAN, False
ChangeProperty "AllowBypassKey", DB_BOOLEAN, True
DoCmd.OpenForm "limit"
Else
ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", DB_BOOLEAN, False
ChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, False
ChangeProperty "AllowFullMenus", DB_BOOLEAN, False
ChangeProperty "AllowSpecialKeys", DB_BOOLEAN, False
ChangeProperty "AllowToolbarChanges", DB_BOOLEAN, False
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False

MsgBox "الرجاءالتأكد من كلمة المرور الصحيحة", , "كلمة المرور غير صحيحة"
End If
End Function

بذلك عند الضغط على زر الامر لاعادة تفعيل مفتاح الشيفت سوف يطالبك بادخال كلمة المرور لتنفيذ الامر .. هنا وضعتها 12345

 

ملاحظة اخيرة: توجد برامج عديدة تعيد تمكين مفتاح الشيفت حتى وان طبقت الكود السابق وللأسف الى الان لاتوجد طريقة لايقاف ذلك 

 

تحياتي

مشكور على الرد . ولكن في مشكله تحصل معي انه استطيع عمل هالحركة مع النماذج اما بالنسبه للتقارير ما استطيع . يعني لما افتح التقرير يروح يرجع شاشه النموذج في داخل صفحه الاكسيس . هل في حل ايضا للاخفاء الاكسيس في حال فتح تقارير ؟

[jjafferr]

اجعل النماذج والتقارير منبثقه

 

جعفر

[Yousef Aqel]

32 دقائق مضت, jjafferr said:

اجعل النماذج والتقارير منبثقه

 

جعفر

عاملها منبثقة . نفس المشكله لما افتح تقرير يرجع صفحه النموذج الرئيسيه داخل الاكسيس حتى حاولت احط فتح النموذج الرئيسي في اغلاق التقرير ونفس المشكله .قاعدة البيانات اللي عندي كبيرة حجمها 26 ميجا ما افدر ارفقها هون . 

[jjafferr]

اعمل "ضغط واصلاح" لقاعدة بياناتك حتى يصغر حجمها ،

ثم اضغطها بـ winrar او winzip ، وان شاء الله تقدر ترفعها ،

واذا حجمها لايزال كبير ، فتستطيع ان ترفعها على احد مواقع الرفع ، ثم ترفق لنا الرابط هنا

 

جعفر

[صالح حمادي]

5 دقائق مضت, Yousef Aqel said:

قاعدة البيانات اللي عندي كبيرة حجمها 26 ميجا ما افدر ارفقها هون

1- إعمل ضغط و اصلاح لقاعدة البيانات سوف ينقص من حجمها

2- اعمل لها ضغط بإستعمال برنامج winrar

بهذا الشكل يصبح حجمها قابل للإرفاق

ههههه

4 دقائق مضت, jjafferr said:

اعمل "ضغط واصلاح" لقاعدة بياناتك حتى يصغر حجمها ،

ثم اضغطها بـ winrar او winzip ، وان شاء الله تقدر ترفعها ،

واذا حجمها لايزال كبير ، فتستطيع ان ترفعها على احد مواقع الرفع ، ثم ترفق لنا الرابط هنا

آسف لم أرى ردك على الموضوع أستاذ جعفر

[jjafferr]

4 دقائق مضت, صالح حمادي said:

آسف لم أرى ردك على الموضوع أستاذ جعفر

 

ولا يهمك