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

تفضل اضف هذا الكود في جميع الصفحات في حدث عند الفتح Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "Label" Then Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "") Form.Controls(ctl.Name).FontName = "Times New Roman" Form.Controls(ctl.Name).FontWeight = 900 End If If TypeName(ctl) = "CommandButton" Then Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "") Form.Controls(ctl.Name).FontName = "Times New Roman" Form.Controls(ctl.Name).FontWeight = 900 End If If TypeName(ctl) = "Page" Then Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "") End If Next ctl الترجمة بإستخدام Google Database12222.zip

تفضل هذا التعديل السهل و البسيط القي نظرة على الماكرو بعد التصدير ستجد ملف الاكسل بجوار برنامجك عملية الترحيل و الجلب من و الى اكسال.zip

وعليكم السلام ورحمه الله وبركاته مشاركه مع اخى واستاذى العزيز @Eng.Qassim جزاه الله خيرا Private Sub btnTrueOrFalse_Click() If Me.btnTrueOrFalse.Caption = "نعم" Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE main INNER JOIN aux ON main.id = aux.id SET aux.done = True " & _ "WHERE (((main.id)=[Forms]![main]![id]));" DoCmd.SetWarnings True Me.btnTrueOrFalse.Caption = "لا" Else DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE main INNER JOIN aux ON main.id = aux.id SET aux.done = false " & _ "WHERE (((main.id)=[Forms]![main]![id]));" DoCmd.SetWarnings True Me.btnTrueOrFalse.Caption = "نعم" End If Me.aux_نموذج_فرعي.Requery End Sub بالتوفيق اختيار نعم او لا_1.accdb

وما الذي تفعله بالتقرير الفارغ؟

احسنت اخي واستاذي @احمد الفلاحجي انا قصدت ان اعطي جزء من الكود من اجل البحث والتعلم

وعليكم السلام ورحمة الله تعالى وبركاته اعتذر جدا جدا جدا عن التأخير بسم الله ما شاء الله تبارك الله الله اكبر لو استطيع وضع اكثر من اعجاب واحد لفعلت الفكرة تستحق مليون اعجاب واكثر ويسرنى اليوم قبول هذه الهدية الرمضانية المتميزة و الرائعة و القيمة ممكن نعمل فكرة تانى بدلا من موضوع الاستيراد بس مش راح اقول لك عليها الان كل عام وانتم بخير يا باش مهندس @Moosak انتم وكل اساتذتى واخوانى الكرام كل عام وانتم الى الله اقرب وعلى طاعته ادوم ولفعل الخيرات اسبق و لسنة النبى الزم ولحب اتباعه اصدق ومن الجنة ادنى واقرب وعن النار ابعد . اسال الله تعالى الرحمة والعفو والغفران لكم و لكل المسلمين و لوالديكم و والداى برحمتك التي وسعت كل شيء . اللهم ان ابائنا قد احسنوا الينا منذ يوم ولادتنا اللهم وبحق هذا الاحسان ارحمهما و اغفر لهما برحمتك التى وسعت كل شيء . اللهم ارحم من فى بطن الارض من ابائنا و استرهم يوم العرض يارب العالمين يا رب انت خلقتهم وانت اخذتهم وانت الرحيم فليس غيرك ارحم بهم اللهم ارحمهم و اغفر لهم اكرم نزلهم و وسع مدخلهم اللهم اجعل قبورهم روضه من رياض الجنة واجمعنا بهم في جنة النعيم برحمتك يا ارحم الراحمين . ارحم يارب من مات منهم بالدنيا ولم يمت في قلوبنا اللهم ارحمه فهو اغلى من فقدنا واسكنه فسيح جناتك يا ارحم الراحمين. اللهم من بقى منهم فى هذه الدنيا بارك لنا يارب فى اعمارهم وارزقهم ثوب العافية وحبب الايمان الى قلوبهم وتقبل اعمالهم وارزقنا برهم وارض عنهم يارب واجعلهم راضين عنا يارب العالمين واحسن يارب خاتمتنا وخاتمتهم. اللهم امين امين امين 🤲🏻

