نجوم المشاركات

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(YEAR($B4)<YEAR(Table1[[#Headers],[Jan-22]]),1,IF(AND(YEAR($B4)=2022,MONTH(Table1[[#Headers],[Jan-22]])>=MONTH($B4)),1,"")) 1مقارنة التاريخ.xlsx

تفضل شاهد هذا الموضوع

حسب فهمي للمطلوب * لعرض أسماء الشيتات في القائمة يمكنك حذف هذا الكود من حدث إلغاء تفعيل Worksheet_Deactivate لشيت database Dim w As Worksheet UserForm1.Co1.Clear For Each w In ThisWorkbook.Worksheets UserForm1.Co1.AddItem w.Name Next w ووضعه في حدث تفعيل النموذج UserForm_Activate * ولفتح الشيت الذي يتم اختياره من القائمة نستعمل هذا الكود في حدث تغيير القائمة بالضغط دبل كلك عليها في النموذج ولصق السطر الأوسط من هذا الكود فقط Private Sub Co1_Change() Sheets(Co1.Value).Select End Sub بالتوفيق

انتهيت ولله الحمد 😄 للتحميل من المرفقات ( دعوة للتجربة وإبداء الرأي ) 😊: الروزنامة الأسبوعية.accdb

شكرا لله ثم لصاحب اليد العليا والفضائل الكثيرة في هذا المنتدى الرائع أقل ما يمكن أن أقدمه لك كلمة شكر رقيقة تحمل خالص المشاعر الطيبة والصادقة تقديرًا لك على كل ما قدمته لي

يمكنك استعمال هذا الكود على افتراض أن مربع النص اسمه textbox1 Private Sub TextBox1_Enter() TextBox1.Value = "" End Sub بالتوفيق

تفضل كان عليك بدء المشاركة بالتحية ... السلام عليكم , يمكنك استخدام هذه المعادلة ,كما تم عمل التنسيق الشرطى اللازم كما تريد اذا كان هناك اختلاف - كما تـــم ضبط الملف والغاء وحذف الخلايا المدمجة بالجدول (على الرغم ان هذا أتعبنى كثيراً الى ان تم على خير) فهذا يصعب من أعمال اى شيء على الإكسيل ..ورجاءاً لا تقوم بعمل اى خلايا مدمجة بعد ذلك فى ملفاتك , وذلك حتى لا تجعل الجميع يبتعد عن مساعدتك فى طلبك لأنه سيأخذ ويستغرق وقت طويل منهم =IF(OR(SUM(K16:N16)<>$O16,SUM(F16:J16)<>$O16,SUM(B16:E16)<>$O16),"هناك اختلاف","") 1OutPatientStatistic.xlsx

جرب هذا ...... DoCmd.SelectObject acReport, "اسم التقرير", True DoCmd.PrintOut , , , , 2

وعليكم السلام ورحمة الله وبركاته contrac.accdb

وذلك بسببك لأنك لاغى ذلك بالكود وذلك بالأسطر الموجودة باللون الأخضر فعليك بحذف الفاصلة العليا على يسار كلمة Me من جميع الأسطر ليصبح الكود كالتالى : Me.ListBox1.AddItem Me.TextBox4.Value Me.ListBox1.List(al, 1) = Me.TextBox5.Value Me.ListBox1.List(al, 2) = Me.TextBox6.Value Me.ListBox1.List(al, 3) = Me.TextBox7.Value Me.ListBox1.List(al, 4) = Me.TextBox8.Value Me.ListBox1.List(al, 5) = Me.TextBox9.Value Me.ListBox1.List(al, 6) = Me.TextBox10.Value Me.ListBox1.List(al, 7) = Me.TextBox11.Value Me.ListBox1.List(al, 8) = Me.TextBox12.Value Me.ListBox1.List(al, 9) = Me.TextBox13.Value 1dwork.xlsm

تفضل هذا التعديل DateVal.mdb

السلام عليكم -لابد من بدء اى مشاركة بالتحية ... تفضل لك ما طلبت ولكن عند ادخال الوقت يجب عليك مراعاة كتابته كما تم تعديله بالملف .. وشكرا معرفة فرق الوقت لكل سيارة1.xlsx

في أحد برامجي صممت شيء مشابه لذا الموضوع نوعا ما .. ولكنه يحتاج لشغل محترم للتنفيذ 👌🏼 سأحاول أن أمشي معك خطوة خطوة للتنفيذ ..

السلام عليكم ورحمة الله كل عام وانتم بخير ( برنامج الإحصاء والتوثيق ) مصمم على اوفيس 2003 ولكي تستفيد من البرنامج بشكل أفضل استخدم اوفيس 2003 يستفيد منه جميع القرى في المملكة السعودية وإن شاء الله يكون عمل موفق ونافع والله من وراء القصد - يفضل إدخال كبار السن في الاسرة حتى وإن كانوا متوفين - يفضل إضافة الصور للمتوفين فقط - اسم المستخدم ( S ) كلمة المرور ( 1 ) حقوق البرنامج لـ أبو / سعد والشكر الجزيل لمن استفدنا منه في هذا المنتدى أو المنتديات الأخرى البرنامج.rar

الكود شغال عندي يطبع نسختين ( نسخة كاملة ثم نسخة كاملة اخر ) أي مرتبة ........

جرب هذا الكود أخي ودوبل كليك على مربع textbox Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox1.Value = "" End Sub أو هذا Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Not iGblInhibitTextBoxEvents Then TextBox1.Value = "" End If End Sub

تسبم اخي بارك الله فيك.. تحياتي

اتوقعت انهم كلهم واحد راح يكون عندك مجلدين مجلد : ملفات الأفراد مجلد : ملفات المكلفين بنفس الجدول و نفس النموذج اتفضل التعديل sa1.2.zip

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

الحمدلله .. توفيق من الله 🙂 البرنامج الحالي يحدث لك التواريخ تلقائيا ويعطيك التواريخ حسب اليوم بدقة .. جرب الانتقال بين الأسابيع من الأزرار العلوية [الأسبوع السابق]……[الأسبوع التالي] ولاحظ التواريخ بنفسك 🙂👌🏻 ومن مزاياه أنه أول ما يفتح يركز لك على الأسبوع الحالي .. ويلون لك اليوم اللي أحنا فيه بالأصفر مثل الصورة اللي وضعتها سابقا .. 😉 وفي أعلى اليمين ممكن تنتقل لأي يوم تريده من أيام السنة .. وكذلك عندك جدول لأسماء القاعات ممكن من خلاله تزيد قاعات جديدة أو تغير أسمائها.

شرح البحث الذكى والمراجعة فى الاكسل الجزء الرابع

شكراً جزيلاً للجميع عاشت ايدك اخوي مبرمج سابق Ahmed عاشت ايدك اخوي

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

احسنت

ممتاز استاذ مجدى بارك الله فيك وجزاك الله كل خير

اخي العزيز @ابو عبد الله العراقي السلام عليكم الاسم الرباعي وحتى اللقب وارد التكرار وخصوصا في بلدنا العزيز انا مع رأي الاخوة بوضع ID اكمفتاح اساسي غير قابل للتكرار اما لتجنب تكرار الاسم الرباعي فيمكن عمل ذلك من خصائص الجدول تجعله مفهرس (نعم (التكرار غير مقبول) او بوضع كود في النموذج يظهر لك رسالة ان الاسم الرباعي موجود هل تريد التكرار ام لا تحياتي للجميع

حسب فهمي للمطلوب يمكنك استعمال هذه المعادلة في الخلية j17 في sheet1 =TRANSPOSE('2nd'!H19:O19)

ما ذا تقصد بالطرح في التاريخ ؟ (فالتواريخ المراد وضعها فى العمود الجديد تمثل أكبر ناتج طرح للتواريخ) لو اردت حساب مدة بين تاريخين استخدم التالي DateDiff(«interval»; «date1»; «date2») حيث ان interval تعبر عن معيار الحساب مثلا لو اردت حساب عدد الأيام بين تاريخين يكون بالطريقة التالية DateDiff("D"; [date1]; [date2]) و لو اردت حساب عدد الأشهر تكون بالطريقة التالية DateDiff("M"; [date1]; [date2]) و لو اردت حساب عدد السنوات تكون بالطريقة التالية DateDiff("YYYY"; [date1]; [date2]) و لو اردت حساب عدد الأسابيع تكون بالطريقة التالية DateDiff("WW"; [date1]; [date2]) و لو اردت حساب الربع سنوي تكون بالطريقة التالية DateDiff("Q"; [date1]; [date2])

الف الف شكر وتقدير لك ا /tornado 3100

شكر وتقدير واحترام من اخيك

ممتاز استاذ مجدى جزاك الله خير الثواب , اللهم وسع فى رزقك

وعليكم السلام-من فضلك عليك بمعرفة ودراسة المعادلة بتفسك وان لا تغير المدى بها وعليك ان تتأكد انها تبدأ من الصف الرابع وليس العاشر كما قمت انت بتغييرها.وشكراً =SUMIF(مشتريات!$C$4:$C$585,مخزن!A3,مشتريات!$D$4:$D$585)-SUMIF(مبيعات!$C$4:$C$582,مخزن!A3,مبيعات!$D$4:$D$582) اسعار المنتجات فاتورة2.xls

اتفضل السبب فى الخطأ ان حضرتك وضعت فى مصدر بيانات مربع النص fullName التعبير الاتى =[firstName] & " " & [secondName] & " " & [thirdName] & " " & [fourthName] ولذلك تم بالفعل نجميع الاسم الرباعى ولكن اصبح مربع النص fullName غير منضم ترى فيه النتيجة بالفعل ولكن لم تتم ادراج القيمة فى الجدل فى الحقل المطلوب fullName.accdb

وعليكم السلام-تفضل لك ما طلبت ... على الرغم ان ما طلبته ليس بالسهل او الهين فهى أكواد فورم كاملة لم تقم بعمل اى كود منها ,, ويجب عليك استكمال أسعار المنتجات لحسن عمل الفورم !!!! ثلاث قوائم.xlsm

مما فهمت هل هذا ما تريد datex.accdb

بارك الله فيك وزادك الله من فضله

تفضل 🙂 Barcode.accdb

كل عام وانتم بخير تحديث جديد تحسينات فقط 91.1_T-S.rar

تفضل يمكنك استخدام هذه المعادلة (Ctrl+Shift+Enter) =IFERROR(INDEX($C$3:$C$40,SMALL(IF(($C$3:$C$40<=$I$3)*($C$3:$C$40>=$I$2)*($B$3:$B$40=$K$2),MATCH(ROW($C$3:$C$40),ROW($C$3:$C$40)),""),ROW(A1)),COLUMN(A1)),"") Item Card1.xlsx

وعليكم السلام-يمكنك جعل المعادلة هكذا =SUMIFS($C$3:$C$7,$D$3:$D$7,$I3,$B$3:$B$7,J$2,$A$3:$A$7,">="&H3,$A$3:$A$7,"<="&EOMONTH(H3,0)) work1.xlsx

وعليكم السلام -بسيطة , تفضل المثال 1 _xlsm.xlsm

بارك الله فيك وجزاك الله كل خير

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والاذكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود التنقل الى اي صفحة في ملف اكسيل طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر [/center] ' ' هذا الكود للعالم العلامة عبد الله باقسير Sub GO_TO() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If Activewindow.ScrollColumn = 1 Activewindow.ScrollRow = 1 On Error GoTo 0 End Sub في هذا الكود البسيط والمفيد عند الضغط على الزر ستنسدل قائمة بأسماء كل الصفحات الموجوده بالملف اختر منها الورقة التي تبعاها ودمتم في حفظ الله التنقل بين الصفحات.rar

الموضوع : كود ترحيل البيانات بشكل مميز سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة أبدأ بفنح ملف أكسيل جديد : قم بتسمية ورقة العمل الاولى بأسم ادخال بيانات والورقة الثانية فواتير ثم فى صفحة العمل الاولى والتى تسمى بـ ادخال البيانات قوم بتصميم جدول كما هو موضح فى الصورة ثم تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال : ----------------------------------------------------- اصدار 2003 من مربع أدوات التحكم > ادارج زر ------------------------------------------------------ اصدار 2007 من المطور > ادراج زر ------------------------------------------------------- وفى الصفحة الثانية التى تم تسميتها باسم فواتير نصممها على هذا الشكل بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود من خلال اختيار وضع التصميم والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق ) الجزء الاولى من الكود الجزء الثانى من الكود الجزء الثالث من الكود الجزء الرابع من الكود الجزء الخامس من الكود الجزء السادس والأخير ملاحظة : الكود يرحل بترتيب الادخال . لتحميل الشرح مصور + ملف المثال + الكود من هنا فى النهاية أسالكم الدعاء اذا افادكم ذلك

السلام عليكم إخواني وأخواتي ، بارك الله فيكم جميعا ، ونكمل درسنا مع نفس المثال السابق ولكن بتقنية ADO المثال يصبح كما يلي : Private Sub Command0_Click() Dim Cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim strCnn As String Set Cnn = New ADODB.Connection strCnn = CurrentProject.Connection Cnn.Open strCnn Set rst = New ADODB.Recordset rst.Open "SELECT EmpNotes FROM Employees WHERE DepId='10'; ", Cnn, adOpenKeyset, adLockOptimistic MsgBox rst.RecordCount & " عدد السجلات هنا صحيح وهو " rst.MoveLast rst.MoveFirst MsgBox rst.RecordCount & " عدد السجلات في المجموعة المختارة " Do While Not rst.EOF rst.Edit rst!EmpNotes = "مسافر في مهمة" rst.Update rst.MoveNext Loop rst.Close End Sub الملاحظات : 1. كما ذكرنا سابقا Dynaset في DAO يقابلها Keyset في تقنية ADO هذا بالنسبة للتعريفات . 2. مشكلة أسلوب الحصول على عدد السجلات في المجموعة التي اضطررنا إلى الذهاب فيها إلى أخر سجل ثم إلى أول سجل ، قد اختفت هنا ولا حاجة سوى للذهاب إلى أول سجل قبل الدخول في الحلقة ولكنني أبقيتها هنا حتى تتأكدوا من ذلك بأنفسكم . 3. بالنسبة لإستخدام with أو عدم استخدامها لا علاقة لها بتقنية ADO أو DAO ويبقى الهدف من استخدمها ان استخدمت كما ذكرت سابقا هو تسهيل عملية الوصول إلى الخصائص مباشرة بكتابتها بعد النقطة وبدون كتابة اسم مجموعة التسجيلات كما أوضحت ذلك في الدرس السابق. 4. لا يوجد هنا خاصية Edit. ولا داعي لإستخدامها كما في DAO أما بالنسبة لخاصية التحديث Update. فسواءً تم وضعها أو لا النتيجة واحدة. أملا لكم التوفيق في فهم الدروس . في الدرس القادم سنتحدث عن خاصية Bookmark وأهميتها. المرفق التالي يشمل الست أمثلة التي تم مناقشتها حتى الأن. مع الاحترام والتقدير RecordsetLesson_6_Examples.rar

السلام عليكم أخواني وأخواتي ، بارك الله فيكم جميعا الأن ننتقل لدرس تحديث السجلات بتقنية DAO في مثالنا التالي سنقوم بوضع ملاحظة لجميع الموظفين الذين يعملون في قسم الإدارة التي رقمها 10 والملاحظة هي أن الموظف مسافر في مهمة. Private Sub Command0_Click() Dim db As Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("SELECT EmpNotes FROM Employees WHERE DepId='10'; ", dbOpenDynaset) MsgBox rst.RecordCount & " هذا العدد لا يشير إلى عدد السجلات " rst.MoveLast rst.MoveFirst MsgBox rst.RecordCount & " عدد السجلات في المجموعة المختارة " Do While Not rst.EOF rst.Edit rst!EmpNotes = "مسافر في مهمة" rst.Update rst.MoveNext Loop rst.Close End Sub ملاحظات : 1. في جملة الفتح نلاحظ أننا نستطيع استعمال جملة sql مباشرة وفي هذه الحالة نوع مجموعة التسجيلات يكون Dynaset. 2. نلاحظ أن العدد الذي سنحصل عليه من recordcount قبل عملية الذهاب إلى أخر سجل movelast وثم الرجوع إلى أول سجل هو ليس عدد السجلات الصحيح ، وحتى نحصل على عدد السجلات الصحيح يجب إتباع هذا الأسلوب دائما وبعدها فقط نستطيع أن نعرف عدد السجلات الناتجة من التعريف. 3. قبل تعديل أي حقل في مجموعة التسجيلات يجب جعل السجل في وضع التعديل edit وبعد التعديل يجب عمل Update (تحديث) وإلا لن يتغير شيء. 4. يمكن كتابة الأوامر بدون ذكر اسم مجموعة التسجيلات كل مرة باستخدام with كما يلي Private Sub Command0_Click() Dim db As Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("SELECT EmpNotes FROM Employees WHERE DepId='10'; ", dbOpenDynaset) With rst MsgBox .RecordCount & " هذا العدد لا يشير إلى عدد السجلات " .MoveLast .MoveFirst MsgBox .RecordCount & " عدد السجلات في المجموعة المختارة " Do While Not .EOF .Edit !EmpNotes = "مسافر في مهمة" .Update .MoveNext Loop .Close end with End Sub يعني عمل with هو تمكيينا من الرجوع للخصائص العائدة لمجموعة التسجيلات بدون كتابة اسم مجموعة التسجيلات rst في كل مرة. سيلحق هذا الدرس (بإذن الله) نفس المثال ولكن بإستخدام تقنية ADO . مع الاحترام والتقدير Edit_Update_DAO.rar

السلام عليكم إخواني ، بارك الله فيكم بينما أنتم في انتظار درس مجموعات التسجلات التالي ، ارجو منكم مطالعة هذا الدرس الخفيف والمهم أولا يوجد 3 أنواع من القيم يجب أن نميز بينها : null : تشير أن المتغير أو الحقل يحتوي على بيانات غير صحيحة . empty : تشير أن المتغير لم يتم إعطاءه قيمة إبتدائية حتى ولو تم تعريفه "" : تعني أن المتغير له قيمة ولكنها النص الفارغ. يعني لكل واحدة معناً مختلف تماما عن الأخرى ، وحتى نفهم الفرق جيدا للنظر إلى المثال التالي : Private Sub example_Click() 1) Dim x As Variant 2) If IsNull(Null) Then MsgBox "Null" Else MsgBox "not null" 3) If IsEmpty(Empty) Then MsgBox "empty" Else MsgBox "not empty" 4) If IsEmpty("") Then MsgBox "empty" Else MsgBox "not empty" 5) If IsNull("") Then MsgBox "Null" Else MsgBox "not null" 6) If IsNull(x) Then MsgBox "Null" Else MsgBox "not null" 7) If IsEmpty(x) Then MsgBox "empty" Else MsgBox "not empty" 8) x = "" 9) If IsNull(x) Then MsgBox "Null" Else MsgBox "not null" 10) If IsEmpty(x) Then MsgBox "empty" Else MsgBox "not empty" 11) x = Null 12) If IsNull(x) Then MsgBox "Null" Else MsgBox "not null" 13) x = Empty 14) If IsNull(x) Then MsgBox "empty" Else MsgBox "not empty" 15) x = Null 16) If IsEmpty(x) Then MsgBox "empty" Else MsgBox "not empty" End Sub في السطر الأول تم تعريف المتغير x في السطر الثاني ستكون النتيجة Null وهذا يعني أنه يوجد قيمة معروفة في أكسيس تسمى Null في السطر الثالث ستكون النتيجة Empty وهذا يعني أن هناك قيمة معروفة في أكسيس تسمى Empty في السطر الرابع ستكون النتيجة not empty لأن "" هو ثابت مع أنه النص الفارغ إلا أنه يعتبر empty حيث أني empty كما ذكرت تعني عدم تعريف المتغير وليس الفراغ. في السطر الخامس النتيجة not null لأن القيمة "" لها معناً وهو النص الفارغ. في السطر السادس النتيجة not null ، صحيح أنه تم تعريف المتغير x ولم يتم تحديد قيمة ابتدائية له وهذا لا يجعل قيمته Null لأنه لا يحتوي على بيانات سواءً صحيحى أو غير صحيحة. في السطر السابع النتيجة empty حيث أن المتغير x منذ تعريفه لم يتم اسناد قيمة له حتى الآن. في السطر الثامن في هذه الجملة تم اسناد قيمة النص الفارغ "" للمتغير x في السطر التاسع وبكل تأكيد هنا النتيجة ليست null حيث أنه يوجد قيمة للمتغير x وهي النص الفارغ "" في السطر العاشر وهنا أيضا النتيجة ليست empty حيث يوجد قيمة تم اسنادها للمتغير x وبغض النظر عن ما هي . في السطر الحادي عشر ، شيء رائع الآن أصبحت قيمة x = null في السطر الثاني عشر وهنا بالتاكيد ستكون النتيجة null في السطر الثالث عشر واللآن لاحظوا بدقة ماذا سنفعل جعلنا قيمة x = empty في السطر الرابع عشر ، هنا ربما تستغربون من النتيجة فالبرغم من قيمة x هي empty من الجملة السابقة إلا أن النتيجة not empty ! أتعرفون لماذا ؟ لأن Isempty يسأل فيما إذا كان المتغير اسند له قيمة أو لا بغض النظر عن القيمة حتى ولو كانت empty. في السطر الخامس عشر وأيضا مرة أخرى نجعل قيمة x= null وذلك لأتبت لكم القاعدة السابقة في السطر السادس عشر ، لاحظو وهنا أيضا قيمة x أيضا not empty لأنه تم اسناد قيمة للمتغير x وهي null. كيف نحفظ هذه القواعد بعد أن فهمنها وجربنا نتائجها : لا تدعو ترجمة المعنى الحرفية تخدعكم حيث أن null ، empty ، "" إذا ترجمت ستعطي معناً واحدأ وهو (لا شيء أو فراغ) هذا الكلام خطأ وهو الخطأ الذي يقع به الكثيرين . تذكروا دائما التعريفات التي بدأت فيها الدرس ولن تخطئوا باستخدام هذه القواعد أبداً. مرفق التطبيق . مع الاحترام والتقدير Null_Empty_DblQoutes.rar

