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

الدرس الثامن: دوال الرسائل هذا الدرس مخصص لشرح دوال الرسائل: MsgBox: تستخدم هذه الدالة من أجل عرض رسالة في مربع حوار. MsgBox (سياق, ملف التعليمات, العنوان, أزرار , النص) النص: (مطلوب) هو نص الرسالة التي ستعرض في مربع الحوار أزرار: (اختياري) هو تعبير رقمي يحدد نوع الازرار التي يجب ان تعرض العنوان: و يمثل عنوان مربع الحوار ملف التعليمات:(اختياري) تعبير سلسله يعرف ملف التعليمات لتوفير تعليمات تتبع للسياق لمربع الحوار. اذا تم توفير ملف التعليمات ، يجب ايضا توفير سياق . سياق: (اختياري) تعبير رقمي يمثل رقم محتوي التعليمات المعينه الي موضوع "التعليمات" الملائمه حسب الكاتب التعليمات. اذا تم توفير سياق ، يجب ايضا توفير ملف التعليمات . وضعيات الوسيطة أزرار: 0 عرض زر موافق فقط. 1 عرض الأزرار موافق و إلغاء الأمر . 2 عرض الأزرار إحباط + حاول مره أخري + تجاهل . 3 عرض الأزرار نعم + لا + إلغاء الأمر . 4 عرض الأزرار نعم + لا . 5 عرض الأزرار إعاده المحاوله + إلغاء الأمر . 16 عرض أيقونة رساله هامه . 32 تعرض أيقونة التحذير و الإستعلام . 48 عرض رمز رساله تحذير . 64 عرض رمز رساله معلومات. 0 الزر الأول هو الإفتراضي. 256 الزر الثاني هو الإفتراضي. 512 الزر الثالث هو الإفتراضي. 768 الزر الرابع هو الإفتراضي. 4096 نظام مشروط؛ يتم تعليق كافه التطبيقات حتي يستجيب المستخدم ل# مربع الرساله. 16384 إضافه الزر تعليمات إلي مربع الرساله 65536 يحدد إطار مربع الرساله كإطار المقدمه 524288 تتم محاذاه النص لليمين 1048576 يحدد يجب أن يظهر النص اليمين إلي اليسار للقراءه علي الأنظمه العربيه مثال: MsgBox "السلام عليكم", 3, "مرحبا" InputBox: يعرض مطالبة في مربع حوار و تنتظر قيام المستخدم بإدخال نص أو النقر فوق زر، و ترجع سلسلة تحتوي علي محتويات مربع النص. InputBox(«افتراضي»; «العنوان»; «مطالبة»; «xpos»; «ypos»; «helpfile»; «context») مطالبة : (مطلوب) عرض الرسالة في مربع الحوار العنوان: (اختياري) و يمثل عنوان مربع الحوار افتراضي: (اختياري) . عرض النص الإفتراضي في مربع النص. إذا حذفت الإفتراضي، يتم عرض مربع النص فارغ. xpos: (اختياري). تعبير رقمي يحدد، بوحده التويب المسافة الأفقية بين الحافة اليمني لمربع الحوار من الحافة اليسري للشاشة. ypos: (اختياري) تعبير رقمي يحدد، بوحده التويب، المسافه العمودية بين الحافة العلوية لمربع الحوار من أعلي الشاشة. ملف التعليمات:(اختياري) تعبير سلسله يعرف ملف التعليمات لتوفير تعليمات تتبع للسياق لمربع الحوار. اذا تم توفير ملف التعليمات ، يجب ايضا توفير سياق . سياق: (اختياري) تعبير رقمي يمثل رقم محتوي التعليمات المعينه الي موضوع "التعليمات" الملائمه حسب الكاتب التعليمات. اذا تم توفير سياق ، يجب ايضا توفير ملف التعليمات . مثال: Dim str As String str = InputBox("ادخل اسمك", "الاسم")

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم جميعا بخير أحبابي في الله اليوم موعدنا مع فيديو جديد للمتقدمين في الإكسل إلى عشاق التميز في التعامل مع نماذج إكسل يشرح كيفية تصغير نموذج الإكسل إلى شريط المهام إخفاء برنامج الإكسل Hide excel window إضافة زر تصغير للنموذج add minimize button to userform إضافة أيقونة لشريط عنوان النموذج add icon to title bar for userform إضافة أيقونة للنموذج في شريط المهام add icon to userform to taskbar تصدير موديول export module استيراد موديول import moduleأي استفسار لا تتردد في كتابة تعليق ادعمنا ب لايك كومنت شير ولا تنسوني من صالح دعائكم