TEST03.xlsm

=Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate] Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0) );0)+1 جرب الآن أخي عمر 🙂

جزاك الله خيرا علي المشاركة حياك الله وبياك وجدت هذا الموضوع https://stackoverflow.com/questions/18497942/function-optional-parameter-date-type-fails وقد أفدت من الاجابة الثالثة فيه وقمت ببعض التعديل علي الكود بهذا الشكل 1-if len(srfdate & "") >0 2- And srfdate <> 0 ' Replace Or By And 3- and srfdate <> null 4-And srfdate > #12/31/2000# 'Add Defulte value Can control by it وقد اعطتني الدالة قيم صحيحة والحمد لله لن أقوم بوضع علامة مجاب علي الموضوع لعلي اجد بمشاركات الأساتذة حلا محترفا أكثر وجزاكم الله خيرا

بعد إذنك أخي المهندس قاسم @Eng.Qassim 🙂 تفضل أخي طارق مع بعض التعديلات على الكود ونموذج الدخول بطريقتي 😉 بالنسبة لاستخدام اسم المستخدم في أي جزئية من أجزاء البرنامج قم باستدعائه بهذا السطر : =[TempVars]![userName] فقد قمت بحفظ أسم المستخدم في متغير مؤقت يحتفظ به طول فترة استخدام البرنامج .. ويغيره تلقائيا عند تبديل المستخدم لاسم للمستخدم الجديد .. ولكي يدخل لك اسم المدخل تلقائيا .. ضع السطر السابق كقيمة إفتراضية لذلك الحقل .. واجعل خصائص الحقل "محمي" لكي لا يتم تعديله يدويا : الآن وضعت لك مربع نص أعلى النموذج يظهر به اسم المستخدم تلقائيا 🙂 ومن الزر تبديل المستخدم تخرج وتدخل باسم مستخدم جديد : جورج الطويل تعديل 3 (1).accdb

السلام عليكم تفضل أخي الكريم .. مع بعض التعديل test01.xlsm

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية الرمضانية المتميزة والرائعة 😊 ( الكاتب الذكي لدوال المجال في أكسس ) Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg هذه الأسطورة هي عبارة عن أداة صممتها في أكسس ( بفضل الله وحمده ) تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. وتعطيك النتيجة بشكل مباشر 😉👌🏼 لن يخطيء أحد بعد اليوم في كتابة جملة هذه الدوال إن شاء الله 😁 كل ما عليك فعله هو استيراد هذه الأداة لبرنامجك ثم اختيار الجدول أو الاستعلام المطلوب والحقل المراد وبعدها سترى العجب العجاب 🙂 ✨ ومن مزاياها :✨ 1 - تسهل عليك كتابة أسماء الجداول والحقول ( فقط تختارها من القائمة المنسدلة ) . 2- يحل مشكلة تداخل النصوص عند استخدامها مع الجداول والحقول المكتوبة باللغة العربية . 3- تفحص لك النتيجة مباشرة للتأكد من أنك ستحصل على البيانات التي تريدها . 4 - سهلة الاستخدام فقط اتبع الخطوات الموضحة وتأكد من اختيار نوع البيانات الصحيح . 5 - يمكنك عمل دالة بأربعة 4 معايير بكل سهولة ويسر . 6 - يمكنك عمل تعديلاتك الخاصة على الدالة مباشرة وفحص النتيجة مباشرة بعد التعديل على النتيجة النهائية . 7 - إمكانية الحصول على الصيغة الخاصة بمحرر الأكواد VBA أو الصيغة المستخدمة في الاستعلامات ومنشيء التعبير . 8- إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها إلى برنامجك . 9- وغيرها الكثير مما سيفتح الله عليكم اكتشافه بأنفسكم إن شاء الله 😅 طريقة الاستخدام : سهلة يسيرة بحمد الله .. فقط قم بسحب النموذج المسمى SmartDomainFunctionsBuilder_F إلى برنامجك عن طريق السحب والإفلات .. ثم قم بفتح النموذج عندك وسوف يقوم هو آليا بالتعرف على الجداول والاستعلامات الخاصة ببرنامجك بدون الحاجة إلى جهد يذكر 🙂 ( مع إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها لبرنامجك ولكنك ستفقد الكثير من المميزات 😉 ) الأداة تم عمل الكثير من التجارب عليها وتم تلافي العديد من الأخطاء وإصلاحها بحمد الله وفضله... ولكن لا زلت لا أستغني عن آراءكم وملاحظاتكم من خلال استخدامكم لها 😉 الشرح بالتفصيل : 🙂 وهنا قمت بشرح الأداة بشكل مفصل نوعا ما في مقطع فيديو مدته نصف ساعة تقريبا : وأخيرا التحميل 😊 تحميل الملف الأصلي : >> حمل من هنا آخر إصدار للأداة << تحميل الملف بلمسات المهندس العزيز @د.كاف يار : د.كاف يار __Domain Functions Builder V1.0.accdb وأهم من الأداة نفسها 😉 لا تنسوني من صالح دعائكم لي ولوالدي .. ولا تحرموني من آرائكم ومقترحاتكم ونصحكم وإرشادكم 🙂 أخوكم ومحبكم موسى الكلباني 😊 ‏‏Domain Functions Builder V1.0.accdb

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

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

