jjafferr

وعليكم السلام اخي مازن الله يطول في عمرك ، هذه الواجهة فقط !! على العموم ، انا بعمل موضوع خاص للتقسيط ، وبترك لك الرابط هنا ان شاء الله جعفر

وعليكم السلام استخدم . والنتيجة . جعفر

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

وعليكم السلام الجواب نعم تستطيع: 1. بتفعيل مفتاح الشفت ببرنامج خارجي ، وتدخل البرنامج بالضغط على زر الشفت الى ان يفتح البرنامج ، 2. اثناء فترة التعديل ، اكتب Exit Function في اول سطر في الدالة التي تصغر البرنامج ، فعليه لن يصغر البرنامج ، وبعد ان تنتهي من التعديل ، لا تحذف هذا السطر ، وانما اجعله كملاحظة بإضافة الرمز ' في اول السطر: Exit Function' فيتغير لون السطر الى اللون الاخضر ، ومعناه ان الكود لن يستعمله ، 3. انا من اشد المعارضين على استعمال النماذج المنبثقة: والحل وكلما احاول ان اساعد احد الاعضاء في برنامجه ، فاول شيء اعمله هو تغيير اعدادات النموذج وتوقيف الانبثاق!! 4و5. هذه تحصل عليها تلقائيا بعد عمل الرقم 1. جعفر

وعليكم السلام تفضل جعفر 912.كفالة.accdb.zip

رجاء تجرب المرفق ، بعد ادخال بيانات صحيحة في النموذجين الفرعيين ، فلقد فمت بتعديل الكثير في البرنامج بالاضافة الى التغييرات في النماذج ، فهناك تغييرات في الجداول والاستعلامات ، وعملت علاقة بين الجداول ، لذلك ، رجاء واصل العمل على هذه النسخة جعفر 910.accdb.zip

هذه ملاحظاتي: 1. مع ان شاشة الكمبيوتر عندي 23 بوصة ، إلا انني لا ارى كامل النموذج ، فيجب ان تصغر الحقول : . 2. الانتقال بين السجلات اعلى واسفل عن طريق الاسهم ، استخدم حدث الزر الاسفل للنموذج وليس للحقل ، والقيمة الاخيرة من اعدادت النموذج يجب ان تكون "نعم" (لاحظ السهمين الحُمر): . 3. عليه يصبح كود الاسهم اعلى واسفل: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next Me.n2.SetFocus Select Case KeyCode Case vbKeyDown DoCmd.GoToRecord , , acNext Case vbKeyUp DoCmd.GoToRecord , , acPrevious Case vbKeyReturn DoCmd.OpenForm "frmEdrajSenf" Forms![frmEdrajSenf]![Rajmsanf] = Me.Rajmsanf Forms![frmEdrajSenf_sra]![Rajmsanf] = Me.Rajmsanf DoCmd.Close acForm, "frm_Search_New", acSaveNo Case Else DoCmd.OpenForm "frmEdrajSenf_R" Forms![frmEdrajSenf_R]![Rajmsanf] = Me.Rajmsanf Forms![frmEdrajSenf_sra]![Rajmsanf] = Me.Rajmsanf DoCmd.Close acForm, "frm_Search_New", acSaveNo End Select End Sub . وفي الواقع فنحن لسنا بحاجة الى هذا السطر: Me.n2.SetFocus ولكن لأنك لم تجعل اي من الحقول يقبل ان يكون عليه التركيز ، فإضطررت الى وضع التركيز على هذا الحقل اما كود فتح الصفحات ، فأخذته من برنامجك ، ولا علاقة لي به جعفر 911.ادراج البياناتات حسب الفورم المفتوح.mdb.zip

شكرا لك اخي محمد جعفر

وعليكم السلام و شو المطلوب؟ جعفر

1. سهلة 2. هاي تابعة للرقم 1 اعلاه 3. هنا تكمن المشكلة ، فحقول السنة والمركز والشهر في النموذج الاساسي (في المربع البُنّي) ، مضمنه ، اي مرتبطة بجدول ، فاللي يجب عمله: أ. يا تغيير هذه الحقول الثلاث الى حقول غير مضمنه ، ب. او عمل ثلاث حقول اضافيه غير مضمنه ، عملها فقط لفرز وتصفية النماذج الفرعية (حسب بيانات النموذج الرئيسي ، اي بيانات الاسم). بس انا ما شايف بيانات السنة والمركز والشهر في النماذج الفرعية!! رجاء ادخال بيانات فيها ، وارفق البرنامج هنا. جعفر

وعليكم السلام اخوي ابو زاهر للأسف الشديد ما تقدر تعمل هذا في النموذج المستمر والبديل انك تعمل لك 3 ازرار جنب بعض: جعفر

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

