jjafferr

وعليكم السلام :) 1. غير التنسيق الى: 2. وهذه ارقامي: 3. والنتيجة: طبعا انا حذفت الشرط: >0 And <=1 ورسالته: ادخل عدد كسري جعفر

وعليكم السلام :) المفروض نعم ، وقد يكون بنفس المعادلة ايضا كما الاكسل :) جعفر

وعليكم السلام :) تم تحويل: Expr1: IIf([youm2]='الخميس',[findate]+3,IIf([youm2]='الجمعة',[findate]+2,IIf([youm2]='السبت',[findate]+1))) الى Function Date_Return(F) W = Weekday(F) If W = vbThursday Then '"الخميس" Date_Return = DateAdd("d", 3, F) 'Date_Return = F…

تفضل :) ولكن انتبه ، عندما يكون جدولك كبيرا ، فالنموذج سيأخذ وقت الى ان يكمل جميع السجلات ، لذا ، قد يكون من الافضل ان تجعل الكود على رز :) جعفر 311.الإجازات2.mdb.zip

تفضل :) 1. فرز الاسماء يكون في الاستعلام والذي هو اصل التقرير ، 2. التسلسل ليس له علاقة بالجدول ، وانما تعمله في الجدول ، هكذا: أ. اعمل حقل نص غير مضمن ، اي غير مربوط بأي حقل في الجدول ، ب. في خصائص الحقل ، اجعله =1 في خصائص ربط الحقل مع الجدول ، ج. في خصائص ا…

حياك الله :)

وعليكم السلام اخي كريمو :) ضع قاعدة بياناتك ، وان شاء الله خير :) جعفر

وعليكم السلام :) هذا لآنك خليتي الكود على Qt_out_ Exit خلي الكود على الحدث "قبل التحديث" :) ما اشتغل كودك: 1. هل عندك الحقل txt52 في النموذج الفرعي؟ هو موجود في النموذج الرئيسي ، ولكنك لم تشيري اليه كذلك! 2. انا اسخدمت الامر val ، ومعناه value اي قيمة الحقل ، …

وعليكم السلام :) ولو اني ما اتفق معاك في الطلب الثاني ، ولكن تفضل :) Private Sub Form_Current() '1 If Len(Me.الإجازة_من & "") <> 0 Or Len(Me.الإجازة_إلى & "") <> 0 Then Me.الحالة = "اجازة" Else Me.الحالة = "على رأس عمله" End If '2 If Len(Me.الإجازة_من & "") <>…

وعليكم السلام اختي :) استخدمي هذا الكود: Private Sub Qt_out_Exit(Cancel As Integer) If Nz(Me.Qt_out, 0) > Val(Nz(Me.Parent.txt52, 0)) Then MsgBox "ÇáßãíÉ ÇáãäÕÑÝÉ ÇßÈÑ ãä ÇáÑÕíÏ ÇáÍÇáí", vbCritical + vbOKOnly, "ÑÓÇáÉ ÊÍÐíÑíÉ" Cancel = -1 End If End Sub جعفر

لقيت حقل الحاله في الجدول والاستعلام ، فاضفته الى النموذج :) جرب هذا الكود: Private Sub RR_BeforeUpdate(Cancel As Integer) On Error GoTo err_RR_BeforeUpdate Dim rst As DAO.Recordset Dim i, FoundIt As Integer Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFi…

تم حذف هذه المشاركة. جعفر

الحمدلله :)

شوفي اذا هذا الكود يعطي النتائج الصحيحة: هذا تعديل على الكود الاصل اللي كان عندك: Private Sub MaterialSymbol_Exit(Cancel As Integer) On Error GoTo err_MaterialSymbol_Exit 'Me.item_Balance = DLookup("sum([Qt_in])-sum([Qt_out])", "trans", "[MaterialSymbol]='" & …

الظاهر اني فهمت المطلوب بالخطأ !! ما هو المجموع المطلوب ؟ وهل هو لفاتورة واحدة فقط ام جميع الفواتير؟ جعفر

نعم اختي ، النتيجة صحيحة :) فانت لازلتي على سجلات نفس الفاتورة!! اختاري فاتورة ثانية وشوفي النتيجة :) جعفر

وهنا صححت الكود اكثر ، حتى لا يعطي خطأ عندما لا يكون هنا اي سجل: Private Sub MaterialSymbol_Exit(Cancel As Integer) On Error GoTo err_MaterialSymbol_Exit ' Me.item_Balance = DLookup("sum([Qt_in])-sum([Qt_out])", "trans", "[MaterialSymbol]='" & [رمز المادة الجا…

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

الظاهر ان النتيجة صحيحة ، لأن Qt_In للمادة MaterialSymbol ، هي صفر ، لذلك النتيجة سالبة :) جعفر

عفوا ، لم اجرب النتيجة :( اضفت سطر الى الكود: rst.MoveLast: rst.MoveFirst ومعناه: (إذهب الى آخر سجل ، ثم ارجع الى السجل الاول) ، ثم قم ببقية الكود ، هذا السطر يغصب الكود على ملئ Recordset بجميع السجلات في المتغير rst ، بينما الخطأ الذي ظهر لك كان معناه: 1. في …