أبو آدم

Greater than حيث يكون تاريخ ميلاد الموظف في جدول الموظفين أكبر من 19/2/1952 WHERE Employees.BirthDate > #2/19/1952# Less than حيث يكون تاريخ ميلاد الموظف في جدول الموظفين أقل من 19/2/1952 WHERE Employees.BirthDate <#2/19/1952#

Equal حيث يكون رقم الموظف في جدول الموظفين يساوي 19 WHERE Employees.EmployeeID=19 Not Equal حيث يكون رقم الموظف في جدول الموظفين لا يساوي 19 WHERE Employees.EmployeeID<> 19

العمليات المسموح بها في جملة WHERE ومن وحي ما تحدثنا به في السابق فإنه ولغايات تطبيق هذه العمليات لا بد من أن نراعي الشروط المتفق عليهافمثلاً : WHERE Employees.City='Seattle' عبارة صحيحة التنسيق WHERE Employees.City= Seattle عبارة خطأ في التنسيق ، حيث أن الشرط نصي ويلزمه علامات الإقتباس المفردة أو المزدوجة ، ولا يجوز وضعه في العبارة بدونهما ، وبالتالي نحصل عبى رسالة خطأ مفادها (خطأ في نوع البيانات) وكذلك الأمر بالنسبة للتاريخ والرقم فلا بد من مراعاة ضرورة إحسان تحديد نوع البيانات ، في العبارة سعياً للتطبيق السليم دون أخطاء. وننتقل الآن لتطبيق العمليات المسموح بها في جملة Where

جزيت خيراً أبا أحمد نفع الله بك ، وجعل ما تبذل ثقيلاً في ميزان حسناتك .........

جزيت نعيم الجنة ليس للحديث بقية ... ولبقية الحديث بقية (تمت الاجابة)

إنسخ الكود التالي للنموذج Private Sub FileNo_BeforeUpdate(Cancel As Integer) On Error Resume Next Dim txtList As String txtList = DCount("[ID Number]", "List1", "[ID Number] = " & Me.FileNo) If txtList < 1 Then MsgBox " الرقم غير موجود ضمن القائمة ، التزم بالارقام الموجودة ضمن القائمة", vbCritical + vbMsgBoxRight, "تنبيه ..." Me.Undo DoCmd.CancelEvent End If End Sub

اللهم آمين شكراً لدعائك الطيب (تمت الاجابة)

استخدم الصيغة التالية في السطر الأول من الكود : If IsNull(Cod) Then ............

في كثير من الأحيان نحتاج عدد السجلات في جدول معين ننشيئ وحدة نمطية جديدة وننسخ لها الكود التالي : Public Function GetRecordCount(MyTable As String) Dim rst As DAO.Recordset Dim lngCount As Long Set rst = CurrentDb.OpenRecordset(MyTable) With rst .MoveFirst .MoveLast lngCount = .RecordCount End With MsgBox "Number of Records " & lngCount, vbInformation, " Note That ...." End Function وكلما إحتجنا الكود ونتائجة نقوم بإستدعائه ، بتحديد اسم الجدول ... GetRecordCount ("tblFiles") ........

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

أخي العزيز أيمن وبعد إذن محمد أيمن إستخدم الكود التالي في حدث بعد التحديت : Private Sub Required_File_No_AfterUpdate() Me.Requester = VBA.Environ("USERDOMAIN") End Sub .................

إجعله غير مرئي كان له لزوم قبل التعديلات ، إعتبره زر أمر إحتياطي .........

لمعرفة أقل قيمة لأجور الشحن في العامود Freight من الجدول Orders ، نستخدم العبارة التالية : SELECT MIN(Freight) AS MINFreight FROM Orders ............

لمعرفة أعلى قيمة لأجور الشحن في العامود Freight من الجدول Orders ، نستخدم العبارة التالية : SELECT MAX(Freight) AS MaxFreight FROM Orders .............

الحمدلله الذي بفضله تقضى الحاجات ونفع الله بنا وبكم (تمت الاجابة)

بدأنا البحث بالتفاصيل .... هنا .... http://www.officena.net/ib/index.php?showtopic=41731 ......................

لمعرفة قيمة إجمالي أجور الشحن في العامود Freight من الجدول Orders ، نستخدم العبارة التالية : SELECT SUM(Freight) FROM Orders

لإضافة سجل جديد في الجدول Customer بالاسم الأول First_Name وإسم العائلة Last_Name ، نستخدم العبارة التالية : INSERT INTO Customer (Last_Name, First_Name) values ('Lebzo','Nart');

للتعرف على عملائنا في مدينتي عمان والعقبة ، نستخدم العبارة التالية : SELECT * FROM Customers WHERE City IN ('Amman', 'Aqaba');

لنتعرف على الفرع الذي فاقت مبيعاته مبلغ 1000 دينار SELECT store_name FROM Store_Information WHERE Sales > 1000 ...........

لا تنسى الفاصلة المنقوطة في نهاية جملة SQL يجب أن تنتهي عبارة SQL بفاصلة منقوطة ; و إذا حذفت الفاصلة المنقوطة عند كتابك لعبارة SQL في طريقة عرض SQL في إطار التصميم للاستعلام الخاص بك ، سيقوم المعالج بإصلاح الخطأ . WHERE Employees.EmployeeID=1; .......................

محددات أنواع البيانات عند تزويد القيم لعبارة SQL، كما في معايير الاستعلام، لا بد من تحديد نوع البيانات الخاصة بها بشكل صحيح من قبل "المحددات". و يتم ذلك عن طريق إحاطة القيمة بزوجين من الرموز المناسبة. النص يجب وضع النص بين علامات الاقتباس المفردة (') أو علامات الاقتباس المزدوجة (") ، على سبيل المثال: WHERE Employees.City='Seattle' WHERE Employees.City=”Seattle” WHERE Employees.BirthDate = #2/19/1952# WHERE Employees.EmployeeID=1 .............. التاريخ يجب أن يرافق التاريخ علامات المربع (#) hash marks وتسمى أيضا pound أو number signs ، على سبيل المثال: الرقم وهناك الأرقام ، من أي نوع ، لا تحتاج الى المحددات، ويمكن إدخالها كما هي، على سبيل المثال:

لا تبخل بالمعلومات عند تحديد كل حقل يكون لك الخيار بإلحاقه بإسم الجدول وبينهما نقطة SELECT Firstname, Lastname Employees.LastName, Employees.FirstName FROM Employees وحين يكون إستعلامك متضمناً لأكثر من جدول ستكون ( ملزماً لا مختاراً ) بإلحاق إسم الحقل بإسم جدوله. هي نفسها مضافاً لكل حقل تبيعيته لمصدر البيانات المحدد في جملة

بعض الشروط الفنية لبناء الجمل ودعونا هنا نتحدث عن بنية الجملة وبعض الشروط الفنية فيها. بنية الجملة SELECT Employees .LastName, Employees .FirstName FROM Employees WHERE (((Employees .City)=”Seattle”)); جملة تزودنا بالمعايير أما فيما يتعلق بالأقواس ، فيمكننا تركها وكتابة العبارة كما يلي : SELECT Employees.City, * FROM Employees WHERE Employees.City="Seattle"; كلمة رئيسية ترشد الاستعلام لاسترداد البيانات Employees .City, * أو قائمة الحقول التي تحدد أي الحقول سيتم إظهارها تحديد مصدر البيانات