jjafferr

وعليكم السلام اقدر اعملها بطريقتين: الاولى: عن طريق نموذج كائن نموذج فرعي (هو نموذج فرعي لا يوجد به نموذج) . حيث نعامل كل شيء في هذا الكائن كأنه نموذج فرعي ، عليه ، فأول مرة نفتح النموذج ، نضع فيه نموذج الازرار: Private Sub Form_Load() Rem===== DoCmd.Maximize Me.sfrm.SourceObject = "frm_1" End Sub . وعند النقر على زر-هيكلية المدرسة ، نفتح النموذج Form100 هكذا: Private Sub ComdIntOrg_Click() 'Call ActiveCommand Me.Parent!sfrm.SourceObject = "Form100" End Sub . يعني : بدل استعمال الكود التالي لفتح النموذج docmd.openform "Forms100" نستعمل Me.Parent!sfrm.SourceObject = "Forms100" . وبما ان هذه الطريقة غير مألوفة ، فيحتاج لك تمرين الى ان تأخذ يدك عليه المرفق فيه مثال. الطريقة الثانية: استعمل الكود التالي لفتح كل نموذج: docmd.openform "Form100" DoCmd.MoveSize 1440, 2400, 2000, 2000 والامر عبارة عن حجم النموذج ومكانه DoCmd.MoveSize(Right, Down, Width, Height) . والارقام هذه بمقياس twips c1 cm = 567 twips c1 in = 1440 twips المشكلة في هذه الطريقة هو معرفة حجم شاشة/شاشات الزبون وتحديد المكان على اساسها جعفر 915.Aziz.accdb.zip

وعليكم السلام في التقرير ، انقر على خط قسم/فاصل قسم Detail ، واكمل هذه السطور لبقية الكائنات: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Me.ID.Width = Forms!Table1!ID.Width Me.ID.Height = Forms!Table1!ID.Height Me.ID.Top = Forms!Table1!ID.Top Me.ID.Left = Forms!Table1!ID.Left End Sub جعفر

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

حياك الله جعفر

سيدي الفاضل بدل ان تعرف اي نموذج مفتوح ، بهذا الكود: 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-إعلانات-شخصية-للاعضاء/ واما هنا في قسم الاكسس ، فرجاء وضع اسئلتك التي تريد الاعضاء ان تجيب عليها ، وتساعدك في حل مشكلتك او اعطائك نصيحة في جزء ما ، وبما ان القصد من هذا القسم هو استفادة الجميع منه ، فقد تم حذف ايميلك الشخصي من الموضوع. جعفر

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

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