حصر عدد صنف معين داخل النموذج الفرعي

[wael_rafat]

السلام عليكم ورحمة الله وبركانه

السادة الافاضل مشرفي واعضاء المنتدي المحترم

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

علي سبيل المثال

عدد الصنف الذي يحمل الكود ( 1001 ) داخل النموذج الفرعي فقط وليس العدد الاجمالي الموجود بجدول الاصناف

مرفق صورة توضيحية مع القاعدة

مع كل الشكر والتقدير

 

 

AA.rar

[jjafferr]

وعليكم السلام أخي وائل 

 

انا فتشت في قوانين المنتدى ، بس للأسف الظاهر انهم تجاهلوا بعض الشروط ، 

لهذا ، فانا اضع بين يديك قانون جعفر:

1: ممنوع وضع مشاركات جديدة لها علاقة بالاكل ، إلا بعد الوجبات 

 

يعني تريدني ارد على سؤالك ، او ارد على بطني اللي يريد الزبيدي 

 

 

عُدنا للموضوع 

 

 

1. انا غيرت مسمى الحقول الصفراء في النموذج الرئيسي الى:

 

 

2. في النموذج الفرعي ، في الحدث الحالي ، وضعت هذا الكود:

يعني ، لازم تكون على السجل اللي تريد تعرف معلوماته ، وعليه بتحصل على النتيجة

Private Sub Form_Current()
On Error GoTo err_Form_Current

    Me.Parent.itemcode_count = 0
    Me.Parent.itemcode_id = Me.itemcode
    
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    
    
    RC = rst.RecordCount
    
    For I = 0 To RC
        
        If Me.Parent.itemcode_id = rst!itemcode Then
            Me.Parent.itemcode_count = Me.Parent.itemcode_count + 1
        End If
        
        rst.MoveNext
    
    Next I
    
    
Exit Sub
err_Form_Current:

    If Err.Number = 3021 Then
        'no records
        Exit Sub
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

بس الظاهر ان عندك حدث آخر يتدخل كل شوي ، فلازم تعالجه علشان هذا الكود يشتغل عدل 

 

 

جعفر

41.AA.mdb.zip

[رمهان]

اخي وائل

هل المقصود عدد كم صنف لدي ام كم كمية كل صنف ؟

بالتوفيق

[wael_rafat]

اخي الفاضل جعفر بارك الله فيك وزادك الله من علمه وجعله بميزان حسناتك

اخي الكريم رمهان جزاك الله على المشاركة والتفاعل

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

 

 

والزبيدي تحت امرك والله استاذ جعفر ههههههه ، ويا ريتك كنت قريب مني لعمل الواجب معكم

 

الحل ممتااااااز اخي الفاضل جعفر وبارك الله فيك

 

الفكرة اخواني الكرام  او الهدف المطلوب التوصل اليه سوف اطرحه بمشاركة جديدة انشالله ( حسب نظام وقوانين المنتدي )

[jjafferr]

حياك الله