kanory

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

هذا المثال قد يعمل معك حسب الأوفيس Ka_Options.rar

للمزيد من المعلومات راجع الرابط https://msdn.microsoft.com/en-us/library/office/aa172326(v=office.11).aspx

وعليكم السلام استخدم هذا الكود من خلال وحدة نمطية واستدعيه من خلال النموذج Function SetOptions() 'View Tab Application.SetOption "Show Status Bar", -1 Application.SetOption "Show Startup Dialog Box", -1 Application.SetOption "Show Hidden Objects", -1 Application.SetOption "Show New Object Shortcuts", -1 Application.SetOption "Show System Objects", -1 Application.SetOption "Show Macro Names Column", -1 Application.SetOption "Show Conditions Column", -1 Application.SetOption "Database Explorer Click Behavior", 1 Application.SetOption "ShowWindowsInTaskbar", -1 'General Tab Application.SetOption "Left Margin", 5 Application.SetOption "Right Margin", 5 Application.SetOption "Top Margin", 5 Application.SetOption "Bottom Margin", 5 Application.SetOption "Four-Digit Year Formatting", 0 Application.SetOption "Four-Digit Year Formatting All Databases", -1 Application.SetOption "Track Name AutoCorrect Info", -1 Application.SetOption "Perform Name AutoCorrect", -1 Application.SetOption "Log Name AutoCorrect Changes", 0 Application.SetOption "Enable MRU File List", -1 Application.SetOption "Size of MRU File List", 4 Application.SetOption "Provide Feedback with Sound", 0 Application.SetOption "Auto Compact", 0 Application.SetOption "New Database Sort Order", 1033 Application.SetOption "Remove Personal Information", 0 'Edit/Find Tab Application.SetOption "Default Find/Replace Behavior", 0 Application.SetOption "Confirm Record Changes", -1 Application.SetOption "Confirm Document Deletions", -1 Application.SetOption "Confirm Action Queries", -1 Application.SetOption "Show Values in Indexed", -1 Application.SetOption "Show Values in Non-Indexed", -1 Application.SetOption "Show Values in Remote", 0 Application.SetOption "Show Values Limit", 1000 'Datasheet Tab Application.SetOption "Default Font Color", 0 Application.SetOption "Default Background Color", 15 Application.SetOption "Default Gridlines Color", 8 Application.SetOption "Default Gridlines Horizontal", -1 Application.SetOption "Default Gridlines Vertical", -1 Application.SetOption "Default Column Width", 3 Application.SetOption "Default Font Name", "Arial Black" Application.SetOption "Default Font Weight", 7 Application.SetOption "Default Font Size", 12 Application.SetOption "Default Font Underline", False Application.SetOption "Default Font Italic", False Application.SetOption "Default Cell Effect", 0 Application.SetOption "Show Animations", True Application.SetOption "Show Smart Tags on Datasheets", True 'Keyboard Tab Application.SetOption "Move After Enter", 1 Application.SetOption "Behavior Entering Field", 1 Application.SetOption "Arrow Key Behavior", 0 Application.SetOption "Cursor Stops at First/Last Field", -1 'Tables/Queries Tab Application.SetOption "Default Text Field Size", 50 Application.SetOption "Default Number Field Size", 4 Application.SetOption "Default Field Type", 0 Application.SetOption "AutoIndex on Import/Create", "" Application.SetOption "Show Table Names", -1 Application.SetOption "Output All Fields", 0 Application.SetOption "Enable AutoJoin", -1 Application.SetOption "Run Permissions", 1 Application.SetOption "Substitute Font Name", "Arial Black" 'Forms/Reports Tab Application.SetOption "Selection Behavior", 0 Application.SetOption "Form Template", "Normal" Application.SetOption "Report Template", "Normal" Application.SetOption "Always Use Event Procedures", -1 Application.SetOption "Show Smart Tags on Forms", -1 Application.SetOption "Themed Form Controls", -1 'Advanced Tab Application.SetOption "Default Record Locking", 0 Application.SetOption "Default Open Mode for Databases", 0 Application.SetOption "Ignore DDE Requests", 0 Application.SetOption "Enable DDE Refresh", -1 Application.SetOption "OLE/DDE Timeout (Sec)", 30 Application.SetOption "Number of Update Retries", 5 Application.SetOption "ODBC Refresh Interval (Sec)", 60 Application.SetOption "Refresh Interval (Sec)", 10 Application.SetOption "Update Retry Interval (Msec)", 250 'International Tab Application.SetOption "Default direction", 1 Application.SetOption "General alignment", 0 Application.SetOption "Cursor movement", 0 Application.SetOption "Use Hijri Calendar", False 'Error Checking Tab Application.SetOption "Enable Error Checking", -1 End Function وهناك بعد الاختلافات حسب نوع الأوفيس