تفضلي هذا التعديل لكن يجب تسجيل الفصول الدراسية اولاً و تم اعداد نموذج لذلك و بعد التسجيل بالإمكان اختيار الاسابيع الدراسية حسب الفصل الدراسي المحدد New Microsoft Office Access 2007 قاعدة بيانات (2)(1).mdb

احسن الله اليك اخى ومهندسنا العزيز @Eng.Qassim وجزاك الله كل خير على كل ما تقدمه لاخوانك وجعله الله فى ميزان حسناتك 🌹 واعلم بان بمقدورك ان تقدم افضل مما قدمت اخى واحببت ان اشاركك الاجر والثواب 💐 فلك من كل المحبه والتقدير والاحترام اخى

الخاصية لم تكن مفعلة حتي لا تؤثر ضورالخلفية على التصفح مؤقتا تم تفعيل الخاصية لمجموعة الخبراء على سبيل التجربة

ان اردت التعيين على مربع نعم/لا استخد الكود [aux نموذج فرعي].Form![done].Value = -1

هل يوجد لديك ملف اكسل تريد تصدير البيانات اليه ؟ ام انك تريد انشاء ملف اكسل برمجياً ؟

جرب المرفق الاتى لو تكرمت Check Input Exist.accdb

هذا هو المطلوب بارك الله فيك

يسلموا ايديك اخي احمد بارك الله فيك

انا قمت بتحميل المرفق .... القاعدة تفتح وتعمل بشكل طبيعى جدا

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

تم حل المشكلة

استاذى بارك الله فيك نفس المشكلة فى المرفق الجديد احترامى

Check Input Exist.accdbتم تحديث المرفق فى رأس الموضوع تاربخ تحديث المرفق السبت 22 رمضان 1443 هـ , 23 -أبريل -2022 م تم إضافة وظيقة للتعرف نوع البيانات المستخدم فى الحقل داخل الجدول

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

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

الله الله جزاك الله عني و عن جميع المسلمين خير الجزاء اخيرا وجدت اداة تسهل عمل هذه الدوال الغريبة و الحساسة و الي ترفع الضغط

شكراً لكم جميعاً .. 🌹 تفاعل جميل منكم 😊

الحمد لله انك قد توصلت للحل هذه فكره كنت اظنها غير مفيده اكثر من انها تكون مفيده لكن مع ذلك حبيت اشاركها لعل ^_^ لكن طلع الحل فى مكان اخر فالحمد لله انها اتحلت المشكله مع حضرتك واعتذر عن تقديم حل حقيقى لك لقلة علمي