السلام عليكم إخواني وأخواتي ، بارك الله فيكم جميعاً درسنا اليوم حول نفس الموضوع السابق وهو استنساخ مجموعة التسجيلات بواسطة Recordsetclone ولكن هذه المرة مع ADO . قد يظن البعض أن الأمر في غاية البساطة وذلك باستخدم نفس المثال السابق مع تغيير السطر التعريف الأساسي Dim rstEmployees As DAO.Recordset إلى Dim rstEmployees ADODB.Recordset حسناً هكذا يبدو الأمر ، جربوه ولن ينجح حيث ستحصلون في الجملة Set rstEmployees = Me.Form.RecordsetClone على الخطأ Type mismatch أي أن الأنواع غير متوافقة يعني المجموعة المستنسخة من نوع أخر وهذا صحيح ! ، أنسيتم السطرين السابقين باللون الأحمر ، فأنا لم ألونهما جزافاً واعيدهما هنا مرة أخرى للتذكير من المهم ملاحظة أن نوع مجموعة التسجيلات التي يتم تعريفها في وضع التصميم في قاعدة البيانات mdb. هي بشكل تلقائي DAO Recordset ، أما في مشروع أكسيس فتكون ADO Recordset إذاً هذا هو السبب أن مصدر السجلات الذي عرفنه في النموذج والذي سيمثل مجموعة التسجيلات سيكون من النوع DAO . حسناً ، الحل بسيط نرجع للمراجع ونجعل مرجع ADO يسبق مرجع DAO بالتعريف وهكذا يتم تحديد نوع مجموعة التسجيلات من نوع ADO ، جربوه وللأسف لن ينجح ، و ياليت الحل كان بهذه البساطة! ماذا نجري الأن ؟ لم يبقى لنا إلا أن نفعل شيء واحد ونأمل أن ينجح وهو حذف المرجع DAO (عدم اختياره من ضمن المراجع) ، جربوا ذلك ، ويا للعجب ، حتى أننا بعد حذف المرجع كاملا لم يتم تعريف مجموعة التسجلات المرتبطة بالنموذج من نوع ADO . ماذا سنعمل إذن ، أولا سنحفظ القاعدة التي في اللون الأحمر حتى لا نتعب أنفسنا أكثر حيث لا يوجد طريقة نهائيا في وضع التصميم لجعل النموذج يرتبط بمجموعة تسجيلات غير DAO . ثأنيا ، لا تبتأسوا كثيرا حيث يوجد حل وهو رائع جدا وهو كما يلي وأيضاً يمكن اعتباره قاعدة ويجب حفظه غيباً. إذا أردنا أن نجعل مجموعة التسجيلات لنموذج في قاعدة mdb. تعمل بتقنية ADO يجب عمل الخطوات الثلاث التالية. 1. في وضع التصميم للنموذج نلغي مصدر السجل Record source للنموذج (أي نجعله بدون مصدر) . 2. في حدث الفتح للنموذج نضع الكود التالي بدون تغيير سوى بمصدر السجل الذي هو في مثالنا جدول employees : Private Sub Form_Open(Cancel As Integer) Dim rst As ADODB.Recordset, cn As ADODB.Connection Set rst = New ADODB.Recordset rst.ActiveConnection = CurrentProject.Connection rst.CursorType = adOpenDynamic rst.CursorLocation = adUseClient rst.Open "employees", , adOpenKeyset, adLockOptimistic, adCmdTable Set Me.Recordset = rst End Sub 3. في حدث الإغلاق للنموذج نضع الكود التالي : Private Sub Form_Close() Dim cn As ADODB.Connection Set cn = Me.Recordset.ActiveConnection cn.Close Set cn = Nothing End Sub وبعدها سيختفي الخطأ Type mismatch الذي تحدثنا عنه في بداية الدرس وإليكم الحل كاملا كما طرحته تماما هنا في المرفق التالي : مع احترامي وتقديري لكم RecordsetLesson2.rar

