أبو هادي

السلام عليكم هناك مستويان للمعايير : 1 - على مستوى السجل الواحد . 2 - على مستوى المجموع . وفي حالة استخدام استعلام مجماميع يجب أن نعرف أين نضع المعيار فمثلا إذا أردنا أن نستخدم المستوى الأول فيجب أن يكون نوع المجموع Where . أما المستوى الثاني فسيختلف الوضع تماما ، فعند استخدام المجموع Count لحقل تاريخ مثلا فنحن سنتلقى قيمة رقمية عبارة عن عدد السجلات وهنا يمكنني فقط أن استخدم معيار رقمي بأن نضع رقم 5 أي أن الإستعلام سيقوم بعرض مجموع حقل التاريخ التي تحتوي على 5 فقط . هنا نتساءل أين نضع معيار حصر التواريخ Between ؟ الجواب هو أن نضيف حقل جديد "آخر/ثاني" لحقل التاريخ يكون نوع المعيار فيه Where ثم نضع معيار Between . يعني وضع Between كمعيار لنوع Count خاطئ ولن يعطي الإستعلام أي نتيجة . ملاحظة على معيار "الفصل الأول " لحقل Class فأنا أستطيع أن أخمن أن هناك خطآن في وقت واحد أولهما وجود كلمة الفصل والأخرى وجود مسافة بعد كلمة الأول ، والله أعلم . تحياتي .

السلام عليكم أخي المالكي333 ، ما أعرفه أنه يجب إدخال تاريخ ميلادي وليس هجري لتحصل على نتيجة التنسيق المذكور . أما إذا قمت بإدخال التاريخ الهجري كما فعلت فسيتعامل معه الأكسل كنص وليس كتاريخ . والله أعلم . تحياتي .

السلام عليكم الـ b2 تنسيقا وليس دالة ، لذا فهي تقبل عمليات الطرح والجمع بين التواريخ . نعم بكل تأكيد لو استخدمنا دوال الحصول على الشهر أو السنة فلن نحصل على النتائج للتواريخ الهجرية لأنه ببساطة لانزال نتعامل مع التواريخ الميلادية وإنما نشاهده إنما هو شكل فقط "تنسيق" . الحقيقة أنا متأكد أن هذه الخاصية كانت موجودة على أوفيس 97 أما ما بعد 97 حتى أوفيس 2002 فأنا غير متأكد ، وبكل تأكيد هي موجودة في 2003 . تحياتي .

السلام عليكم لا نزال بانتظار النتيجة :( تحياتي .

السلام عليكم شكرا لأخي الكريم egyptian_eg وأود بعد أذنه أن أنوه إلى ملحوظة مهمة جدا وهي : إن دالة Int قد تعطي نتائج لا يرغبها من لا يلم بنتائجها للقيم السالبة والأفضل أن تستخدم دالة Fix بدلا منها . نعم دالة Int في بعض اللغات الأخرى تعطي نتائج الـ Fix ولكنها هنا تحتاج إلى التدقيق بمخرجاتها ومقارنتها مع دالة Fix للتعرف على الفرق بينهما في القيم السالبة . تحياتي .

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

السلام عليكم لا أعرف ما هو غير المفهوم في مثال النتيجة إلا إذا كان المطلوب مختلف . عموما تستدعى النتييجة بالكتابة في حدث On Dbl Click العبارة التالية : =Open_Cal([ActiveControl];0) حيث الصفر هو قيمة التقويم الميلادي ويمكن تبديله للتالي : 1 للتقويم الهجري . 2 لتقويم أم القرى . مع ضرورة استيراد الموديول الخاص باستدعاء النتيجة كما أن هناك نموذجين أحدهما لعطلة نهاية الأسبوع وآخر للعطل الرسمية . تحياتي ملاحظة : هذه المشاركة كتبت بعد نقل الموقع إلى خادم جديد وتأكدت من وجودها ولكني لاحقا لم أجدها فيبدو أن هناك خللا ما .

السلام عليكم يتم ذلك باستخدام دالة Round كالتالي : Round(65.255 ,2) وصلة لموضوع ذو صلة : http://www.officena.net/ib/index.php?showtopic=2184 تحياتي .

السلام عليكم كريم أخي محمد .. شكرا لك . تحياتي .

السلام عليكم نعم عزيزي egyptian_eg أعتقد كما تعتقد .. وللأسف لا سبيل للوصول إلى أمثلتنا حيث البحث معطل :) . كذلك أنا من طبعي لا أحتفظ بالأمثلة . شكرا للتوضيح ولك خالص تحياتي .