وعليك السلام ورحمة الله وبركاته أخي العزيز @أبو عبدالله الحلوانى 🙂 في تعريف المتغير هنا : ضع قيمة srtDate = "" a , ,وليس صفر 0 .. لأن الصفر لها قيمة في التاريخ عند البرنامج .. 🙂 .. أنظر عندما قلت له أن يحول الصفر إلى قيمة تاريخية ماذا أحضر لي : لذلك إن وجدها 0 فسوف يعطيك قيمة تاريخية .. لذلك ضع مكانها "" << علامة فارغة أو vbNull

اسمح لى اضع ملاحظه قد تكون ليس لها اى فائده لكن حابب اشارك معك فكره غبيه كده جرب تعيد ترتيب الاحتمالات مثلا اجعل ال null اولا ومن ثم الى الاحتمال التالى فالتالى ^_^

هذا مخالف يمكن ان تستخدم داله if مثل If IsNull(المعيار) Then الحالة الاولى Else الحالة الثانيه End If

وعليكم السلام ورحمه الله وبركاته اخى الفاضل هل تتفضل بارفاق مثال لما تريد وان شاء الله اخوانك واساتذتنا ما بيقصروا بالتوفيق

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

جرب هذه التجربة البسيطة جورج الطويل تعديل 3 .accdb

فيديوووووو جديددددد في الفيديو دة هانتغلب على معادلة الوقت لما تستخدم المعادلة دي في أي مجال باركود او تاريخ تسجيل يومي، بالوقت والتاريخ حقيقي الموضوع مهم جدا .... ممكن موش عارف أوصل المعلومة صح لكن من خلال الشرح هاتقدر تفهم قصدي https://youtu.be/gmIJqMLbCN4 كيفية إضافة التاريخ والوقت والتغلب على معادلة الوقت عند استخدام ماكينة الباركود.xlsx

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

اما عن هذا الموضوع فهو مخالف من البدايه من حيث طلب المساعده على الايميل ويحتوى على اكثر من سؤال غير مرتبط ببعض حتى لو يخص نفس البرنامج فلكل سؤال موضوع وهذا من قوانين الموقع وللصالح العام بالتوفيق

اعتقد انه لا ضرورة للترحيل من صفحة الترحيل لان الكود يقوم بترحيل كل شيء و يقوم بترتيبها بدل ان تقوم في كل مرة بالتبديل بين (الاول والثاني والثالث) في صفحة الترحيل ( اي اجراء حلقة تكرارية لتنفيذ ماكرو واحد 3 مرات متتالية) اما صفحة الترحيل اتركها لفرز البيانات بعد تنفيذ الماكرو تستطيع ان تذهب الى صفحة Summary و تجري هناك عملية Remove duplicates على كل الاعمدة ما عدا العامود الاول (حيث الترقيم) (يمكن تحرير ماكرو لهذا الغرض عند حذث Worksheet_Activate) او بواسطة زر يوضع في هذه الصفحة يقوم بهذا العمل الماكرو المطلوب Sub Remove_Dup() Sheets("Summary").Range("b5").CurrentRegion.RemoveDuplicates _ Columns:=Array(2, 3, 4, 5, 6, 7), Header:=1 End Sub

السلام عليكم ورحمة الله وبركاته أقدم لكم كيفية استخدام أداة التحكم RefEdit وكيفية استخدامها على الفورم ، وكيفية استغلالها للمعاينة أو الطباعة على سبيل المثال قم بإدراج فورم من قائمة Insert في محرر الأكواد ، ثم طبق الخطوات التالية كما في الصورة ، حيث يتم إدراج الأداة المسماة RefEdit1 ، وأيضاً إدراج زري أمر CommanButton1 و CommandButton2 أحدهما للمعاينة والآخر للطباعة وأخيراً ضع الكود التالي في حدث الفورم (كليك يمين على الفورم من نافذة المشروع ثم اختر View Code) لمزيد من المعلومات ولتحميل الملف المرفق انقر على الرابط التالي رابط الموضوع من هنا

