أبو هادي

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

السلام عليكم سؤال موجه إلى مشرفي المنتدى : هل طرح هذا الموضوع من قبل ؟ هل الموضوع أقل من أن يقوَّم منكما ؟ طبعا قد يسأل سائل لماذا هذه الأسئلة موجهة فقط إلى مشرفي المنتدى مع إعراض الجميع عن المشاركة .. فأقول أنهما في التزام من منطلق مسئوليتهما التي رشحا للقيام…

السلام عليكم zx.zip

أخي العزيز .. ولا يهمك تعديل في الدالة لمنع بعض المشكلات Function GetAvg(a1, a2, a3, a4, a5) As Double Dim Items As Byte If Nz(a1) <> 0 Then Items = 1 If Nz(a2) <> 0 Then Items = Items + 1 If Nz(a3) <> 0 Then Items = Items + 1 If Nz(a4) <> 0 Then Items = Items…

أخي لماذا لم يضبط ؟ هذا كود بسيط للغاية لا يحتاج التجربة !! لو تفضلت ووضعت النتيجة أي رسالة الخطأ التي تستقبلها عند استخدام الكود . وما تفضلت به من استبعاد الحق الذي يحتوي على صفر في استعلام وهو اقتراح الأخ محمد طاهر هو صحيح تماما إذا كان المعدل على مستوى السج…

حاول في هذه الحلول [الرصيد] = DSum("[الرصيد]", "جدول القيود", "[تاريخ القيد]<[تاريخ القيد]") أو [الرصيد] = DSum("[الرصيد]", "جدول القيود", "[رقم المرجع]<[رقم المرجع]") مع ملاحظة أنا العلامة في الشرط هي أصغر من ولكنها تظهر هكذا بسبب استخدام العربي . تحياتي

انسخ هذه العبارة وضعها في الـ Control Source لحقل الناتج المدة بالاسبوع =CInt(([تاريخ النهايه]-[تاريخ البدايه]+1)/7) مع ملاحة لا بد أن يكون هناك نتائج في حقول التواريخ تحياتي

أكتب أسماء الحقول الموجودة لديك أسماء حقول التواريخ إسم حقل الناتج وسوف أقوم بإعادة صياغة المعادلة .

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

السلام عليكم لم توضح إذا ما أردت الناتج بالكسر أم يجبر إلى أقرب رقم صحيح . هذا يعطي رقما صحيحا : Weeks = CInt((ToDate-FmDate+1)/7) تحياتي

السلام عليكم ضع هذه الدالة في مديول (وحدة نمطية) Function GetAvg(a1, a2, a3, a4, a5) As Double Dim Items As Byte If a1 <> 0 Then Items = 1 If a2 <> 0 Then Items = Items + 1 If a3 <> 0 Then Items = Items + 1 If a4 <> 0 Then Items = Items + 1 If a4 <> 0 Then Ite…

السلام عليكم فكرة لتحويل النموذج بين العربي والإنجليزي غير مكتملة http://mypage.ayna.com/abbashmd/Converter.zip وحتى تعمل الفكرة بشكل صحيح لابد من إتباع التالي : 1 – المحاذاة لابد أن تكون Left أو Right وسوف يتم تجاهل ماعداهما . 2 – Control Tip Text لابد أن تعب…

السلام عليكم Private Sub Form_Open(Cancel As Integer) Dim Counter As Byte On Error Resume Next Do While True If InputBox("فضلا ادخل كلمة السر!", "Password") <> "123" Then Beep Counter = Counter + 1 If Counter = 3 Then DoCmd.CancelEvent Exit Do End If Else Exit…

أشر إلى اسم الحقل في النموذج الفرعي فسوف يأخذ قيمة أول سجل فيه وذلك كالآتي : =[subForm].[Form]![FieldName] SubForm إسم النموذح الفرعي FieldName إسم الحقل في النموذج الفرعي والعبارة توضع في مصدر البيانات لصندق النص في النموذج الرئيسي (الأب) تحياتي

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

السلام عليكم الأخ طارق .. لقد اطلعت على القاعدة في آخر المرحلة الخامسة وكنت جاهزا للرد على التعديلات وعلى مواضيع أخرى بالمنتدى وخصوصا مواضيع الأخ حارث الأخيرة الإبداعية ولكن اضطررت للسفر وحاولت من خارج المملكة أن أرد ولكن تفاجأت بإغلاق المنتدى وبعد عودة المنتد…

السلام عليكم آسف لم أنتبه أن ناتج الـ Mod يكون رقما صحيحا بدون كسر والحقيقة لما رأيتك في مأزق ولم يرد عليك أحد وضعت الحل على عجالة ولم أقم بفحص النتائج لاقتناعي بمنطقية الكود . على كل حال أنا طبعي أميل إلى الإختصار في كتابة الكود ولكن هذه الطريقة قد تكون لها ع…

X = 27.4999999 Result = (X - X Mod 5) + (CLng(((X Mod 5) * 2 / 10) + (1 / 10 ^ 15)) * 5)

السلام عليكم ملف Quick Basic للمقاييس http://mypage.ayna.com/abbashmd/Measures.zip تحياتي

السلام عليكم مثال لكيفية مقاطعة عملية جارية : http://mypage.ayna.com/abbashmd/DoEvents.mdb تحياتي