محمدنجار قام بنشر ديسمبر 1, 2016 قام بنشر ديسمبر 1, 2016 السلام عليكم .... اعضاء المنتدى الكرام ::: لدي مثال باضافة خمس سجلات ثابتة للنموذج الفرعي وحساب قيمة السحلين الرابع والخامس من قيمة بقية السجلات ... وهذا الكود الرائع من ابداع الاستاذ جعفر .. ::: هناك حقول مرتبطة بالحقل food وهما ( unit و price ) .... بمجرد الاختيار من القائمة food . تملا الحقلين المرتبطين تلقائيا ..لكن مع اضافة الخمس سجلات لايحدث هذا .. ::: كيف يتم ذلك مع ادراج الحقول دفعة واحدة حيث احتاجها في التقرير .... وهل يمكنني انشاء زر يدرج اربع سجلات اخرى بنفس الكود ؟؟ مع اطيب المنى . Panel & Calc Value.rar
jjafferr قام بنشر ديسمبر 2, 2016 قام بنشر ديسمبر 2, 2016 وعليكم السلام اخي محمد ملاحظتي لا علاقة لها بسؤالك ، وانما لها علاقة بتسمية ملفك شوف هذا الرابط: https://www.experts-exchange.com/questions/28183424/Saved-Imports-in-Access-Import-from-Current-folder.html#a39423685 مع اننا توصلنا الى اجابة للسؤال ، ولكننا لم نستطع اتمام العمل ، بسبب تسمية مجلده/ملفه ابدا لا تستخدم & في تسمية المجلد/الملف جعفر 1
محمدنجار قام بنشر ديسمبر 2, 2016 الكاتب قام بنشر ديسمبر 2, 2016 6 ساعات مضت, jjafferr said: وعليكم السلام اخي محمد ملاحظتي لا علاقة لها بسؤالك ، وانما لها علاقة بتسمية ملفك شوف هذا الرابط: https://www.experts-exchange.com/questions/28183424/Saved-Imports-in-Access-Import-from-Current-folder.html#a39423685 مع اننا توصلنا الى اجابة للسؤال ، ولكننا لم نستطع اتمام العمل ، بسبب تسمية مجلده/ملفه ابدا لا تستخدم & في تسمية المجلد/الملف جعفر ::: شكرا لك اخي الكريم جعفر ..الرابط يحتوي على معلومات مفيده .. وهذه النصيحة ساعمل بها .. Panel - Calc Value.rar
jjafferr قام بنشر ديسمبر 2, 2016 قام بنشر ديسمبر 2, 2016 48 دقائق مضت, محمدنجار said: الرابط يحتوي على معلومات مفيده مشاركتي هذه صار لها 3 سنوات والان ، اشرح طلبك بمثال لوسمحت ، حتى نستطيع مساعدتك جعفر 1
محمدنجار قام بنشر ديسمبر 2, 2016 الكاتب قام بنشر ديسمبر 2, 2016 6 ساعات مضت, jjafferr said: مشاركتي هذه صار لها 3 سنوات والان ، اشرح طلبك بمثال لوسمحت ، حتى نستطيع مساعدتك جعفر ::: حياك الله اخي استاذ جعفر ::: عند اختيار اي قيمة من القائمة Food فان حقل unit وحقل price تملأ تلقائيا كونهما حقول مرتبطة بالحقل Food . اما عند الضغط على زر (اضف 5 سجلات) لاضافة سجلات ::: فان حقلي unit و price تضل فارغة .كما في الصور .... وهل يمكن عمل قائمة Food_list اخرى من اربعة سجلات بدون قيمة محسوبة في نفس الكود ام احتاج لنسخ الكود وتغيير محتويات القائمة ؟
jjafferr قام بنشر ديسمبر 3, 2016 قام بنشر ديسمبر 3, 2016 وعليكم السلام استخدم هذا الكود المُعدل ، للحدث على زر "اضف 5 سجلات" Private Sub cmd_add_5_Click() On Error GoTo err_cmd_add_5_Click 'Call Form_main.Check_Record 'Exit Sub Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim food_list 'save the Record of the Main Form, if not saved If Me.Dirty Then Me.Dirty = False Set rst = Me.main.Form.RecordsetClone Set rst2 = CurrentDb.OpenRecordset("Select * From sprt") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'this should be a new set, make sure we don't have Records If RC <> 0 Then MsgBox "لا يمكن الاضافة ، توجد سجلات مسبقا" & vbCrLf & "Can't add on existing Records" GoTo Exit_cmd_add_5_Click End If food_list = Array("hamor", "zbedy", "nweby", "sheep", "tona") For i = 1 To 5 rst.AddNew rst!cid = Me.ID rst!food = food_list(i - 1) rst2.FindFirst "[food]='" & food_list(i - 1) & "'" rst!unit = rst2!unit rst!price = rst2!price1 rst.Update Next i Exit_cmd_add_5_Click: rst.Close: Set rst = Nothing rst2.Close: Set rst2 = Nothing Exit Sub err_cmd_add_5_Click: If Err.Number = 3021 Then 'No Records Resume Next ElseIf Err.Number = 3201 Then 'No Record in main Form MsgBox "رجاء تعبئة بيانات النموذج الرئيسي اولا" & vbCrLf & "Please fill Main Form first" Resume Exit_cmd_add_5_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . 20 ساعات مضت, محمدنجار said: هل يمكن عمل قائمة Food_list اخرى من اربعة سجلات بدون قيمة محسوبة في نفس الكود عفوا لم افهم قصدك جعفر 1
محمدنجار قام بنشر ديسمبر 3, 2016 الكاتب قام بنشر ديسمبر 3, 2016 منذ ساعه, jjafferr said: وعليكم السلام استخدم هذا الكود المُعدل ، للحدث على زر "اضف 5 سجلات". عفوا لم افهم قصدك جعفر ::: سلمت يداك يا مبدع . عمل متقن 100% .... وانا سعيد بذلك . لك مني كل التقدير والحب . ::: عندما اريد عمل قائمة اخرى وزر اخر لاضافة 3 سجلات غير التي ضمن الخمس سجلات ,هل عليَ ان اعيد نسخ هذا الكود واضعه تحت حدث الزر الجديد ؟ ام هناك سحرٌ اّخر !! ... (وأمْرٍ دُبِر بِليلْ)؟.
jjafferr قام بنشر ديسمبر 3, 2016 قام بنشر ديسمبر 3, 2016 منذ ساعه, محمدنجار said: عندما اريد عمل قائمة اخرى وزر اخر لاضافة 3 سجلات غير التي ضمن الخمس سجلات ,هل عليَ ان اعيد نسخ هذا الكود واضعه تحت حدث الزر الجديد ؟ ام هناك سحرٌ اّخر !! ... (وأمْرٍ دُبِر بِليلْ)؟. ايش رايك ، لما تضغط على زر "أضف سجلات" (لاحظ اننا سنغير الاسم) ، يظهر لك نموذج فيه قائمة بأسماء المأكولات ، وجنب كل أكلة علامة صح ، فانت تختار الاكلات التي تريد جلبها للقائمة ، وبغض النظر عن عددها ، والكود يجيب اللي تختاره بس ياريت اعرف شو قصدك بـ: وأمْرٍ دُبِر بِليلْ جعفر 1
محمدنجار قام بنشر ديسمبر 3, 2016 الكاتب قام بنشر ديسمبر 3, 2016 2 دقائق مضت, jjafferr said: ايش رايك ، لما تضغط على زر "أضف سجلات" (لاحظ اننا سنغير الاسم) ، يظهر لك نموذج فيه قائمة بأسماء المأكولات ، وجنب كل أكلة علامة صح ، فانت تختار الاكلات التي تريد جلبها للقائمة ، وبغض النظر عن عددها ، والكود يجيب اللي تختاره ::: اقتراح مقبول جدا ... ويفي بالغرض المطلوب ... بارك الله بعمرك اخي الكريم . 3 دقائق مضت, jjafferr said: بس ياريت اعرف شو قصدك بـ: وأمْرٍ دُبِر بِليلْ جعفر ::: مصطلح يقال عند حصول امر خارج عن المألوف والمتعارف عليه .. او لم يخطر ببال احد من قبل ... بحيث يفاجأ الاخرين ..وهنا اقصد (( السحر العماني !!
jjafferr قام بنشر ديسمبر 4, 2016 قام بنشر ديسمبر 4, 2016 السلام عليكم 9 ساعات مضت, محمدنجار said: 9 ساعات مضت, jjafferr said: بس ياريت اعرف شو قصدك بـ: وأمْرٍ دُبِر بِليلْ جعفر ::: مصطلح يقال عند حصول امر خارج عن المألوف والمتعارف عليه .. او لم يخطر ببال احد من قبل ... بحيث يفاجأ الاخرين ..وهنا اقصد (( السحر العماني !! شكراعلى الايضاح ، وكان فهمي له قريبا مما قلت بس في يوم من الايام (يمكن يكون شهر 12 سنة 1985) ، حيث كنت في زيارة لمدينة يدرس فيها احد افراد اسرتي في لوس انجلوس بولاية كاليفورنيا في امريكا ، وعلى الغداء اتاه بعض اصدقاءه السعوديين ، وكان احدهم يتذمر من مادة برمجة البيسك التي كان يأخذها في ذلك الوقت ، وان عندهم واجب وما يعرف يحله ، فطلبت منه احضار السؤال لي قبل الغداء ، فسألني ان كنت اعرف ابرمج ، فقلت قليلا ، فذهب الى سيارته وجاء بالواجب ، وخلال الغداء ، وعلى قصاصة ورقة ، كتبت له البرنامج ، وقبل الانتهاء اعطيته القصاصة ، فسألني ما هذا ، فاخبرته انه البرنامج ، فسألني متعجبا (وغير مصدق لفهمي) وكيف كتبت البرنامج وانت لم تقعد امام الكمبيوتر ، فاجبته ان جرب ولا تهتم ، اليوم التالي رجع ابن عمي من الجامعة وقال: صاحبي السعودي سلّم واجب البرنامج واخذ اعلى علامة في الصف ، واخذ البروفيسر يمدح في برمجته بانه عمل مجموعة معطيات معا ، واخبرني ابن عمي ان صاحبه السعودي قال عني: بطران . بالعماني ، بطران معناه متكبر وشايف حاله وقد لا يكون فيه خير ، فقلت لإبن عمي: اساعده ومافيني خير!! فرد عليّ: بالسعودي ، بطران معناه فاهم وشاطر وعليه شايف حاله ، فقبلت ان اكون بطران ، بالسعودي وهنا خفت ان "وأمْرٍ دُبِر بِليلْ" يكون شئ مشابه جعفر 1
محمدنجار قام بنشر ديسمبر 4, 2016 الكاتب قام بنشر ديسمبر 4, 2016 4 ساعات مضت, jjafferr said: السلام عليكم شكراعلى الايضاح ، وكان فهمي له قريبا مما قلت بس في يوم من الايام (يمكن يكون شهر 12 سنة 1985) ، حيث كنت في زيارة لمدينة يدرس فيها احد افراد اسرتي في لوس انجلوس بولاية كاليفورنيا في امريكا ، وعلى الغداء اتاه بعض اصدقاءه السعوديين ، وكان احدهم يتذمر من مادة برمجة البيسك التي كان يأخذها في ذلك الوقت ، وان عندهم واجب وما يعرف يحله ، فطلبت منه احضار السؤال لي قبل الغداء ، فسألني ان كنت اعرف ابرمج ، فقلت قليلا ، فذهب الى سيارته وجاء بالواجب ، وخلال الغداء ، وعلى قصاصة ورقة ، كتبت له البرنامج ، وقبل الانتهاء اعطيته القصاصة ، فسألني ما هذا ، فاخبرته انه البرنامج ، فسألني متعجبا (وغير مصدق لفهمي) وكيف كتبت البرنامج وانت لم تقعد امام الكمبيوتر ، فاجبته ان جرب ولا تهتم ، اليوم التالي رجع ابن عمي من الجامعة وقال: صاحبي السعودي سلّم واجب البرنامج واخذ اعلى علامة في الصف ، واخذ البروفيسر يمدح في برمجته بانه عمل مجموعة معطيات معا ، واخبرني ابن عمي ان صاحبه السعودي قال عني: بطران . بالعماني ، بطران معناه متكبر وشايف حاله وقد لا يكون فيه خير ، فقلت لإبن عمي: اساعده ومافيني خير!! فرد عليّ: بالسعودي ، بطران معناه فاهم وشاطر وعليه شايف حاله ، فقبلت ان اكون بطران ، بالسعودي وهنا خفت ان "وأمْرٍ دُبِر بِليلْ" يكون شئ مشابه جعفر ::: ههههههههاي .. الله يوجهلك الخير يااستاذ (بطران) ؟! بالسعودي طبعا .. 30 دقائق مضت, jjafferr said: تفضل جعفر 467.Panel_Calc Value.mdb.zip ::: شكري وتقديري لمجهودك الرائع استاذ جعفر . ::: روج يشيخ والقلب داعيلك .. انا سعيد جدا بذلك .. ربنا ميوقف لك اي حاجة باي حته .
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.