السلام عليكم قد ينفع هذا الكود : If Me.myText > "z" Then Me.myText.TextAlign = 3 Else Me.myText.TextAlign = 1 End If بحثت كثيرا عن مثال لي لطباعة العناوين ولم أجده حيث كان يحتوي على جواب لسؤالك . تحياتي .

السلام عليكم Total = Round(1905) + Round(137.12) - Round(63.5) أو Total = Round(1905, 0) + Round(137.12, 0) - Round(63.5, 0) أو Total = Val(Format(1905, "0")) + Val(Format(137.12, "0")) - Val(Format(63.5, "0")) تحياتي .

السلام عليكم هذه المعادلة حسب طلبك : IIf([Degree] Between [minend] And ([minend]-1);[minend];[Degree]) وهذه المعادلة أصح حسب تصوري : IIf([Degree] < [minend] And [Degree] > ([minend] - 1), [minend], [Degree]) بافتراض أن العلامة الصغرى 15 فالمخرجات سوف تكون كالتالي : الدرجة | نتيجة المعادلة الأولى | نتيجة المعادلة الثانية 14.00 | 15.00 | 14.00 14.01 | 15.00 | 15.00 تحياتي .

السلام عليكم تعديل آخر على الكود : Private Sub Form_BeforeUpdate(Cancel As Integer) Dim Ctrl As Control For Each Ctrl In Me.Controls With Ctrl If .ControlType = acTextBox Or _ .ControlType = acComboBox Or _ .ControlType = acListBox Or _ .ControlType = acOptionGroup Then If .Visible And _ .Enabled And _ .Locked = False And _ (Not .ControlSource Like "=*" And .ControlSource <> "") Then If IsNull(Ctrl) Then 'If .Tag = "Check Null" Then MsgBox "لقد تركت أحد الحقول فارغا" Cancel = True .SetFocus Exit For 'End If End If End If End If End With Next Ctrl End Sub تحياتي .

السلام عليكم هذا كود اقتبسته من أخي محمد طاهر وقمت بالإضافة عليه لضمان عمله بشكل صحيح في أكثر الظروف ومع الإحتمالات المتعددة : Private Sub Form_BeforeUpdate(Cancel As Integer) Dim Ctrl As Control For Each Ctrl In Me.Controls With Ctrl If .ControlType = acTextBox Or _ .ControlType = acComboBox Or _ .ControlType = acListBox Or _ .ControlType = acOptionGroup Then If .Visible And _ .Enabled And _ .Locked = False And _ .ControlSource <> "" Then If IsNull(Ctrl) Then 'If .Tag = "Check Null" Then MsgBox "لقد تركت أحد الحقول فارغا" Cancel = -1 .SetFocus 'End If End If End If End If End With Next Ctrl End Sub تحياتي .

السلام عليكم في خاصية Control Source للصندوق النص نسبة الربح أكتب المعادلة التالية : = ([البيع]-[الشراء])/[الشراء] وفي خاصية Format اختر تنسيق Percent تحياتي .

السلام عليكم وصلة لموضوع ذو صلة : http://www.officena.net/ib/index.php?showt...c=1461&hl=مسافة تحياتي .

السلام عليكم هذه محاولة ليست بنموذجية ولكن تؤدي الغرض . من عيوبها أنها لا بد أن تمر على كل الملفات مما قد يجعلها بطيئة . لو توفر الوقت لدي سأقوم بدراسة الموضوع على أصوله . تحياتي . FindFolders.zip

السلام عليكم أخي أشرف .. قبل هذه السطور يوجد سطران معطلان . لماذا ؟ عموما لقد حذفت 3 حقول من الجداول وهي : 1 - وصف الصنف . 2 - وصف الوحدة . 3 - اسم العميل . فتخيل كم من المساحة ستوفر . ولم تقم بالتأثير على ظهور هذه البيانات في الفاتورة . كذلك هناك تعديل طفيف في العلاقات . تحياتي .

