أبو آدم

نبارك لأنفسنا فرحا بك حياك الله وبارك لك ولنا بما علمك ......

بكل الفخر و الشموخ ، أتقدم بأسمى آيات التبريك لجميع المستقرين و العابرين لهذا الصرح الطيب ، بهذه الكوكبة من الفرسان الافذاذ ، والفحول الأماجد من الاخوة الفضلاء و الاساتذة الاخيار ... ركب طيب مبارك باذن الله تفخر انك كنت بينهم يوما تعلمت منهم ومر عليك طيبهم وعبقهم وريحهم الطيب تكتب في ذكريات مرت عليك بحياتك انك كنت مع كوكبة من علماء أخيار ونفوس تعبق بمكارم الاخلاق ، تترك لابنائك و احفادك وذريتك ارثا طيبا مقترنا بأناس خالطتهم بعض سني عمرك ، ريحهم ريح المسك وأثرهم طيب فواح ... أخلصوا لله فطرح بين أهل السماء حبهم وبين عباده الطيبين ، فكنتم رفاقهم لا أزكيهم ولا انافقهم ( عياذا بالله ) ولكنني رأيتهم وشهدت عليهم يبذلون أوقاتهم ونبض قلوبهم في سبيل الله ينشرون ويبسطون ما علمهم الله بين يدي السائل و الطالب يقدمون بروح تفوح بطيب العطاء ، ورطب لسانهم ، يرق قلبهم حين قست القلوب ، ويفوح ريح علمهم الطيب حولهم حين حجبت العلوم يجادلون بالتي هي أحسن ، ويتسابقون بفعل الخيرات ... فما نقول عنهم أقل من هذا ... أنا أقتركم جهدا وأبسطكم طرحا واقلكم علما ، فاقبلوا مني كلمات نابعة من لحظة صادقة وشعور غامر فاعذروا تقصيري وقلة حيلتي وانا منكم ولكم ما قدر لي ذلك بارك الله لكم وبكم ، ونسأل الله ان يسدد على طريق الحق و العلم النافع خطاكم أخوكم في الله / طالب علم بينكم أبو آدم - نارت لبزو عمان - الاردن العاشر من شباط لعام 2014 للميلاد

مع تحياتي لأخي و استاذي أبا خليل أنصح الأخ عادل بالتجوال بين الامثلة الكثيرة المتوفرة في المنتدى ، ففيها فوائد جمة وشكرا

اضبط فورمات الرقم ضمن حقل النص ... أو أرفق مثالا لتحديد الخلل ...........

شكرًا لكم ساعين للعلم راجين الأجر و الثواب

IS NOT يمكنك نفي شرط IS باتباع ذلك مع المشغل NOT SELECT LastName, FirstName, HourlySalary FROM Employees WHERE Department IS NOT NULL ..............

IS يتم استخدامها في عبارة WHERE لتحديد حالة تستخدم للبحث عن سجل. SELECT LastName, FirstName, HourlySalary FROM Employees WHERE Department IS NULL ....

وللتوضيح و التحليل نقول ... SELECT Videos.Title, Videos.Director, Videos.CopyrightYear, Videos.Rating FROM Videos WHERE (Videos.CopyrightYear)="1994") AND ((Videos.Rating)="PG-13"); .........

AND يتم استخدام الكلمة AND لايجاد اقتران منطقي. والصيغة التي يتم اتباعها هي: حدد الأعمدة كذا وكذا وكذا من كائن ما (جدول او استعلام) حيث شرط 1 و شرط 2 SELECT WhatColumn(s) FROM WhatObject WHERE Condition1 AND Condition2 و كمثال تطبيقي نقول SELECT Title, Director, CopyrightYear, Rating FROM Videos WHERE CopyrightYear = "1994" AND Rating = "PG-13";

