سجلات ثابتة بشكل قالب وقيمة محسوبة لاحدها

[محمدنجار]

السلام عليكم .... اعضاء المنتدى الكرام

::: لدي مثال باضافة خمس سجلات ثابتة للنموذج الفرعي وحساب قيمة السحلين الرابع والخامس من قيمة بقية السجلات ... وهذا الكود الرائع من ابداع الاستاذ جعفر ..

::: هناك حقول مرتبطة بالحقل food  وهما ( unit و price ) .... بمجرد الاختيار من القائمة food . تملا الحقلين المرتبطين تلقائيا ..لكن مع اضافة الخمس سجلات  لايحدث هذا ..

::: كيف يتم ذلك مع ادراج الحقول دفعة واحدة حيث احتاجها في التقرير .... وهل يمكنني انشاء زر يدرج اربع سجلات اخرى بنفس الكود ؟؟  مع اطيب المنى .

 

Panel & Calc Value.rar

[jjafferr]

وعليكم السلام اخي محمد

 

ملاحظتي لا علاقة لها بسؤالك ، وانما لها علاقة بتسمية ملفك

شوف هذا الرابط:

https://www.experts-exchange.com/questions/28183424/Saved-Imports-in-Access-Import-from-Current-folder.html#a39423685

مع اننا توصلنا الى اجابة للسؤال ، ولكننا لم نستطع اتمام العمل ، بسبب تسمية مجلده/ملفه 

 

ابدا لا تستخدم & في تسمية المجلد/الملف

 

 

جعفر

[محمدنجار]

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]

48 دقائق مضت, محمدنجار said:

الرابط يحتوي على معلومات مفيده

مشاركتي هذه صار لها 3 سنوات

 

والان ، اشرح طلبك بمثال لوسمحت ، حتى نستطيع مساعدتك

 

جعفر

[محمدنجار]

6 ساعات مضت, jjafferr said:

مشاركتي هذه صار لها 3 سنوات

والان ، اشرح طلبك بمثال لوسمحت ، حتى نستطيع مساعدتك

جعفر

::: حياك الله اخي استاذ جعفر

::: عند اختيار اي قيمة  من القائمة Food  فان حقل unit وحقل price  تملأ تلقائيا كونهما حقول مرتبطة بالحقل Food . اما عند الضغط على زر (اضف 5 سجلات) لاضافة سجلات

::: فان حقلي unit و price تضل فارغة .كما في الصور ....  وهل يمكن عمل قائمة Food_list اخرى من اربعة سجلات بدون قيمة محسوبة في نفس الكود ام احتاج لنسخ الكود وتغيير محتويات القائمة ؟

[jjafferr]

وعليكم السلام

 

استخدم هذا الكود المُعدل ، للحدث على زر "اضف 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 اخرى من اربعة سجلات بدون قيمة محسوبة في نفس الكود

عفوا لم افهم قصدك

 

جعفر

[محمدنجار]

منذ ساعه, jjafferr said:

وعليكم السلام

استخدم هذا الكود المُعدل ، للحدث على زر "اضف 5 سجلات".

عفوا لم افهم قصدك

جعفر

::: سلمت يداك يا مبدع . عمل متقن 100% .... وانا سعيد بذلك . لك مني كل التقدير والحب .

::: عندما اريد عمل قائمة اخرى وزر اخر لاضافة 3 سجلات غير التي ضمن الخمس سجلات ,هل عليَ ان اعيد نسخ هذا الكود واضعه تحت حدث الزر الجديد ؟ ام هناك سحرٌ اّخر !!  ... (وأمْرٍ دُبِر بِليلْ)؟.

[jjafferr]

منذ ساعه, محمدنجار said:

عندما اريد عمل قائمة اخرى وزر اخر لاضافة 3 سجلات غير التي ضمن الخمس سجلات ,هل عليَ ان اعيد نسخ هذا الكود واضعه تحت حدث الزر الجديد ؟ ام هناك سحرٌ اّخر !!  ... (وأمْرٍ دُبِر بِليلْ)؟.

 

ايش رايك ، لما تضغط على زر "أضف سجلات" (لاحظ اننا سنغير الاسم) ، يظهر لك نموذج فيه قائمة بأسماء المأكولات ، وجنب كل أكلة علامة صح ،

فانت تختار الاكلات التي تريد جلبها للقائمة ، وبغض النظر عن عددها ، والكود يجيب اللي تختاره

 

بس ياريت اعرف شو قصدك بـ: وأمْرٍ دُبِر بِليلْ 

 

جعفر

[محمدنجار]

2 دقائق مضت, jjafferr said:

 

