jjafferr

ومحاولة اخرى للأخ موسى 🙂 جعفر

وانا كذلك عملت الخطوات التي اخبرتنا عنها ، وما حصلت على رسالة الخطأ !! طبعا هذا مو معناه انه لا توجد عندك مشكلة ، وانما معناه اننا يجب ان نحصل على الخطأ ، علشان نعرف نعطيك الحل 🙂 اذن الان سنضطر ان نعتمد عليك في: 1. اريد صورة شاشة ، قبل ان تنقر على الزر وتاتيك رسالة الخطأ ، 2. اريد صورة شاشة ، بعد ان تنقر على الزر وتاتيك رسالة الخطأ ، 3. اعرض لي الكود خلف زر الخروج. جعفر

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

وليش يكون يخدم نموذج واحد ، ممكن استخدمه لأكثر من نموذج في البرنامج ، ودائما فيه مجال للتعديل والاضافات وتجنب بعض الاخطاء ، فالافضل وجود الكود في مكان واحد ، وحل واحد يخدم جميع النماذج 🙂 طبعا نقطتك في محلها كذلك ، بحيث ان لكل نموذج اكواده والسلام 🙂 جعفر

لن يخدمك هذا ، اذا نقلت الكود الى وجدة نمطية ، وفي نظري ، طريقة اباجودي اكثر مرونة ، بحيث كل زر له حدث خاص به ، فيكون الكود واصح ونظيف 🙂 جعفر

وعليكم السلام 🙂 انا اعطيتك هذا الكود ، جعفر

وعليكم السلام 🙂 رجاء تعطينا الخطوات ، واسماء النماذج ، واسماء الازرار ، لأني دخلت في برنامجك ولم اعرف وين اروح !! جعفر

تحية شكر وإجلال لك اخوي اباجودي ، في الواقع العمل اكثر مما كنت اتوقع 🙂 طريقة عملك لكل زر كحدث مستقل ، شيء ابهرني ، لأنه الآن وبكل بساطة يمكن لأي مستخدم ان يستفيد من عملك 🙂 عملت تعديل بسيط على الكود ، حتى تعم الفكرة بشكل اوسع ، وحتى يعرف المستخدم انه غير مربوبط بالنماذج الفرعية فقط: Sub DocmdMnu10() Me.frmSub.SourceObject = "" '"Table.tblSystemConstants" DoCmd.OpenForm "frmEmployees" End Sub Sub DocmdMnu11() Me.frmSub.SourceObject = "" ': Me.frmSub.Visible = False: MsgBox "Welcome to our world of www.officena.net" DoCmd.Close acForm, Me.Name End Sub Public Function BtnClick() On Error GoTo err_BtnClick ClkBtn GoDo (Me.ActiveControl.Name) Me.frmSub.Visible = True Exit_BtnClick: Exit Function err_BtnClick: If Err.Number = 2467 Then 'when closing the Form, cant have the frmSub visible 'so ignore Resume Exit_BtnClick 'or if want to go to the next line: 'resume next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_BtnClick End If End Function . والمدالية اللي فيها اسمي ، لقيتها منين ، انا من زمان ادوّر عليها 🙂 وشكر خاص على المدالية 🙂 جعفر ShowHideSideBareRight (2) Modified.zip

وعليكم السلام 🙂 ماهي رسالة الخطأ ؟ جعفر

الآن توكل على الله واخذ الخطوة التالية ، واطرح سؤالك وقت تدوخ 🙂 جعفر

عمل جميل اباجودي ، شكرا جزيلا 🙂 بس ياريت تضيف مجموعة نماذج ، علشان لما يتم النقر على زر ، يتم فتح النموذج الخاص به ، فليس كل الاعضاء محترفين مثلك 🙂 ومرة بعد اخرى ، نرى ان الاكسس مرن كفاية لعمل "تقريبا" كل شيء يجي على البال 🙂 اكيد عنده الادرينالين مرتفع ، وننتظر نتائجها 🙂 جعفر

الظاهر في شيء ينطبخ وانت تدري عنه 😁 القصد ، ان اخونا waheidi اخذ الفكرة من هناك ، فلو ان الاجابة كانت كذلك هناك ، فلا يكون حاجة الى موضوع جديد ، واذا الفكرة ما كانت من هناك ، فالافضل ان ندمج هذه الفكرة مع بقية الافكار ، فتكون في مكان واحد 🙂 جعفر

لاحظ نفس طلبك هنا جعفر

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

وعليكم السلام 🙂 تفضل رد من الاستاذ الغائب @رمهان جعفر

عفوا اباجودي ، بس علشان تكون مركز ، انا جعفر ، وانت في منتدى اوفسينا 🙂 طلبات ايه واحلام ايه وتوجيهات ايه واوامر ايه ، انت عاوز تودينا في ستين داهية 😮 🤣🤣🤣🤣🤣