يمكننا ان نحذف سجلا محددا بشرط قيمة السجل ( عدد او قيمة او تاريخ او .. ) في عامود معين .... Private Sub cmdDeleteRecord_Click() On Error GoTo cmdDeleteRecord_Error Dim curDatabase As DAO.Database Dim rstEmployees As DAO.Recordset Dim fldEmployee As DAO.Field Set curDatabase = CurrentDb Set rstEmployees = curDatabase.OpenRecordset("Employees") With rstEmployees Do Until .EOF For Each fldEmployee In .Fields If fldEmployee.Name = "LastName" Then If fldEmployee.Value = "Angoula" Then ' The record to be deleted has been found .Delete Exit For End If End If Next .MoveNext Loop End With Exit Sub cmdDeleteRecord_Error: MsgBox "There was a problem when deleting the record." End Sub

كما ننشيئ الجداول عبر الكودات يمكن ان نلغيها ... خاصة ان كانت مؤقتة و انتهت الحاجة اليها Private Sub cmdDeleteTable_Click() Dim curDatabase As DAO.Database Set curDatabase = CurrentDb curDatabase.TableDefs.Delete "Books" End Sub

قائمة بمفاتيح لوحة المفاتيح واختصاراتها ، وهي مفيدة جدا خلال استخدالم القاعدة F1 اظهار ملفات المساعدة F11 عرض اطار قاعدة البيانات F12 فتح مربع الحوار حفظ باسم CTRL+N فتح قاعدة بيانات جديدة. CTRL+O فتح قاعدة بيانات موجودة. CTRL+P طباعة الكائن الحالي أو المحدد. CTRL+S حفظ كائن قاعدة البيانات الحالية. CTRL+W إغلاق الإطار النشط. ALT+SPACEBAR عرض قائمة التحكم. ALT+F11 تبديل بين محرر Visual Basic و نافذة قاعدة بيانات Access SHIFT+F10 عرض القائمة المختصرة (مثل:القائمة المنبثقة).

نحدد قيمة حقل بالاعتماد على قيمة حقل آخر تلقائيا .... Private Sub Textbox1_AfterUpdate() If Textbox1.Value = "1" Then Textbox2.Value = "10" End If End Sub

في النموذج حقل لا نريد للمستخدم ان يتجاوزه فارغا يتم التنبيه بصريا ... باستخدام اللون في حدث عند الحالي او عند الخروج .... If IsNull(ContactTitle) = True Then ContactTitle.BackColor = vbRed Else ContactTitle.BackColor = vbWhite End If

عمي عبد الرزاق أبا حسين في ذمة الله انا لله و انا اليه راجعون

تم تعديل العنوان لتوضيح الدلالة

هل جربت خاصية البحث هناك روائع من الأفكار في هذا الباب في منتدانا

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

جرب الاطلاع على الرابط http://www.officena.net/ib/index.php?showtopic=39192

نأمل الالتزام بقواعد المشاركة في الموقع منعا لإغلاق الموضوع

أسأل الله لنا ولكم خير الجزاء و الحمدلله الذي بفضله تقضى الحاجات

أخي الشاعر حياك الله المرفق معدل ، الصوت غير عامل على جهازي هذا جرب المرفق ووافني بالنتيجة .......... NA_Playsound.rar

أخي علي ما هو اصدار الاوفيس الذي تعمل عليه ؟ ثم ارفق لي مثالا فيه طلب محدد واحد لاجيبك عليه ، ثم ننتقل لأي طلب آخر بالتدريج ( لطفا لعموم الفائدة) ... الحل متاح باذن الله ...

تفضل ... مرفق طيا التطبيق المعدل ........ NA_projectsProfit.rar

أخي علاء في نموذجك shareholders قم بتسمية الحقل غير المنضم لارباح المشاريع بالاسم strProfTot في خصائص النموذج وفي حدث عند التحميل ، قم بكتابة الكود Private Sub Form_Load() Dim ProfTotal As Currency ProfTotal = DSum("profit", "projects") Me.strProfTot = ProfTotal End Sub حيث عرفنا المتغير ProfTotal كعملة ثم حددنا قيمته = مجموع قيم الحقل profit من الجدول projects ( بدون شرط / كما طلبت) ثم جعلنا قيمة الحقل strProfTot في النموذج تساوي ProfTotal * تمت التجربة على المثال --- بنجاح جرب ووافني بالنتيجة والله من وراء القصد وهو حسبي ......