السلام عليكم ولا يهمك أخي egyptian_eg ، لقد أحسنت صنعا ، وياريت كلنا أن نبادر بالرد وعدم الإنتظار أو التردد . وحتى لو قام من يحملون لقب خبراء بالرد ونحن نملك ردا مختلفا أو به أي إضافة حتى ولو كانت بسيطة فيما نعتقد ، يستحن أن نشارك دون تردد . تحياتي .

السلام عليكم للبحث عن جزء في حقل نصي "SELECT * FROM TableName WHERE TableName.FieldName Like " & "'*" & Me.TextBoxName & "*'" للبحث عن نص كامل في حقل نصي "SELECT * FROM TableName WHERE TableName.FieldName = " & "'" & Me.TextBoxName & "'" للبحث عن جزء في حقل رقمي "SELECT * FROM TableName WHERE TableName.FieldName Like " & "'*" & Me.TextBoxNum & "*'" للبحث عن رقم كامل في حقل رقمي "SELECT * FROM TableName WHERE TableName.FieldName = " & Me.TextBoxNum أما هذه ("""") فهي تساوي (') ولكن وقتها لم تكن هذه المعلومة موجودة لدي فها نحن نتعلم كل يوم شيئا جديدا وهي هنا لحصر القيم النصية أو جزء من القيم الرقمية حيث تتحول إلى نصية بإضافة النجوم إليها . أما النجمة (*) فيجب استخدام (Like) معها أما لو استخدم (=) فسيعتبر النجمة جزءا أصليا من النص . آمل أني أوضحت المطلوب . تحياتي .

السلام عليكم بعد إذن أخي محمد ، لقد قمت بالتعديل ، والتعديلات كثيرة وخصوصا في الجداول . كما أنصح في حالة أنك لا تريد تكرار الصنف في الفاتورة الواحدة بأن تعمل مفتاح مكون من رقم الفاتورة ورقم الصنف في جدول tblsales1 . هناك كود في أداة النموذج الفرعي لرفض الدخول إلى التفاصيل قبل ملء بيانات الفاتورة الرئيسة يمكن الزيادة عليه لفحص بقية الحقول المطلوب تعبئتها . الحقيقة أن هذا حل غير مقنع بالنسبة لي ولكني لم أستطع أن أصل لحل غيره الآن ، وبكل صراحة سوف أقف عند هذا الحل حاليا . تحياتي . F9.zip

السلام عليكم وظيفة دالة Nz أنها ترجع قيمة صفر أو لاشيء ("") للنص الذي يكون طوله صفر وذلك للقيم Null (إن صح تعبير قيم) . ونستخدمها حتى نتفادى عدم ظهور النتائج في المعادلات التي تحتوي أحد عناصرها قيمة Null . مثال : لو افترضنا قيمة A = 5 وقيمة B = Null فإن نتيجة جمعهما ستكون Null بدلا من 5 وحتى نحصل على الناتج 5 نستخدم دالة Nz كالتالي : Nz(A) + Nz(B) قد يسأل سائل عن جدوى استخدام الدالة مع A كذلك مع أن قيمتها ليست Null فجوابها وكيف بنا أن نعلم كل القيم لكل السجلات فاحترازا نستخدم الدالة مع كل العناصر حتى نضمن عدم وجود Null من ضمن قيم العناصر ومن ثم نحصل على نتائج صحيحة . طبعا كل ما ينطبق على الحقول الرقمية فهي تنطبق على أنواع الحقول الأخرى . وزيادة في التوضيح : أن التعبير Nz(B) هو نفسه IIf(IsNull(B), 0, B) آمل أني استطعت أن أوصل المعلومة بشكل مفهوم . تحياتي .

السلام عليكم هناك استعلام مجاميع Totals وتختارها من قائمة View ولكن بشرط أن تزيل كل الحقول التي قد تمنع عملية التجميع . مثال : لو أن هناك حقلين الإسم والشهر حيث الإسم يتكرر بعدد الأشهر في الجدول فلا بد من إزالة حقل الشهر حتى تستطيع الحصول على حقل الإسم بدون تكرار . جرب واخبرنا بالنتيجة . تحياتي .

السلام عليكم ضع هذا الكود في حدث بعد التحديث للكمبوبوكس الإثنين a و b . Text1 = Nz(a) & "-" & Nz(b) تحياتي .