السلام عليكم ورحمة الله تحية طيبة وبعد ,,, تم تعديل الملف ليتوافق مع الوقت المسموح بيه بالانصراف او الحضور الملف المرفق : راتب_الموظف_من_عن_طريق_البصمة.xlsm

العضو الكريم fafa5000 اولا مرحبا بك في منتدى اوفيسنا ثانيا يرجى قراءة توجيهات المنتدى جيدا كمل يرجي تغيير اسم الظهور الخاص بك للغة العربية لسهولة التعامل تفضل كلمة المرور اسم المستخدم admin كلمة المرور admin VBA Password 6626

حتى لايضيع الكتاب في زحمة المواضيع احببت ان اضيفه هنا ليستفيد منه الجميع وهو كتاب الكتروني فيه خلاصة دروس الدورة دورة في VBA.rar

أولا جزى الله الأخ أبو هاجر المصري خير الجزاء على ما قدم واليوم أقدم هدية لكل من يريد تعلم vba الإكسل موقع كامل لهذا الغرض هنـــــا وهذا رابط لترجمته عبر ترجمة جوجل هنــــــــــــــــــــــــــــــــــــا أتمنى أن أكون ساهمت ولو بقدر يسير أخوكم محمد صالح

السلام عليكم و لاهمية موضوع المصفوفات اود المشاركة بملف Pdf عباره عن شرح موسع شيئا ما لاخت من العراق الشقيق ارجو ان يكون له الفائدة خالص تحياتي ____array.rar