اذن التأخير طبيعي المتبقي جعفر

السلام عليكم ورحمة الله استبدل الكود السابق بهذا الكود Sub ADDToArchive() Dim ws As Worksheet, sh As Worksheet, sm As Worksheet Dim LR As Long, x As Integer, cel As Range Set ws = ThisWorkbook.Sheets("ArchiveS") Set sm = ThisWorkbook.Sheets("مرايا للكشف") Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If sh.Name <> "ArchiveS" And sh.Name <> "مرايا للكشف" And sh.Name <> "قوائم" Then x = WorksheetFunction.Count(sh.Range("C6:C32")) sh.Range("C6:BI32").Copy LR = ws.Range("A" & Rows.Count).End(xlUp).Row ws.Range("A" & LR + 1).PasteSpecial xlPasteValues ws.Range("BH" & LR + 1).Resize(x + 1) = sm.Range("E1") ws.Range("BI" & LR + 1).Resize(x + 1) = sm.Range("F1") ws.Range("A6").Select Application.CutCopyMode = False End If Next End Sub

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

أشم رائحة عشاء يصير عندنا .. قولوا تم ..

تفضل 623.1.stu new.accdb.zip

السلام عليكم سيدي الفاضل ، عاشت ايدك ، اكواد بسيطة ونتائج رائعة التغييرات اللي انا عملتها: 1. اذا كتبت شيء ، وغيرت رأيك ، فتستطيع ان تضغط على الزر Esc (Escape) ، وسوف يختفي النموذج الفرعي ، Private Sub text76_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then SubFrm.Visible = False Else SubFrm.Visible = True End If End Sub 2. اذا كتبت شيء ، فارتفاع النموذج الفرعي يطول ويقصر مع عدد السجلات الموجودة ، اكثر عدد هو 3 ، Private Sub text76_Change() On Error Resume Next Dim x As String SubFrm.Visible = True x = Me.text76.Text Me.Text11.Value = x Me.SubFrm.Requery 'تغيير ارتفاع النموذج الفرعي حسب عدد سجلاته Dim rst As DAO.Recordset Set rst = Me.SubFrm.Form.RecordsetClone rst.MoveLast RC = rst.RecordCount If RC > 3 Then Me.SubFrm.Height = Me.SubFrm!FldText.Height * 3 Else Me.SubFrm.Height = Me.SubFrm!FldText.Height * RC End If rst.Close: Set rst = Nothing End Sub 3. اذا كتبت شيء ، ونقرت على الاسم في النموذج الفرعي ، فسيتغير سجل النموذج الرئيسي حسب الاسم المختار ، وهنا فانت لست بحاجة الى زر البحث Private Sub FldText_Click() 'Forms!formS1.ITEM_NEM = Me.FldText Me.Parent.text76 = Forms!formS1!SubFrm.Form.FldText.Text 'اظهر نتيجة البحث Me.Parent.Form.Requery 'Me.Parent.text76.SetFocus Forms!formS1!SubFrm.Form.Visible = False End Sub جعفر 624.test.mdb.zip

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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ...إخوتي الكرام السلام عليكم ورحمة الله وبركاته أحببت أن أعرض عليكم بعض إمكانيات الإكسيل الرائعة في تنسيق الأشكال في حال عدم توفّر الفوتوشوب أو البرامج الرسومية الأخرى ليظهر الملف بشكل أنيق ... حبث أنه يتمتع بجماليات في الخط والشكل وتناسق الألوان لكنه بعود على الملف بشيءٍ من البطء وزيادة حجم الملف .. الارتباطات التشعبية تظهر على شكل شفاف كقطرات الندى في صباح ربيعي مزهر..عند وضع المؤشر عليها تدلك على الورقة الهدف. راجياً من الله تعالى أن ينال إعجاب حضراتكم. اسم المستخدم :admin كلمة السر 123 ...بعض أوراق العمل محمية دون كلمة مرور ... والسلام عليكم ورحمة الله وبركاته. مكابس بلوك.rar