السلام عليكم 🙂 @Moosak و @ابو جودي ياريت تضعون اجابتكم في الموضوع الاصل ، حتى يصبح ذلك الموضوع متكامل (مع مراعاة هذا مستقبلا كذلك 🙂 شكرا) : جعفر

وعليكم السلام اخوي ابو خليل 🙂 نعم ، انا كذلك اخذت الوقت حين قراءة اول مشاركة وبحثت ، وتوصلت الى المعلومة من فم الاسد : https://support.microsoft.com/en-us/office/set-the-field-size-ba65e5a7-2e6f-4737-8e72-36b93f966a33 . فتم قطع الشك باليقين 🙂 جعفر

وعليكم السلام 🙂 في اعتقادي كل اللي تحتاج له هو: . حذف هذا الجدول من الاستعلام . جعفر

السلام عليكم 🙂 اسمح لي ان اصحح هذه المعلومة: هي 255 حرف ، وليس 255بت ، الاكسس يستخدم ذاكرة بحجم البيانات المُدخلة ، ويتغاضى عن بقية الطول الذي تكتبه لهذا الحقل ، اما حجم الحقل ، فالاكسس لا يسمح لك بإضافة حروف اكثر مما تكتبه في هذه الاعدادات 🙂 وهنا تم مناقشة بعض النصائح المهمة جعفر

السلام عليكم 🙂 اخي الفاضل canary2522 ، في المرات القادمة ، رجاء مراعاة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

اخي قاسم 🙂 جميع المشاركات اعلاه ترد على سؤالك ، رجاء اخبرنا الخطوات التي لم تستطع القيام بها ، حتى نستطيع مساعدتك 🙂 جعفر

وعليكم السلام 🙂 اخي بلال ، لا توجد بيانات كافية لطلبك ، انت تطلب منا ان نخمن ، ولما نعطيك الاجابة ستقوم باعطاء معلومات اكثر علشان توصل للحل الذي في بالك !! الاستعلام هذا يقوم بالعمل ، وتلاحظ اني استعملت حقل "الموسم المدرسي" كمعيار ، فيجب عليك بعد اضافة البيانات ، باضافة حقل المكان او المدرسة كمعيار آخر يشير الى مربع التحرير والسرد في النموذج ، . حاليا وضعت الكود التالي على حدث "تحميل النموذج" ، ولكن عليك وضع الكود على حدث "بعد تحديث" مربع التحرير والسرد ، واكمال بقية الحقول (طبعا بعد ان تضيفها للاستعلام) : Private Sub Form_Load() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From qry_Sums") rst.MoveFirst Me.Male = rst!Male Me.Female = rst!Female Me.Certificate_L = rst!Certificate_L Me.Certificate_M = rst!Certificate_M rst.Close: Set rst = Nothing End Sub . والنتيجة . جعفر 1437.موسسة1.accdb.zip

السلام عليكم 🙂 انا متابع الموضوع من البداية ، ونصيحة الاخوان في مكانها ، وبقية النصائح هنا: . كما عندي هذه الملاحظات في الكود: 1. لا تستخدم On Error Resume Next إلا في حالات جدا خاصة ، وانما استعمل رقم الخطأ وتعامل معاه: Private Sub Form_Load() On Error GoTo err_Form_Load Me.TNO.SetFocus DoCmd.FindRecord Forms!FRM_01!TNO, , , , , , True No_FRM: 'continue code here Exit_Form_Load: Exit Sub err_Form_Load: If Err.Number = 1234 Then 'ignore, Resume Next ElseIf Err.Number = 2145 Then 'ignore, No proper value from incoming Form Resume No_FRM Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Form_Load End If End Sub . 2. ولو انك تقدر تستخدم فلتر النموذج هكذا : myCriteria = "" myCriteria = myCriteria & "(" myCriteria = myCriteria & "[BRANDS]= '" & Me.cmbBRANDS.Column(1) & "'" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Filter = myCriteria Me.FilterOn = True . وهذه نصائح على استعماله: . ولكني انصحك بإستخدام فلتر النموذج عن طريق الاستعلام : . 3. لا تستخدم Dim بدون ان تُعرّف نوع المتغير ، يعني اذا استخدمت (Dim i) فهذا معناه Dim i as Variant 4. لما تستعمل الامر Set rs = CurrentDb.OpenRecordset ، فإنك تضع جميع البيانات الجدول/الاستعلام في ذاكرة الكمبيوتر Ram ، فيجب عليك حذف هذه البيانات في نهاية الكود ، هكذا: rst.close: set rs = nothing جعفر