استبدل كلمة الخطا # التي تظهر في الحقول الفارغة نتيجة العملية الحسابية

اعمل الحقول بنفس الطريقة في النموذج "المركز" ، وحط/غير المعادلات ،

وبعدين اخذها من النموذج الى الكود كما هي :)

اذا فهمت المعادلات الموجودة ، راح تعرف كيف تخلي المعادلات التالية :)

جعفر

طبقت  عزيزي  مثل  ما  قلتلي  يطلع  خطا  في  الكود  ياليت  تشوفة  وتعلمني  ما  هو  الخطا  لو  تكرمت  ثقلت  عليك  ياغالي  ارفقتلك  التعديل  الي  انا  سويتة  

fasd.rar

جرب هاي:

Private Sub Form_Current()
On Error GoTo err_Form_Current

    'z1 = DSum("[12]", "ÞØä", "[ÊÇÑíÎ ÇáÓäÏ]=#" & Me.[ÊÇÑíÎ ÇáÓäÏ] & "#")
    'Dim rst As DAO.Recordset
    'Set rst = CurrentDb.OpenRecordset("Select * From ÞØä ") 'WHERE [ÊÇÑíÎ ÇáÓäÏ]= " & Me.ÊÇÑíÎ_ÇáÓäÏ)
    'rst.MoveLast: rst.MoveFirst
    
    'z1 = 0
    'For i = 1 To rst.RecordCount
    '    If rst![ÊÇÑíÎ ÇáÓäÏ] = Me.ÊÇÑíÎ_ÇáÓäÏ Then
    '        z1 = z1 + rst![12]
    '    End If
    '    rst.MoveNext
    'Next i
        
    
    Me.z = q.Form!rr    'ÚÏÏ ÇáËíÇÈ
    Me.ww = q.Form!qq   'ÇáãÈáÛ  ÇáæÇÕá
    Me.e = q.Form!er    'ÇáÇÌãÇáí
    Me.qq = [e] - [ww]  'ÇáãÊÈÞí
    
    Me.x = q1.Form!rr
    Me.a = q1.Form!qq
    Me.r = q1.Form!er
    Me.g = [r] - [a]
    
    Me.v = [q3].[Form]![rr]
    Me.d = [q3].[Form]![qq]
    Me.j = [q3].[Form]![er]
    Me.y = [y] - [d]
    
               
    Me.zx = [z] + [x] + [v]
    Me.wwa = [ww] + [a] + [d]
    Me.qqg = [qq] + [g] + [y]
    Me.er = [e] + [r] + [j]
    
Exit Sub
err_Form_Current:

    If Err.Number = -2147352567 Then
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

جعفر

اللله يجزيك الخير ضببط معي

سقفة كبيرة لملك الاكواد استاذي / جعفر  :)

ما شاء الله عليك :)

alaaaboulela كتب:

لملك الاكواد

اخي ابوعلاء ، دائما تخجلني بعباراتك الخارجة عن نطاق الكون :tbsob:

جعفر

الله  يجيزك  الخير  اخي  جعفر  ضبط  معي  ولكن  هل  بلامكان  يكون  بين  تاريخين  حاولت  اضبطها  ما  ضبط معي   :P  :P  :P  :P  :P مرفق المثال  ومحاولتي  التي  حاولت  انيكون  بين  تاريخين  

fasd1.rar

اخي فواز :)

انا ما كنت مقتنع بطريقة النموذج ابدا ، ولكن ما كان في اليد حيلة إلا ان اواصل طريقة عملك :(

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

والآن يمكنك ان تضيف اي مادة شئت ، ومافي داعي تعمل استعلامات جديدة ولا انك تصلح على النموذج :)

المرفق عبارة عن جداولك + استعلام qry_Summary_All_Types + نموذج frm_Summary_All_Types ،

وحذفت جميع الكائنات الاخرى :)

طريقة العمل:

افتح النموذج ، اختر التاريخ من ، والتاريخ الى ، ثم اضغط على الزر "افرز" ، وكفى الله المؤمنين شر القتال :)

جعفر

271.2.fasd_New.mdb.zip

الله يجزاك  الخير  

للفائدة

هناك دالة اسمها   IsError

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

=IIf(IsError([q1].[Form]![rr]);0;[q1].[Form]![rr])