ترقيم تلقائي يتجدد مع بداية كل سنة على النحو التالي 1300001 1300002 1300003 1400001 1400002 وهكذا ................. باعتبار الرقم 13 ، 14 هو السنة والترقيم لاشك سيكون تبعا للسنة الحالية Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = Left(DMax("ID", "tbl1"), 2) xLast = DMax("ID", "tbl1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3, 5)) + 1 End If Me!ID = prtyr & Format(xNext, "00000") End Sub ترقيم تلقائي جديد كل سنة.rar

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

جزاك الله خيرا عني استاذي قمت بربط الجهاز ولكن الجهازلا يعطي اي نتيجة

وهذا مثال.. MsgBox "سوف يتم الخروج من البرنامج" & vbCrLf & "هل تريد الاستمرار؟", vbYesNo Or vbQuestion

مادام البرنامج شغال تمام ، فمافي داعي نغير فيه جعفر

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

ما راح أكلفكم كثير راح أجيب عشايا و أتعشى معاكم

أهلين أخي لقد شغلتني الأعمال المنزلية عن الدخول لبعض الوقت

فكرة حلوة من أساتذة حلوين أخي @jjafferr و @Shivan Rekany شكرا جزيلا و جزاكم الله خير الجزاء

ما اروعك اخي واستاذي الحبيب شكرا لك نزلت مرفقك وهو فوق الممتاز شكرا لك على مداخلتك جزاك الله الفردوس الاعلى تقبل تحياتي اخوك ( الصغير ) شفان ريكاني

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

جهود تذكر فتشكر .. بارك الله فيك ..

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

Private Sub Workbook_Open() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" Sheets(1).Select End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",TRUE)" Application.ScreenUpdating = True End Sub ضع هذة الاكواد في ThisWorkbook

شكرا أستاذى الكريم على الرد وبارك الله بكم قد وجدت المشكلة بأن البرتشن الموجود عليه الملف محمى ضد الكتابة - ولا توجد أى مشكلة بالملف كما كنت أعتقد منذ البداية - والصور التالية توضح حل المشكلة ( أو طريقة السماح بالكتابة على البرتشن المحمى ضد الكتابة) وأكرر شكرى لكم أستاذى الكريم ولكل أعضاء المنتدى المبارك (ما عدا أنا )

أخي جعفر انت تسحرنا بالكودات وهنا تجتمع البرمجة والسحر واكيد المبرمج ساحر ببرامجه اين اضع الكود وهل انتبهت اخي جعفر ان التعديلات على قيم من نفس لاجدول ؟؟

شو يا ابوعبدالله ، كيف تتوقع اني اعرف هذا النموذج هو طلبك؟؟ انا يا اشتغل مبرمج ويا ساحر ، بس ما يصير الاثنين مع بعض المبرمج يقول: استعمل هذه المعادلة: =Sum(Nz([حد الرسوب]+[حد النجاح],0)) جعفر

1. ما فهمت قصدك ، اعطني تفصيل بالارقام واسماء الحقول لوسمحت والمرفق اللي انت ارفقته هو نفس اللي انا ارفقته!! 2. تم حذف هذا الحقل اصلا ، ولا يوجد في المرفق ، فكيف طبقت عليه !! جعفر

أهلا بعودتك أخي جعفر وبارك الله بكم كل الأمور على ما يرام ولكن اذا سمحت لي أنظر المرفق عندما تكون القيم من نفس الجدول ما العمل ؟؟ قمت بالتطبيق ولكن لم يفلح ؟ مع كل تقديري و احترامي أخي جعفر 623.stu new.rar

الف مبروك اخي الفاضل ومنها للاعلى

هلا والله أخوي ابوعبدالله 1. هذا الكلام الزين ، تجربتك للبرنامج وجوابك كان على طول عملنا تغيير ، ووصلنا الى: النموذج الرئيسي: - عملت وحدة مستقله للجمع ، اسميته sTotal ، ولاحظ انه مب Private ، وإنما Public ، مما يعني اقدر اناديه من اي كائن (نموذج/تقرير/وحدة نمطية) في البرنامج ، - الحدث "في الحالي" يرسل طلب للوحدة sTotal بأن تقوم بالعمل ، والسبب اني اخرجت كود الحساب الى وحدة مستقلة هو ، لاحقا في البرنامج قد تضيف مجموعة اوامر اخرى في حدث الحالي ، وعندما تريد ان تقوم بعملية الجمع ، فلن تستطيع القيام بعملية الجمع بدون القيام بالاوامر الاخرى (ما عليه ، الموضوع بيتضح لك بعديييين ان شاء الله ، هذه خطوة استباقية) : Private Sub Form_Current() Call sTotal End Sub Public Sub sTotal() Me.Sum_Total = DSum("[الدرجة]+[حد الرسوب]", "qry_sfrm", "[رقم الطالب]=" & Me.[رقم الطالب]) End Sub والآن لما تضيف او تعدل الدرجة في النموذج الفرعي ، نريد ان نقوم بالعملية الحسابية ، فنقوم بحفظ السجل ، ثم مناداة الوحدة sTotal : Private Sub الدرجة_AfterUpdate() DoCmd.RunCommand acCmdSaveRecord Call Form_نموذج_الطالب.sTotal End Sub جعفر 623.stu new.accdb.zip