وبسبب طريقة صلاحيات المستخدمين التي استخدمتها في برنامجك ، هي حماية عن طريق النماذج ، يمكنك ان تجعل الزر رقم 1 غير مفعّل ، هكذا جعفر

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

السلام عليكم اخي محمود اذا كنت تريد ان تعمل البرنامج بمقابل مادي وبطريقة مباشرة مع احد الاعضاء ، فيمكنك ان تضع طلبك مع الايميل الخاص بك في المنتدى في قسم "اعلانات شخصية للاعضاء: https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء/ واما هنا في قسم الاكسس ، فرجاء وضع اسئلتك التي تريد الاعضاء ان تجيب عليها ، وتساعدك في حل مشكلتك او اعطائك نصيحة في جزء ما ، وبما ان القصد من هذا القسم هو استفادة الجميع منه ، فقد تم حذف ايميلك الشخصي من الموضوع. جعفر

تم إضافة ميزة في الموضوع اعلاة ، وهي التي تحتاج لها في برنامجك جعفر

السلام عليكم تم تعديل الملف المرفق ، وإضافة ميزة اخرى لإستعمال البرنامج شكرا على حُسن تعبيركم جعفر

السلام عليكم اخوي ابو ياسين هل هذا الذي تريده ، ولكن طبعا بتغيير بسيط حتى يلائم برنامجك: جعفر

السلام عليكم ورحمة الله وبركاته استقطعت هذا الجزء من احد برامجي عندما يكون عندك صور/صورة بأحجام مختلفة ، وتريد ان تُكبر الصورة حتى تراها بالحجم الاصلي الكبير ، ولكن داخل برنامج الاكسس ودون الاستعانه ببرنامج خارجي: 1. افتح/تصفح المجلد الذي تريد رؤية صوره ، 2. سترى اسماء الصور في القائمة ، وعند النقر على الاسم ، سترى صورته ، 3. في اي مكان في الصورة ، يمكنك النقر مرتين ، وستكبر الصورة ، وكلما تنقر مرتين يزداد حجمها ، الى ان ترجع الى حجمها الذي يملئ الشاشة ، 4و5. وتستطيع رؤية بقية/تفاصيل الصورة بسحبها لأعلى/اسفل او يمين/يسار: الملف اسمه: Browse_images.mdb.zip تعديل رقم 1: شكرا لأخي ابو خليل على تنبيهي بوجدود خطأ مطبعي في الملف المرفق سابقا ، تم تعديل الملف وتم إضافة الملف التالي: Browse_ONE_image.mdb.zip بعض الاوقات نريد ان نفتح صورة موجود مساره في قاعدة البيانات (يعني فتح صورة معينة): . فيكون كود فتح الصورة: DoCmd.OpenForm "frm_Open_jpg" Forms!frm_Open_jpg!sfrm_Open_jpg!Image1.Picture = Me.image_Name وهذه النتيجة ، والتي يمكننا النقر عليها لتكبيرها . جعفر Browse_images.mdb.zip Browse_ONE_image.mdb.zip

وعيدكم مبارك وايامكم سعيدة ان شاء الله جعفر

افضل طريقة هي عمل خلفية عن طريق احد برامج الرسومات او البوربوينت ، وتضع هذه الصورة كخلفية ، وباللون الذي تشاء ، هكذا: جعفر 906.BtmSheak.accdb.zip

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

وعليكم السلام أخي وليد ، وكما لاحظت ، عندما تعطي التفاصيل كاملة ، ففرصة الحصول على الاجابة تكون اسرع قدم لك اخي علاء احد طرق الجمع في الاستعلام ، وهنا اقدم لك طريقة اخرى ، عن طريق النموذج ، والكود يمكن استعماله لأغراض اخرى لفحص الكائنات في النموذج: Private Sub cmd_Count_Click() Dim ctl As Control 'نبدأ بتصفير خانة المجموع Me.[عدد الزيارات الشهرية] = 0 'عمل حلقة لقراءة جميع كائنات النموذج For Each ctl In Me.Controls 'هل الكائن هو حقل اختيار If ctl.ControlType = acCheckBox Then 'هل الحقل به علامة صح If ctl.Value = -1 Then 'اجمع القيم Me.[عدد الزيارات الشهرية] = Me.[عدد الزيارات الشهرية] + 1 End If 'ctl.Value End If 'ctl.ControlType Next End Sub جعفر 905.Database1.accdb.zip

الله يحفظك ان شاء الله اخوي حربي اخي صالح ، هكذا عمل عندي الكود

في الواقع انا لم اكن اعرف هذا الامر ولم استعمله سابقا ، وبحثت عنه البارحة ، وارفقته لك ، وقبل هذا ، جربته على الصفحة التي ارسلتها لي ، وعمل كما يجب!! جعفر