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

وعليكم السلام-يمكنك استخدام هذه المعادلة =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

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

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

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

ضع الزر في النموذج وليس في التقرير .... ثم انسخ الكود السابق والصقة في حدث عند النقر .... واخبرنا بالنتيجة ...

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

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

ما فهمت عليك .... كيف نسخة واحدة ؟؟؟؟؟ والزرار ظاهر ؟؟؟؟؟ وضح !!!!

قد القيت نظرة على الكود و أنا الان احاول فهمه أجدد شكري لك و للاساتذة الكرام

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

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

احسنت

تمت معالجة هذا الأمر كثيرا في المنتدى ربما يفيدك هذا الرابط

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

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

ما ذا تقصد بالطرح في التاريخ ؟ (فالتواريخ المراد وضعها فى العمود الجديد تمثل أكبر ناتج طرح للتواريخ) لو اردت حساب مدة بين تاريخين استخدم التالي 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

تفضل هذا التعديل لتجاوز الخطأ Public Function importExcel(Tablename As String, FilePath As String) On Error Resume Next Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet Dim intLine As Long Dim strSqlDml As String Dim strColumn1 As String, strColumn2 As String, strColumn3 As String Set xlApp = New Excel.Application xlApp.Visible = False Set xlWb = xlApp.Workbooks.Open(FilePath) Set xlWs = xlWb.Worksheets(1) intLine = 2 'سيتم استيراد الصفوف بدء من الصف رقم 2 Do strColumn1 = Trim(xlWs.Cells(intLine, 1).Value) 'رقم 1 يعني العمود رقم 1 في ملف الاكسل strColumn2 = Trim(xlWs.Cells(intLine, 2).Value) 'رقم 2 يعني العمود رقم 2 في ملف الاكسل strColumn3 = Trim(xlWs.Cells(intLine, 3).Value) 'رقم 3 يعني العمود رقم 3 في ملف الاكسل strSqlDml = "INSERT INTO [" & Tablename & "] VALUES('" & strColumn1 & "', '" & strColumn2 & "', '" & strColumn3 & "')" CurrentDb.Execute strSqlDml, dbFailOnError xlWs.Cells(intLine, 1).Select intLine = intLine + 1 Loop Until IsEmpty(xlWs.Cells(intLine, 1)) xlWb.Close False xlApp.Quit Set xlApp = Nothing Set xlWb = Nothing Set xlWs = Nothing End Function

جزاك الله خيرا

مشاركة معي استاذنا @د.كاف يار جزاه الله خيرا استخدم هذا الكود فقط بدون مكتبات TablName= MyAccessTbleName 'ضع بدل هذا المتغير اسم الجدول الموجود بالأكسس ExlFilPath= MyExelFileFullName 'ضع بدل هذا المتغير مسار ملف الاكسل بالكامل مثل: D:\Exel1.xlsx "A1:F2000" ' هذا المدي الموجود به البيانات بشيت الاكسل غيره حسب ما هو موجود عندك Docmd.TransferSpreadsheet(acImport,acSpreadsheetTypeExcel12,TablName,ExlFilPath,true,"A1:F2000") هذا والله أعلم

ايه الروائع ديه؟ ... أحسنت استاذ مجدى وجزاك الله كل خير

وعليكم السلام-من فضلك عليك بمعرفة ودراسة المعادلة بتفسك وان لا تغير المدى بها وعليك ان تتأكد انها تبدأ من الصف الرابع وليس العاشر كما قمت انت بتغييرها.وشكراً =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

شوف دا How To Get And Insert The Last Modified User Name In Excel?

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

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

تفضل 🙂 Barcode.accdb

اخي البرنامج لا يفتح ويبقى المؤشر على الاسم فقط