استبدل الفاصلة "," بفاصلة منقوطة ";" قي المعادلة أو العكس(حسب اعدادات الجهاز عندك) لتصبح هكذا =MOD($A1,4)=0 أو =MOD($A1;4)=0

وعليكم السلام ورحمة الله وبركاته @ابو زاهر ربِ أسألك أن تشفي زاهراً..و أن تعظم أجر والديه بصبرهما.. آمين مشاركة جيدة جداً... فكرة البرامج واضحة.. لكن التفاصيل فيها بعض التشويش استخدمت نمط التززين.. الآسيوي في الواجهة.. و الأمريكي في شاشة الدخول,, والأوربي في الباقي تقريا.. تكرار استخدام التصميم الواحد لأكثر منغرض؛ ليس سيئا.. لكن السيء أن يعاد نسخ التصميم بقدر تلك الأغراض. استخدم الجداول مباشرة في النماذج الفرعية بدلا من النماذج الجدولية إذا كنت تحرص على استخدامها.. الأصدارين الأخيرين من أوفس توفر أحداثا للجداول.. استفد منها إلى مستقبل زاهر بإذن الله

السلام عليكم أخوي ابو زاهر شكرا على الهدية ، ونسأل الله سبحانه وتعالى ان يسهل عليكم دنيا وآخره ، وان يشافي ولدكم وان يرعاه بعينه التي لا تنام ، وقد قمت بتغيير اسم الموضوع قليلا ، وذلك بإضافة اسم البرنامج فيه جعفر

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

اللَّهُمَّ ربَّ النَّاسِ ،أَذْهِب الْبَأسَ ، واشْفِ ، أَنْتَ الشَّافي لا شِفَاءَ إِلاَّ شِفَاؤُكَ ، شِفاءً لا يُغَادِرُ سقَماً

هلا والله زين ، اذن نحن في الطريق الصحيح بس سرعة الاستعلام الثاني لازم تكون مقارنة مع الاستعلام الاول ، فلوسمحت تخبرنا ايش الاشياء الاخرى اللي تعملها في الاستعلام الثاني ، يعني مو الغلط كله نخليه على البرنامج ، المبرمج كذلك عليه جزء من الغلط جعفر

الصراحة أنا شاكر كل من ساهم في هذا الموضوع سواء الأخ 1 - Rebaz Bahram 2 - Shivan Rekany 3 - أواب وأخيرا أستاذي الأستاذ / عبد الفتاح كيرة الذي تعلمت منه الكثير .... وأنا أخصه بالذكر في هذا الموضوع وهو يفهمني ماذا أقصد . بفضل من الله ثم منكم تمكنت من الوصول للحل النهائي كما كنت أريد بمشاركاتكم بعد دراستها وتحليلها وربطها ببعض لأتمكن من أن أصل لهذه النتيجة المبهرة مرفق النتيجة النهائية للملف شكرا لكم جميعا وبارك الله فيكم اظهار الدرجة خلف شبه المنحرف والدائرة.rar

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم ديو05 للاسف المرفق بصيغة accdb والاوفيس عندي 2003 يعمل بصيغة mdb جهزت لك ملف ارجو ان تجد ما تبحث عنه تحياتي db03.rar ============= نفس الملف مع اضافة زر امر تحياتي db03.rar

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

ما هي غايبة عن بالي من وقت كتابتي للموضوع إلى الأن وانا اعمل نسخ ولصق احاول اعمل مثال مصغر كل الامثلة طالعة معي باخطاء

السلام عليكم مطلب مهم جداً للكثيرين وهو عدم ترك حقول فارغة بنموذج الكود تجدونه أسفل الفيديو آسف لعدم التمكن من إرفاق الملف لكن الكود جاهز لوضعه بأى مكان