السلام عليكم إخواني وأخواتي ، بارك الله فيكم جميعاً أرحب بكم بهذا الدرس "التعامل مع مجموعات التسجيلات" أملا أن يكون فيه الفائدة لكم. قبل أن نخوض في تفاصيل وطرق التعامل مع مجموعة التسجيلات يجب أن نعرف ما هو المقصود بمجموعة التسجيلات والتي يسميها البعض أيضا بمجموعة السجلات ، والتي هي عبارة عن مجموعة السجلات محور الإهتمام في نموذج أو تقرير أو عنصر تحكم في مربع نص أو عنصر تحكم مربع تحرير وسرد أو متغير في وحدة نمطية ، (والحقيقة لا أجد لها أماكن استخدام غير الخمسة المذكورة) وهذه السجلات في شكلها البسيط ممكن أن تكون جدول واحد مؤلف من عدة حقول ، وممكن أن تكون مبنية من عدة جداول وبناء على شروط قد تكون معقدة، وتعتبر جميع نتائج الاستعلامات أو تعليمات SQL مجموعات تسجيلات. مجموعة التسجيلات Recordset هي كائن ، يعتبر من أكثر وأهم الكائنات استعمالا في VBA، ولذا أعزائي الأعضاء ، أحببت أن يكون شرحه في مقدمة دروسنا في VBA. ودرسنا اليوم تحديداً عن الكائن Recordset في DAO : Data Access Object. يوجد في هذا الكائن المهم أكثر من 30 خاصية و 18طريقة (أمر) وتقريباً كل قوة محرك بيانات أكسيس Jet ، في عمليات الإضافة والحذف والتعديل والبحث والفرز والتصفية على البيانات تكمن في الكائن Recordset. وقبل البدء بشرح كيفية التعامل مع مجموعة التسجيلات أرجو منكم أن تحفظوا الجملة التالية التي لن نفهمها تماماً إلا بعد اتمام الدرس كاملا والذي هو طويل نوعاً ما وتجدر الإشارة إلى هذه الجملة المهمة الأن وقبل البداية : " إن سلوك القراءة والكتابة في مجموعة التسجيلات يعتمد على نوع الكائن (ADO أو DAO) ويعتمد كذلك على نوع البيانات (Jet أو ِSQL) المعرفة بواسطة الكائن Recordset" وسأراجع معكم هذه الجملة في أخر الدرس التي بإذن الله عندها ستكون من الخبراء في استعمال مجموعات التسجيلات . وبكل تأكيد أن التعامل مع مجموعة التسجيلات بتقنية ADO هي الأحدث ولن نغفل ذلك نهائيا وسأحاول (حيثما أمكن ) وضع الأمثلة بطريقة ADO وكذلك DAO وما هذه إلا البداية والله الموفق ، علما أنني بذلك أحاول ربط القديم بالجديد وفي ذلك فوائد عديدة منها إلقاء الضوء على الطريقتين وتشجيع البعض ممن لم يتعامل مع أحدى التقنيات أن يستعملها أو على الأقل يستفيد منها في فهم الأمثلة التي تملىء المنتديات والتي فيها مزيجا من هذه التقنيات ولا أخفيكم أن هذه الفكرة قد تبادرت إلى ذهني بعد التفكير ملياً بأحسن الوسائل لطرح الموضوع بما فيه مصلحة الأعضاء العامة وبتشجيع من إخواني الخبراء في جامعة أهلا عرب وبعد استشارة أخي أبا هادي من أوفيسنا جزاهم الله خيراً. يوجد أربعة أنواع من مجموعات التسجيلات في DAO 1. النوع Table: ويستخدم لتحديد جدول في قاعدة البيانات الحالية فقط ، ولا يمكن استخدامه لتحديد استعلام أو جدول مرتبط من قاعدة أخرى ، ويمكن أن يستخدم هذا النوع للإضافة، الحذف ، التعديل ، أو البحث في الجدول، وعندما نستخدم هذا النوع فإن التغيرات والتعامل تكون مع الجدول مباشرة ، ومن مميزاته الحسنة أنه يسمح باستخدام أسرع طريقة للبحث عن التسجلات بالأمر seek الذي يبحث في الفهارس المعرفة على الجدول. إخواني وأخواتي ، لا أريد أن أطيل عليكم بالتفاصيل النظرية عن جميع الأنواع والنظريات المتعلقة بالموضوع لأنه طويل جدا وستملون الموضوع بك تأكيد ، لذا سأنتقل مباشرة إلى التطيبق العملي حتى نفهم ما توصلنا إليه حتى الأن ونستوعبه ونطبقه عملياً . تجدون في المرفق قاعدة بيانات فيها 3 جداول فقط ا الموظفين (employees) والأقسام (departments) والوظائف (jobs) بحيث أن لكل قسم مسؤولا (موظفاً) واحدا فقط ولكل موظف مسئول مباشر عنه وكل موظف يتبع لقسم ما ولكل موظف وظيفة محددة. إذا كنت لا تعرفون الكثير عن الجداول والعلاقات وطريقة التحليل والتصميم للوصول إلى النتيجة التالية كما في الصورة فيجب مراجعة الموضوع التالي وفهمه جيداً هنا الموضوع : أرجو منكم تفحص تصميم الجداول وخصائص الحقول جيداً. ما سبق هو ليس موضوعنا الأساسي ... الآن ننتقل إلى الموضوع : في مثالنا الأول نريد أن نبحث عن رقم موظف وإذا كان موجودا في جدول الموظفين نطبع اسم الموظف وعائلته وإذا لم يكن موجودا نطبع أن الرقم المدخل غير موجود ، ومن هنا نبدأ فهمنا لمجموعة التسجيلات ... Private Sub example1_Click() Dim MyDb As Database Dim rstEmployees As Recordset Set MyDb = CurrentDb Set rstEmployees = MyDb.OpenRecordset("employees") id = InputBox("أدخل رقم الموظف") rstEmployees.Index = "PrimaryKey" rstEmployees.Seek "=", id If rstEmployees.NoMatch Then MsgBox "هذا الرقم غير موجود" Else MsgBox rstEmployees!EmpFirst & " " & rstEmployees!empfamily End If rstEmployees.Close End Sub وإليكم الملاحظات المهمة التالية : 1. بناء المتغير من نوع recrodset هو عن طريق OpenRecordset ويوجد لها شكلان واحد لبناء مجموعة التسجيلات من قاعدة البيانات كما في مثالنا والثاني لبناء مجموعة التسجيلات من TableDef أو QueryDef أو من Recordset وأعدكم أنني لن أتشعب كثيرا حيث الموضوع طويل وسأركز حديث في الغالب حول الأمثلة التي أطرحها ، وبإمكانكم بعد فهم الأساسيات التوسع بالموضوع بكل سهولة. الشكل العام لطريقة بناء المتغير والتي استعملناها في مثالنا هي : set rst = database.openrecordset(source,type,options,lockedits) حيث 1- rst اسم المتغير من النوع recrodset 2- database اسم المتغير من نوع database 3- source متغير نصي ، اسم جدول أو استعلام او أمر sql ترجع سجلات. أما في مثالنا حيث النوع هو table ، فيجب أن يكون source اسم جدول 4- type وهو ثابت رقمي يحدد نوع المجموعة من (dbopentable،dbopendynaset، dpopensnapshot، dbopenforwardonly) ويوجد نوع خامس يستخدم فقط مع ODBCDIRECT وهو dbopendynamic مع ملاحظة أنه إذا فتحنا مجموعة سجلات بدون أن نحدد نوعها كما في مثالناً فإن المحرك Jet سينشىء المجموعة بشكل تلقائي من النوع table ، إذا كان المصدر جدولا ، أما إذا كان المصدر استعلاما أو جدولا مرتبطا فإن النوع سيصبح dynaset. 5- options هي مجموعة من الثوابت الإختيارية التي تحدد خصائص مجموعة التسجيلات في بيئة تعدد المستخدمين. 6- lockedits أيضا ثابت اختياري يحدد قفل التسجيلات أو لا. 2. تحديد الفهرس تمهيدا لإستخدام الأمر seek وإذكر مرة أخرى هنا أن هذه الطريقة تستخدم للبحث عن تسجيلة في مجموعة التسجيلات من النوع Table ولا يمكن استعمالها مع باقي الأنواع، وتقوم هذه الطريقة بالبحث فقط وفقاً لفهارس الجدول المعرفة أو التي يمكن تعريفها أيضا برمجياً وقبل كل شيء لنلقي نظرة على فهارس جدول الموظفين كما في الصورة : ولهذا قمنا بوضع اسم الفهرس PrimaryKey علما أننا نستطيع تغيير هذا الأسم في وضع تصميم الجدول ومن نافذة الفهارس كما في الصورة. لاحظوا أيضا أن rstemployees.Index تدعى خاصية الفهرس ومرة أخرى أذكر أن للكائن recordset ولاي كائن يوجد خصائص (properties ) و طرق (Methods) يعني أوامر. السؤال الذي يطرح نفسه هنا ماذا يحدث لو لم نقم بضبط خاصية الفهرس قبل استخدام الأمر seek ، سينتج الخطأ التالي : Operation invalid without a current index وعلماً أنه يمكن البحث عن تسجيلة وفق فهرس يتألف من أكثر من حقل (حتى 13 حقلا) وسنأخذ مثال على ذلك لاحقاً بإذن الله. 3. الأن الوضع مرتب لإجراء البحث ويتم ذلك من خلال الطريقة (الأمر) method واسمها seek بالطرية التالية rstEmployees.Seek "=", id حيث id هي القيمة التي تم قراءتها والأن سنبحث عنها ويمكن البحث بعدة طرق "=" ، ">" ، "<" ، "=>" ، "=<" 4. بعد الأمر السابق وهو أمر البحث يتم عمل شيئين بشكل تلقائي وفي الخفاء وهما: - يتم الإنتقال غلى التسجيلة التي وجدت حسب البحث (إن وجدت) - يتم تعريف قيمة الخاصية nomatch بناء على النتيجة إذا وجد السجل يكون فيها false وإذا لم يوجد يكون فيها true 5. الأن الأمر اصبح في غاية البساطة ولأننا نبحث في مفتاح رئيسي فلا حاجة للبحث إلا مرة واحدة فإن وجد الرقم فالسجل موجود وإلا فغير موجود. 6. في نهاية العمل لا تنسوا دائما إغلاق مجموعة التسجيلات بإستخدام الأمر close. أتمنى لكم وقتا سعيدا وممتعا مع هذا الدرس وإلى لقاء بإذن الله قريباً مع الاحترام والتقدير RecordSets.rar