تفضل يمكنك استخدام هذه المعادلة (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

احسنت استاذ أبو عيد عمل ممتاز جعله الله فى ميزان حسناتك

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

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والاذكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود التنقل الى اي صفحة في ملف اكسيل طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز 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

السلام عليكم إخواني وأخواتي ، بارك الله فيكم جميعاً الدرس الأول : الحقات التكرارية (الدورانية) : Looping في كثير من الأحيان يحتاج المبرمج إلى تكرار تنفيذ مجموعة من التعليمات عدداً من المرات، ويوجد طرقتين أساسيتين للتكرار في حالة كان عدد مرات التكرار معروفة مسبقا حيث يجب استخدام For ... Next ، وإذا كان عدد مرات التكرار غير محددة مسبقاً ومبنية على تحقق شرط معين (شرط إنتهاء الدوران أو البقاء به) فهنا نستخدم Do ... Loop . يوجد أربع أشكال لحقات الدوراان التكرارية المبنية على شرط وبجميعها يكون هناك شرط يحدد استمرار التكرار أو توقفه. وقيمة الشرط ستكون إما True أو False ، أو تعبير يرُُجع قيمة رقمية حيث تعتبر القيمة التي لا تساوي صفراً True وإلا False. أشكال البنى التكرارية الأربعة : 1. تنفيذ التعليمات statments هنا سيستمر حتى يتحقق الشرط condition . Do Until condition Statments Loop وعندما يصل أكسيس لتفيذ هذا الدوران ، فإنه سيبدأ وقبل كل شيء بفحص قيمة الشرط conditon، فإذا كان True ، سيتم الإنتقال فوراً إلى ما بعد التكرار أي أنه لن يتم الدخول للحلقة. أما إذا كان False ، فسيتم تنفيذ التعليمات satments ،ثم يرجع للسطر DO Until ، للقيام بفحص الشرط ثانية، وهكذا ... إذاً ، سيتم تكرار الحلقة عدداً من المرات ، طالما بقي الشرط conditon قيمته False . ولن ينفذ ولو مرة واحدة إذا كان الشرط True. ويجب في الحقات التكرارية المبني إنتهائها على شرط أن نلاحظ أنها لن تنتهي ما لم يتحقق الشرط ويجب العمل على تحقيقه في داخل الحلقة في لحظة ما وإلا سيستمر الدوران إلى ما لا نهاية ويعلق الجهاز. ولنأخذ مثالاً حتى نفهم كيف سيتم التعامل مع هذا الشكل من أشكال الحلقات الدورانية: نريد أن نجمع مجموعة من الأرقام المدخلة إلى الحاسوب ونطبع نتيجة جمعها . عندما ندخل العدد 999 نتوقف عن الإدخال. sum = 0 x= InputBox("أدخل الرقم ") do until x=999 sum = sum+x x= InputBox("أدخل الرقم ") loop Msgbox sum مع ملاحظة ما يلي : 1. أننا قمنا أولا بتحديد قيمة المجموع وهي بالبداية صفراً 2. ثم قمنا بإدخال القيمة الإبتدائية قبل الدخول للحلقة وهي X ويتم إدخالها من قبل المستخدم عند تشغيل البرنامج. 3. بناء على قيمة x فإذا كانت 999 يكون الشرط true ولا ندخل للحلقة وإلا يكون false وندخل في داخل الحلقة نقوم بزيادة قيمة sum االمجموع بمقدار القيمة المدخلة وهي x . 4. ثم تأتي عملية الإدخال من جديد داخل الحلقة والتي بدونها لن ينتهي التكرار حيث من خلال هذه الجملة سيتم وقف التكرار وذلك عند إدخال القيمة 999. 5. وفي نهاية البرنامج نطبع القيمة المطوبة وهي مجموع الأرقام التي تم إدخالها. 2. الشكل الثاني من أشكال الحلقات سيقوم بتنفيذ الدوران على الأقل مرة واحدة حيث يتم الدخول للحلقة أولا ثم في نهاية الحلقة يتم فحص الشرط : Do Statements Loop Until condition عندما يصل أكسيس لهذه الحلقة يتم الدخول فيها فورا وتنفيذ الجمل statements وبعد تنفيذها يتم فحص الشرط condtion فإذا كان true يخرج من الدوران وإلا يبقى وينفذ مرة أخرى وهكذا ... ولنأخذ المثال التالي : نريد أن نحسب مساحة مجموعة من الدوائؤ وعندما ندخل أن نصف القطر للدائرة صفراً تتوقف الحقلة (الدوران). Private Sub ex2_Click() Do r = InputBox("أدخل نصف القطر") a = r ^ 2 * 22 / 7 MsgBox "المساحة= " & a Loop Until r=0 End Sub وأرجو ملاحظة ما يلي : 1. تم الدخول للحلقة مباشرة دون شرط أو قيد ولهذا سيتم تنفيذ الحلقة على الأقل مرة واحدة 2. تم إدخال نصف القطر r حيث سليزم لحساب مساحة الدائرة والتي تساوي مربع نصف القطر مضروبا في النسبة التقريبية ط والتي تساوي 22/7. 3. يتم احتساب مساحة الدائة وطباعة النتيجة وذلك داخل الحلقة ايضاً. 4. في نهاية الحقلة يتم السؤال عن الشرط فإذا كانت قيمة نصف القطر r=0 فسنخرج من الحلقة والا ننتقل لإدخال نصف قطر جديد وحساب مساحة جديد وهكذا .. 3. في الشكل الثالث من أشكال الدوران ، تنفذ التعليمات طالما أن قيمة الشرط condition صحيحة true وإلا يتم التوقف عن الدوران في الحلقة التكراارية. do while condition statements loop عندما يصل الأكسيس إلى هذه الحلقة يفحص قيمة الشرط أولا وقبل الدخل للدوران فإذا كان صحيحاً يستمر في الدوران وإلا يخرج من الدوران. ولنأخذ المثال التالي : نريد أن نقرأ مجموعة من الأسماء ونطبعها وإذا كان الحرف الأول في الكلمة ع (حرف العين) نتوقف. Private Sub ex3_Click() na = InputBox("أدخل أسم") Do While Left(na, 1) <> "ع" MsgBox na na = InputBox("أدخل أسم") Loop End Sub ومن المهم ملاحظة ما يلي : 1. يتم إدخال اسم ابتدائي قبل الدخول للحلقة حيث سيتم فحص الشرط مباشرة 2. لاحظ أن الشرط هو بالسؤال عن الحرف الأول من اليسار Left للاسم وإذا لم يكن يساوي حرف العين نستمر في الدوران وعندما ندخل اسم يكون أول حرف فيه عين يتم التوقف والخروج من الدوران. 3. في داخل الدوران سيتم طباعة النتيجة المطلوبة وهي الأسم ثم سيتم السؤال عن الأسم التالي تمهيدا لتنفيذ الدورة الثانية وهكذا ... 4. الشكر الرابع والأخير من أشكال الحلقات الدورانية المشروطة يتم فيه تنفيذ التعليمات مرة واحدة على الأقل وهو كما يلي : Do statements Loop While condition وهنا عندما يثل الأكسيس إلى الحلقة يتم الدخول مباشرة لها وتنفيذ الجمل التي بها statements ثم يتم الؤال عن صحة الشرط condtion حيث إذا كان true يستمر في الدوران وإلا يتم الخروج منه. ولنأخذ المثال التالي وهو حساب مجموع مربعات (تربيع) الأعداد المدخلة . نتوقف عن الحساب ونطبع النتيجة المجموع عندما ندخل العدد 0. Private Sub ex5_Click() sum = 0 Do x = InputBox("أدخل رقم") sum = sum + x ^ 2 Loop While Not x = 0 MsgBox "مجموع مربعات الأعداد المدخلة هو " & sum End Sub لاحظ أن شرط الإنتهاء هو not x = 0 وهو مكافىء للشرط x<> 0 حيث الرمز <> يعني لا يساوي. لاحظ أيضا أنه في جميع الأشكال الأربعة الساقة لم يحدد في الأمثلة عدد مرات التنفيذ وهكذا تستخدم الحلقات الدورانية في هذه الأشكال عندما لا يعرف عدد مرات التنفيذ (الدوران) مسبقاً. أما إذا كنا نعلم عدد مرات التنفيذ (الدوران) فإنه من غير المفضل نهائياً استخدام الأشكال السابقة ويجب استخدام الشكل الخاص بالتكرار المروف مرات الدوران مسبقا وهو For .. do التالي : For counter = start to end [Step increment] statments Next [Counter] حيث أن : counter : متغير (عداد الحلقة التكرارية) start : القيمة الإبتدائية للدوران end : القيمة النهائية للدوران increment : مقدار الزيادة في كل مرة من مرات الدوران وإذا لم يوضع تكون الزيادة بشكل معياري هي 1 ويمكن أن يكون increment موجب أو سالب فإذا كان سالب يجب أن تكون القيمة النهائية أضغر من الإبتدائية. وإليكم كيفية تعامل أكسيس مع هذا النوع من الحلقات : 1. عند الدخول للدوران for يتم وضع قيمة counter تساوي القيمة الإبتدائية start . 2. يتم ومباشرة وقبل تنفيذ الجمل التي تلو for إذا كانت قيمة العداد counter أكبر من القيمة النهائية end فإن كانت كذلك يتم إنهاء الدوران والخروج منه . أما إذا كانت قيمة Increment سالبة فإن الفحص يتم بطريقة عكسية حيث يتم التأكد فيما إذا كانت قيمة العداد counter أقل من القيمة الإبتدائية start وإذا كانت كذلك يتم الخروج من الحلقة. 3. يتم تنفيذ الجمل التي في الحلقة 4. يتم زيادة قيمة العداد بمقدا واحد أو increment إذا كان محدداً. 5. وهكذا يتم تكرار الخطوات من 2 إلى 4 في كل مرة. ولنأخذ المثال التالي نفرض أننا نريد جمع الأعداد الزوجية من 1 - 100 وطباعة النتيجة : Private Sub ex6_Click() sum = 0 For i = 1 To 100 Step 2 sum = sum + i Next i MsgBox "المجموع هو " & sum End Sub وفي مثالنا الثاني نريد أن نقرأ سام نموذج فإذا كان مفتوح نطبع أن النموذج مفتوح وإلا نطبع غير مفتوح Private Sub ex7_Click() n = InputBox("أدخل اسم النموذج") IsOpen = False For i = 0 To Forms.Count - 1 If Forms(i).FormName = n Then IsOpen = True End If Next i If IsOpen Then MsgBox " النموذج مفتوح" Else MsgBox "النموذج غير مفتوح" End If End Sub لاحظ أن للنماذج المفتوحة رقم يبدأ من صفر forms.count ولاحظ اسم النموذج forms(I). formname أما باقي الأمور في الحلقة فأعتقد أنه سهلة. مع الاحترام والتقدير =الدروس= looping.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

السلام عليكم إخواني وأخواتي ، بارك الله فيكم جميعاً قبل أن نكمل درسنا في التعمق في طريقة التعامل مع مجموعات التسجيلات وعرض طرق أخرى لتعريف مجموعة التسجيلات recordset بأستخدام الكيان DAO ، أود أن نلقي الضوء قليلا وعلى نفس المثال السابق وهو الوصول إلى سجل محدد ولكن هذه المرة باستخدام تقنية ADO ، ولكن قبل عمل ذلك أود أن أشير إلى أهمية الانتباء إلى المراجع حيث مرجعي ADO و DAO يوجد بهما نفس التسمية للكيانات مثل recordset وكيف نتغلب على تشابه التسمية. في الصورة السابقة ومن شاشة محرر فيجوال بيسك (ALT+F11) ... ثم tools ... ثم References يظهر لنا الصندوق الحواري كما في الصورة لاحظوا أننا اخترنا DAO وكذلك ADO في نفس الوقت وهذا يعني أنه يمكن استخدام جميع الكيانات فيهما الأثنين ومنها الكيان recordset فماذا سيعتبر في البرنامج (الوحدة النمطية) هل سيتبع إلى DAO أو إلى ADO ، في الحقيقة أن أسهل طريقة وحتى لا يحدث لبس هي تعريفه بالشكل التالي ADODB.Recordset أو DOA.Recordset أم أذا عرفنه بدون تحديد فهو سيتبع للمرجع الذي يظهر أولا وفي هذه الحالة كما في الصورة سيتبع إلى DAO حيث هو المعرف قبل ADO. الآن أنتقل بكم مباشرة إلى تطبيق المثال المكافىء للمثال الأول وعلى نفس القاعدة السابقة قاعدة الموظفين التي تم إرفاقها وللحصول على معلومات الموظف مباشرة ولكن بإستخدام تقنية ADO . Private Sub example1_Click() Dim Cnn As ADODB.Connection Dim rstEmployees As ADODB.Recordset Dim strCnn As String Set Cnn = New ADODB.Connection strCnn = CurrentProject.Connection Cnn.Open strCnn Set rstEmployees = New ADODB.Recordset rstEmployees.Open "employees", Cnn, 3, 1, adCmdTableDirect 'read only and allow indexing id = InputBox("أدخل رقم الموظف") rstEmployees.Index = "PrimaryKey" rstEmployees.Seek id, adSeekFirstEQ If rstEmployees.EOF Then MsgBox "الرقم غير موجود" Else MsgBox rstEmployees!empfirst & " " & rstEmployees!empfamily End If rstEmployees.Close Set Cnn = Nothing Set rstEmployees = Nothing End Sub الملاحظات : 1. تمهيدا للوصول للجدول employees الموجود في قاعدة البيانات الحالية وليست في مصادر بيانات خارجية أو قاعدة أخري نعرف أولا ما يسمى نص الإتصال connection string وهو مصدر البيانات وهنا الأمر في غاية البساطة فهو في نفس القاعدة ولذا أشرنا له بالنص currentproject.connection والمكافئة تماما في تقنية DAO للنص CurrentDb ومن الضروري جدا فتح الاتصال وهذا تم في الجملة Cnn.Open strCnn 2. ثم نقوم بفتح (تعريف) مجموعة التسجيلات والتي تتم من خلال الخاصية OPEN كما في rstEmployees.Open "employees", Cnn, 3, 1, adCmdTableDirect 'read only and والشكل العام لخاصية الفتح هو recordset.Open Source, ActiveConnection, CursorType, LockType, Options علماً أن كلمة cursor هنا يعنى بها عنصرا من قاعدة البيانات التي تتحكم في التنقل بين السجلات ، تعديل البيانات ، وظهور التغيرات من المستخدمين للقاعدة. وطبعا يوجد هنا كما في DAO أيضا أربعة طرق مختلفة لفتح مجموعة التسجيلات وهي CursorType : adOpenDynamic = 2، adOpenForwardOnly= 0 ، adOpenKeyset = 1 ، adOpenStatic = 3 ، والتي سنتعرض لها بالتدريج ، ما تم استخدامه في هذا المثال هو 3 وهو يسمى static cursor وهو عبارة عن نسخة ساكنة عن السجلات للوصول وإيجاد البيانات دونما الأهتمام برؤية الإضافات والتغييرات والحذف الآني من المستخدمين. LockType : نوع إقفال السجلات وما استخدامناه في مثالنا هو 1 adLockReadOnly ويعني أن البيانات للقراءة فقط ولا نستطيع التعديل عليها . options : الخيارت التي تحدد كيف سيقو مزود البيانات بمعالجتها وفي مثالنا استخدمنا adCmdTableDirect وبهذا الخيار فقط يمكن استعمال الخاصية seek في ADO وقيمة هذا الثابت ، يعني adCmdTableDirect هي 512 . تذكروها جيدا حيث لا يوجد طريقة غيرها . 3. الآن البيئة مهيئة تماما لما نريد تحقيقه في المثال نقوم بتحديد الفهرس كما في خاصية الفهرس rstEmployees.Index = "PrimaryKey" ولا تنسوا حكاية اسم الفهرس فهي نفس الحكاية التي تم شرحها أعلاه في DAO . 4. ثم نقوم بقراءة رقم الموظف وحاولة الوصول إليه من خلال الخاصية rstEmployees.Seek id, adSeekFirstEQ 5. لاحظوا هنا الفرق بين هذه الطريقة وطريقة DAO حيث المعاملات تم عكسها علما أن عمليات المقارنة كانت هناك "=" بينما هنا أصبحت كما يلي وحسب مثالنا : adSeekFirstEQ 1 البحث عن أول موظف له الرقم المحدد. 6. بالنسبة nomatch لا توجد هذه الخاصية في ADO وعوضا عنها نستخدم فكرة أن البحث إذا لم يسفر عن نتيجة فإن مؤشر القراءة الوهمي سيصبح نهاية الملف وهكذا نتصرف ونسأل عن خاصية نهاية الملف rstEmployees.EOF إذا كانت true فهذا يعني أننا لم نجد أي سجل يوافق البحث . 7. هذا كل شيء لا تنسوا إغلاق مجموعة التسجيلات في نهاية العمل كما فعلنا أيضا مع DAO . أليست البرمجة رائعة ؟؟ مع احترامي وتقديري لكم جميعاً. FindEmp_ADO_DAO.rar

السلام عليكم ، إخوان وأخواتي ، بارك الله فيكم جميعاً في هذا الجزء من الدرس سيتم إلقاء الضوء على تقنيات طرق التعامل مع مجموعات التسجيلات المختلفة في فيجوال بيسك وهي بشكل من الجديد إلى القديم ADO و DAO و RDO : في فيجول بيسك ، يتوفر هذه الواجهات (تقنيات اتصال) للوصول للبيانات : 1. ActiveX Data Objects (ADO) 2. Data Access Objects (DAO) 3. Remote Data Objects (RDO) وكل من هذه الثلاثة تمثل كائن من كائنات الوصول للبيانات بوجوه مختلفة ، وباستخدام VBA بإمكانك برمجيا التحكم بالاتصال ، بنى الجمل ، والبيانات التي سيتم إرجاعها للاستخدام في التطبيق. السؤال هو ؟ لماذا هناك 3 طرق للوصول للبيانات في الفيجوال بيسك ؟ من المعروف أن طريق الوصول للبيانات تتطور بشكل متواصل وكل طريقة من هذه الطرق تمثل مرحلة من المراحل الفنية في هذا التطور . الأخيرة (الأحدث) هي ADO ، والتي من خصائصها البساطة - ورغم البساطة الأكثر مرونة – من كلا RDO أو DAO . للمشاريع الجديدة ، ينصح بشدة اعتماد ADO كواجهة (تقنية) الوصول للبيانات. هذه النصيحة ليست من خضر الرجبي ولكن من ميكروسوفت نفسها وهنا المرجع http://msdn.microsoft.com/library/default....dwithrdodao.asp أما بالنسبة لي فكما ذكرت سابقا أن أنصح الجميع بمعرفة القديم والجديد وقد وضعت المبررات لذلك وأنا ماض بتعريفكم على ADO و DAO بإذن الله كما وعدت سابقا. لماذا نستخدم ADO ؟ تم تصميم ADO بأبسط مستوى اتصال في ميكروسوفت مع OLE DB ، و OLE DB توفر كفاءة عالية في الوصول إلى أي مصدر بيانات ، سواءً في قواعد البيانات العلائقية أو غير العلائقية (لعلمكم يوجد قواعد بيانات تسمى الشبكية و المهيكلة وهي الجيل السابق من قواعد البيانات) ، وكذلك من مصادر البيانات أنظمة الملفات والبريد الإلكتروني ، والبيانات النصية والرسومية ، وكائنات الأعمال المخصصة ، وغيرها من المصادر. ADO صممت لملائمة الحد الأدنى من التراسل عندما نتعامل مع بيئة وسيناريوهات الإنترنت ، وأيضا تضع الحد الأدني من الطبقات بين واجهة التطبيق النهائية يعني للمستخدم وبين مصدر البيانات – كل ذلك ضمن واجهة خفيفة ذات كفاءة عالية. وكذلك ADO تستعمل طرق محادثة وخصائص مشابهة لتلك في DAO و RDO ، مع تبسيط منطق هذه الطرق وذلك من أجل التسهيل على المستخدم . ماذا بشأن DAO و RDO ؟ من أجل التوافقية (compatibility) ولدعم المشاريع السابقة استمرت فيجوال بيسك بدعم DAO و RDO للمشاريع القائمة. مقارنة ADO مع RDO و DAO : ADO ليست متواقة-الكود تلقائيا مع تطبيقاتك التي تستعمل طرق الوصول للبيانات السابقة . بينما كبسلة (encapsulation) تتضمن العمليات المتوفرة في كل من ADO و RDO ، يجب عليك تحويل الكثير من عناصر اللغة لاستعمال قواعد ADO في مشروع كان يستخدم DAO إن أحببت التحويل. في بعض الحالات ، هذا يعني تحويل بعض الإقترانات فقط ، وفي البعض الأخر قد تحتاج لبناء التطبيق كاملا من جديد باستخدام خصائص ADO الجديدة. DAO (Data Access Objects) : هي أول واجهة كائنات-مرئية object-oriented تعامل به محرك قاعدة بيانات ميكروسوفت Jet والتي مكنت مستخدمي فيجوال بيسك من الوصول إلى الجداول الأكسيس مباشرة وكذلك لقواعد بيانات أخرى من خلال ODBC . لا شك أن DAO هي الأنسب لتطبيق يعمل على جهاز واحد وكذلك الأنسب لمؤسسة صغير منفردة. RDO (Remote Data Objects) : هو كائن-مرئي يستخدم في التواصل مع ODBC بشكل موحد ومستثمرا لسهولة DAO، للكائن RDO حدوديات ، ورغم ذلك ، أثبت أفضلية استعماله مع بعض المحركات المشهورة مثل SQL Server, Oracle . ADO هو الجيل الجديد واللاحق DAO/RDO . عمل ADO أقرب ما يكون من RDO ، وعادة يوجد الكثير من التشابه في طرق الاستعمال. نستطيع القول بأن ADO حل محل الكائنين معا . ومن الممكن في البداية أن تظن أن التعامل مع ADO صعبا إلا أنك ستكتشف بإن طريقة بناءه المهيكلة ستجعل من السهولة بمكان التعامل مع ببساطة شديدة . من المهم ملاحظة أيضا أن ADO حالياً لا يدعم جميع إقترانات DAO ، وهو يحتوي اسلوب الدعم أكثر المتوفر في RDO للتفاعل مع مصادر بيانات OLE DB بالإضافة لدعم المصادر البعيدة وكذلك تكنولوجية DHTML. بشكل عام ، ربما ما زال مبكرا الرحيل إلى استعمال ADO بشكل كامل (بإستثناء أولئك الذين يستعملون ODBCDirct) ، حيث أن ADO لا تدعم بشكل كامل data definition (DDL)، المستخدمين, المجموعات ، على كل الأحول إذا كنت تستخدم DAO فقط في تطبيقات client-server الخادم-الزبون ولا تعتمد عليه في لغة تعريف البيانات بشكل اساسي ، فربما حان الوقت. خلاصة القول : وهذا رأيي الشخصي ، أنه قد حان الوقت بالتأكيد لمن لم يعرف عن الاثنين للتعرف على الاثنين معا حتى يواكب القديم والحالي والقادم من التطبيقات . ولكم مني كل الاحترام والتقدير

السلام عليكم إخواني وأخواتي ، بارك الله فيكم جميعا الملحق 2 : نهاية درس الحلقات التكرارية . 1. يجدر الإشارة إلى تركيب أخر دوراني يندر استعماله حيث أن كفاءة الدورانات السابقة أكثر منه ولأنه لا يحتوي على طريقة للخروج إلا بتحقق شرطه وهو التركيب التالي : While condition [statements] Wend ويعمل طالما تحقق الشرط condition وبقي محققا يعني true فسيستمر تنفيذ التعليمات statements وعندما يصبح الشرط false يتنهي الدوران ولنأخذ مثالا عليه : لو أردنا أن نقوم بقراءة مجموعة كلمات وطباعة هذه الكلمات في النهاية على شكل جملة بحيث تنتهي القراءة عند إدخال كلمة توقف فيكون المثال كما يلي : Private Sub PrintStatement_Click() Dim W, Stat As String Stat = "" W = "" While Not W = "توقف" W = InputBox("أدخل كلمة") Stat = Stat & " " & W Wend MsgBox Left(Stat, Len(Stat) - 4) End Sub لاحظوا أننا طبعنا في النهاية قيمة state المتغير النصي الذي سيحتوي على كل الكلمات ولكن - 4 أي بدون الأربعة الحروف الأخيرة لأنها ستكون الكلمة توقف . 2. الخروج من الحلقات الدورانية: بشكل عام وكما لاحظنا في الدرس الأول فإن الخروج من الحلقة المشروطة يتم عندما يتحقق الشرط المطلوب للخروج وكذلك الحال بالنسبة للحلقات غير المشروطة for ... next فإن الخروج يتم عند اتمام عدد المرات للدوران. يمكن في كل الأحول ما عدا في (while ... wend) استخدام الخروج المباشر exit for أو exit do ومن أي مكان داخل الحلقة ، ويتم الخروج إلى الجملة التي تلي الحلقة مباشرة. فمثلا في مثال تحديد فيما إذا كان نموذج ما (معروف اسمه) مفتوحا أو لا سيترتب علينا عمل دورة ندور بها في كل النماذج ونفحص بها إذا كان النموذج مفتوحا أو لا ، والسؤال المفيد الذي يطرح نفسه هنا لماذ نستمر في الدوران إذا وجدنا النموذج المطلوب مفتوحاً، بكل تأكيد أن الجواب هو لا داعي للإستمرار في الدوران لأن ذلك سيكون مضيعة للوقت ، ويجب الخروج الفوري من الدوران . وللنظر إلى الإقتران التالي : Function IsOpen(ByVal MyFormName As String) As Boolean Dim i IsOpen = False For i = 0 To Forms.Count - 1 If Forms(i).FormName = MyFormName Then IsOpen = True Exit For End If Next i End Function وطريقة طلب الإقتران ستكون كما يلي : Private Sub FormCmd_Click() MsgBox IsOpen("form1") End Sub لاحظ أيضا أن هذا المثال يبين أنه يمكن استخدام exit من داخل if ، وكذلك يمكن استعمالها داخل جملة select إذا كان داخل دوران. 3. التكرار (الدوران) المتداخل Nested Loops مما لا شك فيه أن الدوران يمكن أن يتداخل ولنأخذ مثال على ذلك : نريد أن نقرأ من المستخدم كلمة فإذا كانت واحد يطلب منا إدخال رقم وإذا كانت أثنين يطلب منا إدخال رقمين وهكذا حتى خمسة وإذا طبعنا أي شيء غير واحد إلى خمسة يتوقف العمل وفي النهاية يطبع لنا مجموع جميع الأرقام التي تم إدخالها Private Sub AddAll_Click() Dim w As String Dim out As Boolean sum = 0 Do w = InputBox("الرجاء إدخال عدد الأرقم التي تريد جمعها واحد إلى خمسة أو اي شيء اخر للخروج") Select Case w Case "واحد": last = 1 Case "اثنين": last = 2 Case "ثلاثة": last = 3 Case "اربعة": last = 4 Case "خمسة":: last = 5 Case Else: last = 0 out = True End Select For i = 1 To last sum = sum + InputBox("أدخل رقم") Next i Loop Until out MsgBox "المجموع هو " & sum End Sub لاحظوا أنه في case else 1> تم تعيين قيمة out = true وذلك للخروج من الحلقة الخارجية المسؤولة عن إدخال الكلمات حيث ان هذه الحالة case يتم الدخول إليها في حال أدخلنا كلمة غير من واحد إلى خمسة. 2> تم تعيين قيمة last =0 حتى لا يتم تنفيذ الدوران for .. next لأنه يبدأ من 1. أترككم الآن مع هذا الدرس وسأذهب لأعد لكم درس جديد سيكون عن مجموعة التسجيلات فانتظروني ... :d مع الاحترام والتقدير ex1_re2.rar