ايش رايك ، لما تضغط على زر "أضف سجلات" (لاحظ اننا سنغير الاسم) ، يظهر لك نموذج فيه قائمة بأسماء المأكولات ، وجنب كل أكلة علامة صح ،

فانت تختار الاكلات التي تريد جلبها للقائمة ، وبغض النظر عن عددها ، والكود يجيب اللي تختاره

::: اقتراح مقبول جدا ... ويفي بالغرض المطلوب ... بارك الله بعمرك اخي الكريم .

3 دقائق مضت, jjafferr said:

بس ياريت اعرف شو قصدك بـ: وأمْرٍ دُبِر بِليلْ 

جعفر

::: مصطلح يقال عند حصول امر خارج عن المألوف والمتعارف عليه .. او لم يخطر ببال احد من قبل ... بحيث يفاجأ الاخرين ..وهنا اقصد (( السحر العماني !!

[jjafferr]

السلام عليكم

9 ساعات مضت, محمدنجار said:

 

9 ساعات مضت, jjafferr said:

بس ياريت اعرف شو قصدك بـ: وأمْرٍ دُبِر بِليلْ 

جعفر

::: مصطلح يقال عند حصول امر خارج عن المألوف والمتعارف عليه .. او لم يخطر ببال احد من قبل ... بحيث يفاجأ الاخرين ..وهنا اقصد (( السحر العماني !!

شكراعلى الايضاح ، وكان فهمي له قريبا مما قلت

بس في يوم من الايام (يمكن يكون شهر 12 سنة 1985) ، حيث كنت في زيارة لمدينة يدرس فيها احد افراد اسرتي في لوس انجلوس بولاية كاليفورنيا في امريكا ،

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

فطلبت منه احضار السؤال لي قبل الغداء ، فسألني ان كنت اعرف ابرمج ، فقلت قليلا ، فذهب الى سيارته وجاء بالواجب ،

وخلال الغداء ، وعلى قصاصة ورقة ، كتبت له البرنامج ، وقبل الانتهاء اعطيته القصاصة ، فسألني ما هذا ، فاخبرته انه البرنامج ، فسألني متعجبا (وغير مصدق لفهمي) وكيف كتبت البرنامج وانت لم تقعد امام الكمبيوتر ، فاجبته ان جرب ولا تهتم ،

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

واخبرني ابن عمي ان صاحبه السعودي قال عني: بطران .

بالعماني ، بطران معناه متكبر وشايف حاله وقد لا يكون فيه خير ، فقلت لإبن عمي: اساعده ومافيني خير!! فرد عليّ:

بالسعودي ، بطران معناه فاهم وشاطر وعليه شايف حاله ، فقبلت ان اكون بطران ، بالسعودي

 

وهنا خفت ان "وأمْرٍ دُبِر بِليلْ" يكون شئ مشابه

 

جعفر

 

[jjafferr]

تفضل

 

جعفر

467.Panel_Calc Value.mdb.zip

[محمدنجار]

4 ساعات مضت, jjafferr said:

السلام عليكم

شكراعلى الايضاح ، وكان فهمي له قريبا مما قلت

بس في يوم من الايام (يمكن يكون شهر 12 سنة 1985) ، حيث كنت في زيارة لمدينة يدرس فيها احد افراد اسرتي في لوس انجلوس بولاية كاليفورنيا في امريكا ،

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

فطلبت منه احضار السؤال لي قبل الغداء ، فسألني ان كنت اعرف ابرمج ، فقلت قليلا ، فذهب الى سيارته وجاء بالواجب ،

وخلال الغداء ، وعلى قصاصة ورقة ، كتبت له البرنامج ، وقبل الانتهاء اعطيته القصاصة ، فسألني ما هذا ، فاخبرته انه البرنامج ، فسألني متعجبا (وغير مصدق لفهمي) وكيف كتبت البرنامج وانت لم تقعد امام الكمبيوتر ، فاجبته ان جرب ولا تهتم ،

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

واخبرني ابن عمي ان صاحبه السعودي قال عني: بطران .

بالعماني ، بطران معناه متكبر وشايف حاله وقد لا يكون فيه خير ، فقلت لإبن عمي: اساعده ومافيني خير!! فرد عليّ:

بالسعودي ، بطران معناه فاهم وشاطر وعليه شايف حاله ، فقبلت ان اكون بطران ، بالسعودي

وهنا خفت ان "وأمْرٍ دُبِر بِليلْ" يكون شئ مشابه

جعفر

::: ههههههههاي .. الله يوجهلك الخير يااستاذ (بطران)  ؟!  بالسعودي طبعا ..

30 دقائق مضت, jjafferr said:

تفضل

جعفر

467.Panel_Calc Value.mdb.zip

::: شكري وتقديري لمجهودك الرائع استاذ جعفر .

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

[jjafferr]