اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Yousef Aqel

الردود الموصى بها

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

رابط هذا التعليق
شارك

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

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

 

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

 

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

 

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

 

تحياتي

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

رابط هذا التعليق
شارك

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

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

 

جعفر

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

رابط هذا التعليق
شارك

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

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

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

 

جعفر

رابط هذا التعليق
شارك

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

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

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

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

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

ههههه

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

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information