هل هذا هو المطلوب التقرير المقسم ka_.rar

وعليكم السلام ربما هذا طلبك ka_DBZianub.rar

الحمد لله رب العالمين ... ارفق المثال بعد التعديل

وعليكم السلام ورحمة الله وبركاته ممكن أخي كريمو2 أن تصممم تقريرين وتجعلهما فرعييين في تقرير واحد يجمعهم

السلام عليكم جرب المرفق فيه طلبك Ka_combo.rar

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

طريقة جميلة ... بارك الله فيك

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

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

بالنسبة للمثال .... نضع هذا الكود في حدث عند الفتح للنموذج الاساسي المحمي بوسائل الحماية المختارة عند المبرمج وهي كثيرة مثلا زراعة ملف في الجهازأو المدة أو عدد السجلات أو رقم الهارد أو الريجستري وغيره الكثير ويمكن تطبيق أكثر من طريقه ثم نضيف هذا الكود للنموذج الاساسي بعد جعله منبثق : If CurrentProject.AllForms("Chek_It").IsLoaded = False Then MsgBox "معذرة اخي الكريم لا يمكن فتح النموذج بهذه الطريقة ... يجب تشغيل البرنامج بالطريقة الصحيحة ", vbCritical, "تنبيه" DoCmd.CancelEvent End If علاما بأن chek_It هو النموذج الاساسي اليك مثال يوضح ذلك يضاف لذلك : kanory.rar

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

هههه ... الله يحفظها اينما كانت

اخي الفاضل شيفان ... نحتاج لمساتك الابداعية ولا نستغني عنها ابدا حاول تغيير اعدادات الصفحة وخاصة الهامش السفلي للصفحة بارك الله فيك

انا الان نزلت المرفق وفتحته وبه التعديل المطلوب ... جرب اخي مرة اخرى واعلمني بالنتيجة

أخي أبو زاهر بالنسبة للشرح تم تعديل امرين في برنامجك : الأول : اضافة هذا الكود للنموذج الاساسي ليتم فتح النموذج المطلوب بعد الضغط على مفاتيح الكيبورد في حدث عند مفتاح للاسفل Select Case KeyCode Case vbKeyF2 DoCmd.OpenForm "تعديل صنف" Case vbKeyF5 DoCmd.OpenForm "اضافه صنف" End Select الثاني : جعلنا خاصية النموذج الاساسي منبثق نعم وشكلي أو مشروط نعم حتى لا يتم اغلاقة عند فتح النماذج الاخرى وايضا عند العودة له ينتقل المؤثر اليه دون الحاجة لكود

اخي الكريم هذا ما طلبته انت من خلال سؤالك

هل هذا يفيد ....... لأنك لم تقم بشرح المطلوب بالتفصيل kanory_3.rar

تفضل kanory_2.rar

تفضل ملفك بعد التعديل عليه kanory_1.rar

تفضل اخي الكريم kanory1.rar

اذا كنت رابط رقم المعرف وجعلتها حقل للربط بين الجداول فهذه مشكله ... المفروض حقل الربط في مثل حالتك يكون رقم الطالب في سجله المدني او القومي .