حارث

بعد إذن الأخ أشرف : هذه من الطرق : http://www.pcpages.com/harith77/SumNow.zip مع ملاحظة أن المطلوب لو كان في تقرير بدلا من نموذج لكان أسهل .

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

جرب هذه الطريقة : http://www.pcpages.com/harith77/NumsByPages2.zip

لماذا لا تستغني عن إقفال حقل رقم الفاتورة بعد تحديثه، وتجعل الإقفال بعد تحديث النموذج ، أي بدلا من : Private Sub number_AfterUpdate() Me.number.Locked = True End Sub يكون : Private Sub Form_AfterUpdate() Me.number.Locked = True End Sub أما حدث في الحالي فيبقى …

انظر الرابط: http://www.arabteam2000.com/vb/showthread....&threadid=12711 وهو يحتوي على الوصلة التالية من الأخ سعودي : http://mypage.ayna.com/kou_kuo/20DEMO.zip (انقر بالزر الأيمن واختر حفظ الهدف باسم)

فيما يلي مثال كنت عملته منذ فترة تزيد على الشهرين ، ولم أقتنع بأهميته ، لكن بعد الاطلاع عليه مرة أخرى قلت ربما يجد فيه بعض الإخوان فائدة لهم . لذا أضفت عليه أيضا بعض الإضافات لتحسينه ، وهو فيما يلي : http://www.pcpages.com/harith77/PassUsers.zip مع العلم بأن أ…

وانظر هذا الرابط للأستاذ أبو حمود : http://www.arabteam2000.com/vb/showthread....ht=%CD%E3%E6%CF

المعذرة فلم أفهم المطلوب جيدا . إضافة إلى طريقة الأخ طالب علم جرب هذه الطريقة أيضا : http://www.pcpages.com/harith77/Jawab2000.zip

كتاب آخر : البرمجة في أكسس 2000 للدكتور باسل الخطيب . وأظن أن كتاب سوزان نوفاليس يغني عنه ، لكن يتميز بأنه أكثر اختصارا ز ملاحظة : كتاب سوزان ممتاز ودسم جدا ، لكنه مليء بالأخطاء المطبعية (لدي الطبعة العربية الأولى من كتاب سوزان) . ملاحظة : جميع هذه الكتب للمتو…

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

اطلعت على المثال وهو جميل جدا ، وإن كان البعض قد يرغب مع ذلك في منع عجلة الماوس ومفاتيح التنقل ، لكن لكل طريقته . ولي طلب : أن لا تحذف المثال الذي فيه منع عجلة الماوس ، فهو مفيد جدا.

اجعل حدثين : الأول : بعد التحديث بالنسبة لمربع النص أو إن شئت بالنسبة للنموذج . والثاني : في الحالي بالنسبة للنموذج . Private Sub Form_Current() If Me.NewRecord Then Me.number.Locked = False Else Me.number.Locked = True End If End Sub Private Sub number_AfterU…

مثال على الطريقتين : http://www.pcpages.com/harith77/MySum.zip

حيلة أخرى : ضع حقل جديد في الاستعلام مصدر النموذج واجعل قيمته : Expr1: IIf([النوع]<>"آجل";Null;[النوع]) ثم اجعل في النموذج مربع نص غير منضم ثم في خصائص مربع النص في البيانات في مصدر عنصر التحكم اكتب : =Sum([Expr1])

لم أجرب هذه الطريقة لكن ممكن تنفع : Dim MyStr If Me.FilterOn = True And Me.Filter <> "" Then MyStr = " And " & Me.Filter Me.Text1 = DSum("[Field]", "[table]", "[النوع]='آجل'" & MyStr) استبدل Field باسم الحقل في الجدول الذي تريد مجموعه . استبدل table باسم الجدو…

انظر المثال التالي: http://mypage.ayna.com/mutlq_966/save_edit_del.zip وهو من عمل الأخ mt في الوصلة التالية : http://www.arabteam2000.com/vb/showthread....%E1%E3%C7%E6%D3

الأخ مصلح : طريقتك أفضل وأقل تعقيدا . والسؤال باقي : ألا يوجد دالة تقوم بتقريب الرقم الموجب لأعلى . الأخ أشرف : جرب أن تجعل الدفعة الأولى: 5500 .

عمل رائع جدا جدا جدا . وما أضفته بشأن عجلة الماوس مبهر . والحقيقة أنك منذ البداية أستاذ وزيادة . أظن أن البرنامج لم يعد يحتاج إلى الحدث beforupdate لكن عموما هنا فكرتان طبقتهما على المثال الأول ، (لأني لم أرد أن أفسد جمال المثال الثاني) : http://www.pcpages.co…

لا أعرف الدالة التي تقوم بتقريب الأعداد الموجبة التي تحتوي على كسور لأعلى. وننتظر إفادة بقية الإخوة . حل مؤقت : Private Sub Txt1_Change() Dim MyNumber If Me.Txt1.Text = "" Then MyNumber = Null Else MyNumber = ([Txt1].Text - [Txt2]) / [Txt3] End If If MyNumber …

أنشئ نموذجا فيه أربع مربعات نص غير منضمة . بالأسماء : Txt1 Txt2 Txt3 Txt4 ثم اجعل في خصائص مربعات النص الثلاثة الأولى الحدث التالي عند التغيير : Private Sub Txt1_Change() If IsNull(Me.Txt1.Text) Or Me.Txt1.Text = "" Then Exit Sub [Txt4] = ([Txt1].Text - [Txt2]…