السلام عليكم ورحمة الله وبركاته * الأخ amoudi ماشاء الله عليك من غيرك فعلا الومضوع ده يبقى ناقص .... جزاك الله خيرا على الاضافات الممتعة ، ومعانا دائما * الأخ الأستاذ هادي ... جزاك الله خيرا مش انا بقولها طبعا دول كل الأعضاء الي متابعين الموضوع شكرا لك وياريت تعليقاتك الجميلة وإضافاتك الممتعة على طول ان شاء الله * الأخ justice شكرا لك كثيرا ، وهذه المداخلات هي جزء لا يتجزأ من الموضوع بل ومكمل ليه بالفعل .. * الأخ aah_aah2008 جزاك الله خيرا ، وان شاء الله تشاركنا بآراءك وموضوعاتك الطيبة * الأخ أحمد يعقوب جزاك الله خيرا ، ومنتظرينك تمتعنا برضة بتعليقك على الموضوع الأخوة الأعزاء نستكمل سويا الجزء الرابع وهذا هو الدرس الثالث 4) المصفوفات ( Arrays ) - المصفوفة هي عبارة عن مجموعة من المتغيرات التي لها اسم مشترك ، على سبيل المثال نحن نشير إلى متغير محدد بعينه في مصفوفة من خلال اسم المصفوفة ورقم فهرس هذا المتغير في المصفوفة . - على سبيل المثال يمكنك تحديد مجموعة من 7 سلاسل متغيرة من البيانات ليمثلوا عدد الأيام في الأسبوع ، وإذا قمت بتسمية المصفوفة NumDays ، يمكنك الإشارة إلى اليوم الأول في الأسبوع ( NumDays(1) ) واليوم الثاني ( NumDays(2) ) .. وهكذا ** إعلان المصفوفة .. - قبل أن تتمكن من استخدام المصفوفة ، يجب عليك الإعلان عنها أولا مثل متغير في VBA بـ Dim أولا أو بالتصريح العام ، إفتراضيا فإن VBA يحدد القيمة ( 0 ) كأقل فهرس ، وبالتالي تحتاج إلى تحديد عدد العناصر بالمصفوفة عن طريق تحديد فهرس أول رقم وفهرس آخر رقم بالمصفوفة ، والمثال التالي يوضح كيفية الإعلان عن عدد الأيام في الأسبوع ... Dim NumDays(1 to 7) As Integer - عندما تعلن عن مصفوفة ، يمكنك أن تحدد فقط القيمة العليا .. - كما يفترض VBA أن القيمة الصغرى هي ( 0 ) ، والمثالين التاليين يعينان نفس عدد العناصر ( 100 ) .. Dim MyArray(0 to 99) As Integer Dim MyArray(99) As Integer - إذا كنت تريد من VBA أن يحدد القيمة ( 1 ) بأنها القيمة الصغرى في المصفوفة ، فإنه يجب عليك أن تضيف الكود التالي في قسم الإعلانات لديك .. Option Base 1 - وتم هنا افتراض القيمة ( 1 ) كقيمة صغرى للمصفوفة من الآن ، وتمثل المصفوفة أعلاه 99 عنصرا بعد هذا الكود . ** تحديد قيم مجموعة من العناصر في مصفوفة .. افترض أننا بصدد تحديد القيمة ( 5 ) للفهرس الثالث في مصفوفة اسمها ( MyArray ) سيكون الكود كالتالي .. MyArray(3) = 5 ** المصفوفات متعددة الأبعاد .. لقد ألقينا نظرة على المصفوفات ذات البعد الواحد ، كما أن VBA يتيح لك الحصول على ما يصل إلى 60 بعد ، المثال التالي يعلن ( 5 ) أعداد في مصفوفة ذات بعدين .. Dim MyArray(1 to 5, 1 to 5) As Integer - يمكنك التفكير في أن هذه المجموعة تحتل المصفوفة ( 5 x 5 ) ، وإذا كنا نريد إسناد القيمة ( 5 ) إلى الفهرس الذي موضعه ( الصف الثاني والعمود الخامس ) من المصفوفة فإننا نستخدم الكود التالي .. MyArray(2, 5) = 5 - وبعبارة أخرى ، تم تخزين القيمة المتغيرة ( 5 ) في ( الصف الثاني و العمود الخامس ) من المصفوفة ( MyArray ) - وللمصفوفات ثلاثية الأبعاد ، يتم التفكير فيها على أساس أنها مصفوفة مكعبة ، تصور مصفوفة مكونة من أكثر من ثلاث أبعاد ، في الحقيقة هي شيء غاية في الصعوبة ، ولكن لا تقلق من البعد الرابع وما بعده فثق تماما أنك لن تحتاجه . ** المصفوفات الديناميكية ... - حتى الآن فقد قمنا بالإعلان عن مصفوفات محددة العناصر ، ولكن إذا أردت الإعلان عن مصفوفة بدون تحديد عناصرها .. Dim MyArray() As Integer - وهذه هي الطريقة لعمل مصفوفة ديناميكية ، عن طريق وضع قوسين فارغين بعد اسم المصفوفة .. - ولتغيير حجم المصفوفة ، يجب عليك استخدام تعبير ( ReDim ) لتخبر الـ VBA كم عدد عناصر المصفوفة ، وفي أغلب الأحيان ، فإن عدد عناصر المصفوفة يتحدد من خلال تشغيل برنامجك ، وتعبير ( ReDim ) يمكن استخدامه أي عدد من المرات لتغيير حجم المصفوفة كلما احتجت ذلك . - على سبيل المثال ، لو كنت بحاجة إلى تغيير حجم مصفوفة إلى ( 10 * 10 ) .. ReDim MyArray(10,10) As Integer - الآن فإنك قمت بتغيير الحجم أو العناصر بمصفوفة ديناميكية ، وكذلك لتعرف جيدا أنه عند إعادة تعيين عناصر مصفوفة ديناميكية باستخدام ( ReDim ) فإنك تمحي كل القيم المخزنة حاليا في جميع العناصر .. - وسوف يتم مناقشة جزئية المصفوفات بشكل مفصل في فصل قادم بإذن الله ... ** معلش يا جماعة هو جزء بسيط لكنه مهم جدا ، والدرس القادم بإذن الله عن المدخلات والمخرجات في VBA والسلام عليكم ورحمة الله وبركاته

استفد من المثال التالي ماعليك سوى تحديد مسار المجلد المذي توجد به الصور و تضعه بدقة في الاستعلام PictDatabase2000.rar