Yousef Aqel قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 السلام عليكم . اخواني قاعدة بيانات اكسس قمت بتحميلها وبصراحه حجمها 5 ميجا لا اعرف كيف ارفعها على الموقع ... المهم في هذه القاعدة شاشة الاكسيس تختفي نهائيا حتى لما تضغط عليها في شريط المهام ما تطلع صفحه الاكسيس ..... اريد اعمل قاعدة البيانات عندي بنفس الطريقة .. بصراحه حاولت استخرج الملفات الموجودة في هذا البرنامج لكن ما فهمت شي منها ... كيف ارفق الملف ؟ حتى تفهمو قصدي كويس ؟؟ رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 اخي يوسف طريقة اخفاء شاشة الاكسس معروفة لدى الاغلبية الساحقة هنا في هذا المنتدى وهي باستعمال وحدة نمطية التالية 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 ملاحظة اخيرة: توجد برامج عديدة تعيد تمكين مفتاح الشيفت حتى وان طبقت الكود السابق وللأسف الى الان لاتوجد طريقة لايقاف ذلك تحياتي 1 رابط هذا التعليق شارك More sharing options...
Yousef Aqel قام بنشر يوليو 16, 2017 الكاتب مشاركة قام بنشر يوليو 16, 2017 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 ملاحظة اخيرة: توجد برامج عديدة تعيد تمكين مفتاح الشيفت حتى وان طبقت الكود السابق وللأسف الى الان لاتوجد طريقة لايقاف ذلك تحياتي مشكور على الرد . ولكن في مشكله تحصل معي انه استطيع عمل هالحركة مع النماذج اما بالنسبه للتقارير ما استطيع . يعني لما افتح التقرير يروح يرجع شاشه النموذج في داخل صفحه الاكسيس . هل في حل ايضا للاخفاء الاكسيس في حال فتح تقارير ؟ رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 اجعل النماذج والتقارير منبثقه جعفر 1 رابط هذا التعليق شارك More sharing options...
Yousef Aqel قام بنشر يوليو 16, 2017 الكاتب مشاركة قام بنشر يوليو 16, 2017 32 دقائق مضت, jjafferr said: اجعل النماذج والتقارير منبثقه جعفر عاملها منبثقة . نفس المشكله لما افتح تقرير يرجع صفحه النموذج الرئيسيه داخل الاكسيس حتى حاولت احط فتح النموذج الرئيسي في اغلاق التقرير ونفس المشكله .قاعدة البيانات اللي عندي كبيرة حجمها 26 ميجا ما افدر ارفقها هون . رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 اعمل "ضغط واصلاح" لقاعدة بياناتك حتى يصغر حجمها ، ثم اضغطها بـ winrar او winzip ، وان شاء الله تقدر ترفعها ، واذا حجمها لايزال كبير ، فتستطيع ان ترفعها على احد مواقع الرفع ، ثم ترفق لنا الرابط هنا جعفر رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 5 دقائق مضت, Yousef Aqel said: قاعدة البيانات اللي عندي كبيرة حجمها 26 ميجا ما افدر ارفقها هون 1- إعمل ضغط و اصلاح لقاعدة البيانات سوف ينقص من حجمها 2- اعمل لها ضغط بإستعمال برنامج winrar بهذا الشكل يصبح حجمها قابل للإرفاق ههههه 4 دقائق مضت, jjafferr said: اعمل "ضغط واصلاح" لقاعدة بياناتك حتى يصغر حجمها ، ثم اضغطها بـ winrar او winzip ، وان شاء الله تقدر ترفعها ، واذا حجمها لايزال كبير ، فتستطيع ان ترفعها على احد مواقع الرفع ، ثم ترفق لنا الرابط هنا آسف لم أرى ردك على الموضوع أستاذ جعفر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 4 دقائق مضت, صالح حمادي said: آسف لم أرى ردك على الموضوع أستاذ جعفر ولا يهمك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.