jjafferr

سيدي الفاضل بدل ان تعرف اي نموذج مفتوح ، بهذا الكود: Dim n As String: Dim i As Integer: Dim isopen As Boolean n = "frmEdrajSenf" isopen = False For i = 0 To Forms.Count - 1 If Forms(i).FormName = n Then isopen = True End If Next i If isopen Then . الافضل ان تعرف اي نموذج فتح صفحة البحث ، وعليه ترجع له البيانات ، هكذا: بدل Private Sub Rajmsanf_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF3 Then DoCmd.OpenForm "frm_Search_New", acNormal End If End Sub هكذا نفتح نموذج البحث ، ونرسل له اسم النموذج الذي طلب البحث Private Sub Rajmsanf_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF3 Then ' هنا نرسل اسم النموذج، في آخر امر في السطر، هكذا DoCmd.OpenForm "frm_Search_New", acNormal, , , , , Me.Name End If End Sub . وعليه يصبح كود ارجاع البيانات الى النموذج المفتوح هكذا: Forms(Me.OpenArgs)![Rajmsanf] = Me.Rajmsanf DoCmd.Close acForm, Me.Name, acSaveNo . جعفر 911.1.ادراج البياناتات حسب الفورم المفتوح.mdb.zip

السلام عليكم اخوي ابو زاهر 2. وتم حله 1. يعني اذا frmEdrajSenf_R او frmEdrajSenf_sra مفتوح ، لما تضغط على الزر Enter ، تريد بيانات السجل تروح الى النموذج المفتوح؟ جعفر

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

اعمل بحث في المنتدى ، وفيه الكثير من هذه المواضيع: https://www.google.com/search?q=شفت+site%3Awww.officena.net&oq=شفت+site%3Awww.officena.net&aqs=chrome..69i57.26213j0j4&sourceid=chrome&ie=UTF-8 جعفر

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

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

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

وعليكم السلام الجواب نعم تستطيع: 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