أبو آدم

دعوة طيبة لطيب http://www.officena.net/ib/index.php?showannouncement=21&f=89 ...........

يرجى الإلتزام

لتجنب خلو الحقول من القيم استخدم (في الاستعلام) Like "*" & [Forms]![FormTabItems]![SerchItemID] & "*" Or [Forms]![FormTabItems]![SerchItemID] Is Null

لاستعادة مصدر السجلات استخدم Private Sub Command10_Click() Me.SerchItemOriginal = Restor Me.SerchItemName = Restor Me.SerchItemID = Restor Me.RecordSource = "QueryTabItems" End Sub

طلب جدير بالنظر ... قيد النظر ..... ..........

اللهم آمين أهلاً وسهلاً بك بين إخوتك يا فيصل والحمدلله الذي بفضله تقضى الحاجات ........

لإحتساب ما يدور ببالك نستخدم DateAdd، ولسان الحال يقول : الحقل (...)= أضف للتاريخ ، بالسنوات ،محتوى حقل عدد سنوات الخدمة (العامود الأول)، لمحتوى عامود تاريخ الترقية وذلك في حدث عند الحالي للنموذج : Private Sub Form_Current() Me.Tup = DateAdd("yyyy", Me.Yrot.Column(1), Me.data_tarqeah) Me.Tout = DateAdd("yyyy", Me.Yrot1.Column(1), Me.BirthDate) End Sub

قيد النظر ... نصيحة : إبتعد عن تسمية أسماء مربعات النص و مربعات التحرير و السرد بالأحرف العربية ........

دعوة طيبة لطيب http://www.officena.net/ib/index.php?showannouncement=21&f=89 ........

مربع النص Text لا يمكن الإحتفاظ بالصفر على اليسار فيه ! ونرغب بحصر الإدخال بالأرقام فقط ! كطلب الأخ SYRIA وتطبيق العبد الفقير لرحمة ربه نارت لبزو / أبو آدم http://www.officena.net/ib/index.php?showtopic=45581 ........

الحمدلله الذي بفضله تقضى الحاجات تمت الاجابة

اللهم آمين ... آمين شكراً لك لدعائك الطيب ، فكلنا بحاجة لدعوة طيبة مستجابة بإذنه تعالى ........

http://www.officena.net/ib/index.php?showtopic=36718 للمهندس محمد طاهر و الأستاذ منتصر الآنسي .........

ليتم متابعة المشاركة حسب الأصول http://www.officena.net/Tips/Questions.htm

هناك مشكلة بالمرفق أعد تحميله مرة أخرى .........

mfouad 55555 ............

ثانياً : حبذا لو إستخدمنا خاصية البحث لوجدنا الكثير من مجهودات الإخوة الفضلاء ، بتفاصيلها الكثيرة http://www.officena.net/Tips/Questions.htm شاكرين ومقدرين لأخينا أبا عمر مساهمته الطيبة ............

أولاً : دعوة طيبة لطيب http://www.officena.net/ib/index.php?showannouncement=21&f=89 ........

نحتاج احيانا لاستخدام المتغيرات بدل الثوابت في جمل SQL وهذا الوضع ينشأ لدينا حين يلزمنا اعادة استخدام الجملة من قبل المستخدمين عبر النماذج ، فنقوم باستبدال القيمة الثابتة في متن الجملة لمتغيرات . جملتنا تتركب كما يلي حسب القيم الثابتة فيها : MySQL = "SELECT pkEmployeeID, Salary, Hire FROM Employees " & _ "WHERE (Salary > 12000 AND Salary < 10000) " & _ "AND (Hire > #12/31/2000# AND Hire < #12/31/2005#) " & _ "AND (Sex = 'F');" الخطوة الأولى للإنتقال من صيغة القيم الثايتة ، هي تعريف المتغيرات اللازمة للقيم وهي مجال التاريخ و الراتب و الجنس وتأخذ هذه المتغيرات قيمها من نموذج ، وهذه المتغيرات هنا هي : وتكون كما يلي : txtLowSalary = 20000 txtHighSalary = 100000 txtLowDate = #12/31/2000# txtHighDate = #12/31/2005# txtSex = "F" أو تكون مسندة لقيم مربعات النص ، وكما يلي: txtLowSalary = Me.txtLowSalary txtHighSalary = Me.txtHighSalary txtLowDate = Me.txtLowDate txtHighDate = Me.txtHighDate txtSex = Me.txtSex وهنا يلزمنا اعادة صياغة جملتنا لتستوعب قيم المتغيرات بدل الثوابت في الصيغة السابقة ، لتصبح كما يلي : MySQL = "SELECT pkEmployeeID, Salary, Hire FROM Employees WHERE " & _ "(Salary > " & txtLowSalary & " AND Salary < " & txtHighSalary & ") AND " & _ "(Hire > #" & txtLowDate & "# " & "AND Hire < #" & txtHighDate & "#) AND " & _ "(Sex = " & "'" & txtSex & "'" & ");" وهنا لا بد من مراعاة مسألة استخدام القواعد العامة لإنشاء متغيرات العدد، ومتغيرات التاريخ ومتغيرات السلسلة فلكل منها متطلبات بناء جملة مختلفة. أنظر : http://www.officena.net/ib/index.php?showtopic=38385&page=2 المشاركة 26

أخي العزيز هناك مجموعة من الخيارات لموضوع منع إدخال الأحرف في مربع النص و قصر الإدخال على الأرقام منها : في خصائص الحقل في النموذج >> قناع الإدخال InputMask : أكتب ############ بعدد الأرقام الذي تريدها في الحقل ........... ومنها : في حدث عند التغيير للحقل (Text1) إنسخ الكود Private Sub Text1_Change() Ut_IntegerValidation Text1 End Sub وفي محرر الفيجوال للنموذج إنسخ الروتين Public Function Ut_IntegerValidation(ByVal MyTextBox As Control) If Not IsNumeric(MyTextBox.Text) Then MyTextBox.Text = "" ElseIf IsNumeric(MyTextBox.Text) Then If Val(MyTextBox.Text) < 0 Then MyTextBox.Text = "" End If End If End Function ولها أيضا حلول أخرى ....... والتطبيق في المرفق (2003 و 2007) ........... NA_IsNumeric.rar

إخوتي الفضلاء أظن أن ما أحاول تقديمه بالشرح و التفصيل يفي ببعض ما تتطلعون اليه وهنا أقول ... لا أجزم عهداً ... ولا ألتزم قطعاً ولكنني وبإذن الله سأدرس إمكانية طرح تطبيقات ودروس مسجلة والله المُوَفِقُ و المستعان والله من وراء القصد وهو حسبي ...........

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

حياكم الله ... إخوة أحبة تمت الفائدة ..........

لدينا جدول tblDecletations فيه حقل قيمة مصرح عنها تمثل قيمة التداولات المالية (مبيعات أو مشتريات أو مصاريف) strValue وحقل رمز الفرع العامل strCenter نريد الحصول على مجموع التداولات المالية لكل فرع بالاضافة لمجموع تداولات كامل الفروع نستخدم العبارة التالية : SELECT DISTINCTROW strCenter, Sum(strValue) AS [SumP] FROM tblDecletations GROUP BY strCenter UNION SELECT 'Total=', Sum(strValue) AS [SumT] FROM tblDecletations; وتكون النتيجة كما في المرفق تمام التمام ....

تقصدين الإكسيل أم الأكسيس !! ........