الــدرس الثاني : الجملة الشرطية ( IF ) تعتبر الجملة IF من أشهر الجمل الشرطية و أكثرها استعمالا في جميع لغات البرمجة ولها عدة صيغ كلها تبدأ بــIf و تنتهى بكلمة End If ما عدى صيغة واحدة. وتستخدم الجملة IF لتنفيذ عمليات معينة حسب شرط محدد, يعني إذا تحقق الشرط ينفذ و إلا فلا. طرق استعمال الجملة ((if: 1- الصيغة ( If –Then ) : - وصيغتها العامة : IF condition THEN statements - ومعنى هذه الصيغة : انه اذا تحقق الشرط (condition ) فسيتم تنفيذ الامر ( statements ) مثال : " مسن" IF age >=65 THEN category = 2- الصيغة ( If – Then – End If ) : صيغتها العامة : IF condition THEN statements1 Statements2 END IF تقوم هذه الصيغة بتنفيذ مجموعة من الاوامر اذا تحقق الشرط (Condition) بدلا من تنفيذ امر واحد. مثال : If age >= 25 Then category ="شباب" travail ="السن مقبول" End if 3- الصيغة ( If – Then – Else ) : صيغتها العامة : If condition Then statements1(التعليمات المنفذة في حال تحقق الشرط ) Else statements2(التعليمات المنفذة في حال عدم تحقق الشرط) End If - هذه الصيغة تنفذ مجموعة الأوامر (statements1 ) عندما يتحقق الشرط (condition ) و عندما لا يتحقق الشرط فإنها تنفذ مجموعة الأوامر (Statements2). مثال : If grade >= 50 Then Text1 ="ناجح" Else Text1 ="راسب" End If 4- الصيغة ( If – Then –ElseIf ) : - صيغتها العامة : If condition1 Then statements1( التعليمات المنفذة في حال تحقق الشرط الأول) ELSEIF condition2 THEN statements2(التعليمات المنفذة في حال عدم تحقق الشرط الأول و تحقق الشرط الثاني) ELSE statements2(التعليمات المنفذة في حال عدم تحقق جميع الشروط السابقة) End If مثال : If grade >= 90 Then Text1 ="ممتاز" ElseIf grade >= 80 Then Text1 ="جيد جدا" ElseIf grade >= 70 Then Text1 ="جيد" ElseIf grade >= 60 Then Text1 ="مقبول" Else Text1 ="راسب" End If ملاحظات: - في الصيغة الأخيرة ( If – Then –ElseIf ) اذا تحقق احد الشروط فان البرنامج ينفذ العملية ثم يذهب الى نهاية الجملة و لا يتحقق من الشروط الباقية. - في حالة أردنا إستعمال شرطين معا أو أكثر نستعمل العبارة And. - في حالة أردنا تحقق أحد شرطين ليتم تنفيذ العملية نستعمل Or

ملاحظاتك ممتاز و في محلها و متممة للمعنى ربما هنا من يستعمل اللغة العربية في تعريف المتغير بهذا الشكل : Dim الرقم_الأول As Integer ملاحظة: - القيمه الإفتراضية للمتغيرات النصيه هي فراغ " " - أما القيمه الإفتراضية للمتغيرات الرقميه هي صفر 0

أيضا يستحسن كتابة أسماء المتغيرات باللغة اللاتينية من أجل تسهيل التعامل معها و عدم حدوث مشاكل فيما بعد

على بركة الله نبدأ أول درس و ننتظر ملاحظاتكم حول أي شيء نسيته و هو متعلق بهذا الدرس أو أي معلومة أخطأت بها: الــدرس الأول : المتغيرات تعتبر المتغيرات النواة الأساسية أو حجر الأساس بالنسبة لكل برنامج في أي لغة برمجة كانت. يعني قبل البدأ يجب أن تقوم بتعريف المتغيرات التي تحتاجها و تحدد نوعها قبل كل شيء. 11- أنواع المتغيرت: هناك العديد من أنواع المتغيرات و كل نوع يخصص له حجم معين في الذاكرة. سوف نقوم بإضافة شرح جميع أنواع المتغيرات و الحجم الذي يأخذه كل نوع من الذاكرة: String: نص يتسع المتغير النصي إلى 2 جيجا بايت و كل حرف يشغل 1 بايت Boolean: ياخذ نوعين من القيم True و False (طوله 2 بيت ) Byte: بايت يكون رقم بين 0 من 255 (طوله 1 بايت) Integer : عدد صحيح (طوله 2 بيت ) قيمته من 32768- إلى 32767 Long : عدد صحيح طويل (طوله 4 بيت) قيمته من 2,147,483,648- إلى 2.147.483.647 Signal: عدد عشري (طوله 4 بيت) قيمته من 3.402823x1038- إلى 1.401298x10-45- للقيم السالبة و من 1.401298x10-45 إلى 3.402823x1038 للقيم الموجبة Currency: عملة (طوله 8 بيت) قيمته من 922،337،203،685،477.5808- إلى 922،337،203،685،477.5807 Double : مزدوج عدد عشري (طوله 8 بيت) قيمته من 1.79769313486231x10308- إلى 4.94065645841247x10-324- للقيم السالبة. و من 4.94065645841247x10-324 إلى 1.79769313486232x10308 للقيم الموجبة Date: نوع البيانات تكون على شكل تاريخ (طوله 8 بيت) يبدأ تاريخ vba من 1/1/100 حتى 31/12/9999 Object : لتخزين الكائنات التي تحتوي على خصائص و وظائف و يتم تعيينه بجملة set ويشغل في الذاكرة 4 بايت أو حسب خصائص و وظائف الكائن المحدد. و سوف نخصص درس لعرض أنواع الكائنات. Variant : لتخزين كل الأنواع السابقة ويمكن تخزين المصفوفات بداخله أيضاً 2- طريقة الإعلان عن المتغيرات: الإعلان عن متغير يعني حجز مكان في ذاكرة الكمبيوتر باسم هذا المتغير و يحدد حجمه حسب نوع المتغير. و يتم تعريف المتغير أو الإعلان عنه بواسطة العبارة DIM . مثال: Dim A as Integer للإعلان عن أكثر من متغير: Dim a,b as integer للإعلان عن أكثرمن متغير لأنواع مختلفة في نفس السطر: Dim A As Double, B As Integer 3- ملاحظات: - - يفضل الإعلان عن نوع المتغير لزيادة سرعة التعامل معه . - - المتغيرات التي لم تحدد نوعها يعمل فيجول بيسك علي الإعلان عنها تلقائيا من النوع Variant وهو أبطأ أنواع المتغيرات . - - بالنسبة للإعلان عن أكثر من متغير من نفس النوع بالطريقة التالي: Dim a,b as integer هنا b فقط من النوع integer أما a فهو في هذه الحالة يعتبر من النوع Variant يجب أن يتم التعريف بهذا الشكل: Dim a integer,b as integer أو Dim a as Integer Dim b as Integer 4- شروط تسمية المتغيرات: - - اسم المتغير يجب أن يبتدأ بحرف . - - يمكن استعمال الحروف التي تلي الحرف الأول رقم أو حرف أو الإثنين معا. - - لا يجب أن تكون هناك فراغات بين أسماء المتغير و يمكن استعمال الشكل التالي: id_user - - يجب عدم استعمال نقطة أو رمز خاص مثل ( ؟ ، * ، ) ، ( ، /......... إلخ ) ولكن يمكن استخدام الشرطة السفلية ( _ ) - - أن لا يكون اسم المتغير من الكلمات المحجوزة في الأكسس.

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

صحيح لو زاد عن الثلاث سنوات تعطي النتيجة 4 والحل هو ان تستخرج الايام ثم تقسمها على 360 مثال : =Round(DateDiff("d";[Date1];[Date2])/360;2) Round لتقريب الكسر واخترنا 2 للتقريب الى عددين عشريين ويمكنك استخدام هذه الدالة لاستخراج الايام والشهور والسنين : Function BetwnDate(Date1 As Date, date2 As Date) Dim sYears As Integer, sMonths As Integer, sDays As Integer sMonths = DateDiff("m", Date1, date2) sDays = DateDiff("d", DateAdd("m", sMonths, Date1), date2) If sDays < 0 Then sMonths = sMonths - 1 sDays = DateDiff("d", DateAdd("m", sMonths, ), date2) End If sYears = sMonths \ 12 sMonths = sMonths Mod 12 BetwnDate = sYears & "سنة, " & sMonths & "شهر, " & sDays & "يوم" End Function تلصقها في وحدة نمطية عامة ثم تستخدمها هكذا داحل مربع النص: =BetwnDate([Date1] ;[date2])

السلام عليكم اعتقد ان الاصدار 2003 هو الاحسن

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