السلام عليكم إخواني ، بارك الله فيكم وشكراً على تثبيت الموضوع ملحق الدرس الأول : بالنسبة للحلقات المشروطة لا يوجد طرق أخرى . وقاعدة كتابة هذه الجمل بشكلها المتكامل هو كما يلي : Syntax Do [{While | Until} condition] [statements] [Exit Do] [statements] Loop Or, you can use this syntax: Do [statements] [Exit Do] [statements] Loop [{While | Until} condition] بالنسبة للحلقات غير المشروطة على غرار for ... next يوجد أيضا تركيب أخر مهم لا نستطيع تجاهله وهو for each ... next وكمثال عليه أقدم لكم ما يلي : هذا الموضوع يتماشى مع Access 2002 و Access 2003 يستفاد من هذا الموضوع معرفة طريقة إضافة الطابعات المحملة (المعرفة) لجهاز الحاسوب إلى مربع تحرير وسرد (combo box) باستخدام البرمجة بلغة(VBA) . خطوات الطريقة هي : 1. ندخل إلى خصائص مربع التحرير والسرد ونضغط لسان التبويب الكل (All tab). 2. نغير قيم الخصائص كما يلي : نضع في خاصية الاسم (Name) الاسم dPrinter نختار في خاصية نوع مصدر الصف (Row Source Type) قائمة الحقول (Value List) نضع في حدث عند التحميل للنموذج (On Load) الكود التالي: Private Sub Form_Load() Dim prt As Printer For Each prt In Application.Printers Me!dPrinter.AddItem prt.DeviceName Next End Sub ملاحظة(1): عندما نضيف (نحمل) عناصر لمربع التحرير والسرد بالبرمجة (كما في المثال السابق) فإن العناصر لا تترتب أبجديا وإنما حسب ترتيب التحميل طبعا هناك حل لهذا الأمر أيضا، أرجو من الإخوة الأعضاء التفكير في الحل. ملاحظة(2): انتبه إلى طريقة استخدام (AddItem). الخلاصة : تم إضافة الطابعات المعرفة إلى مربع التحرير والسرد برمجيا وهذا مجرد مثال لأفكار كثيرة يمكن تطبيقها بنفس التقنية والشيء الممتع في هذه التقنية أن نتيجتها متواصلة التغير (Dynamic) أي كلما تغيرت تعريفات الطابعات تتغير محتويات مربع التحرير والسرد. مع الاحترام والتقدير