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

السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك ولكن اطلب منك العذر للجميع .. فكل حسب مشغولياته ووقته واحب ان اعرفك معلوم بسيطة ( وعن تجربة في منتديات كثيرة ) اذا كان الموضوع به طلبات كثيرة يجعل البعض ان يحجم عن التقدم بحل لكثرة الطلبات في الموضوع الواحد ومشاركتك الثانية وطريقتها .. تجعل البعض ايضا يحجمون عن الرد .. فمن شروط المشاركات بالمنتدي عدم مناداه شخص باسمه للحل عنوان الموضوع وبعد اذنك وبعد ردك سوف اقوم بحذف المشاركة الثانيه بعد ردك هذا هو رأي شخصي فقط ونصيحة من اخ لأخيه .. ارجو ان تتقبلها بصدر رحب ========================== بالنسبة لموضوعك .. بقا ... فعذرا لم افهم المطلوب بعض الشئ ... وبعد اذنك سوف نقوم باخذ طلب او طلبين لفهم المطلوب بالتسلسل وان شاء الله يمكنني مساعدتك علي قدر استطاعتي ما المقصود بالعنوان الرئيسي ( تقصد الموجود بالفورم ) .. ولماذا من الصف السادس في حين ان هناك بيانات من الص الاول بالملف والمهم .. ما معني ان يكون الجلب للخلايا التي يتم فيها التعديل في هذا الصف ( هل هذه الخلايا محدد ام ماذا ) وفي ملفك المرفق لا يوجد رؤس للاعمدة ليمكن تسميتها في الفورم والتعامل معها وفي برنامجك قوت ( هذه نسخة من البرنامج لا يهمنى فقط الا نتائج الفورم والمطلوب عملة كالتالى ) ولكن يجب فهم الشكل العام لملفك ليمكن وضع اكواد الفورم لتتناسب مع طلبك عذرا علي الاطالة .. ولكني اردت التوضيح فق تقبل خالص تحياتي

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

السلام عليكم بعد العديد من المحاولات أخي محمد توصلت إلى كود يقوم بتصدير الباركود كما هو: Dim objWord As Object Dim oDoc As Object Dim i As Integer Dim j As Integer Dim sTemp As String DoCmd.OpenReport "report1", acViewPreview, , , acHidden Set objWord = CreateObject("word.application") Set oDoc = objWord.Documents.Add With objWord .Visible = True .selection.Font.Name = "MW6 Matrix" .selection.Font.Size = 22 .selection.ParagraphFormat.LineSpacing = 11 .selection.ParagraphFormat.SpaceAfter = 0 .selection.ParagraphFormat.SpaceBefore = 0 .selection.InsertAfter Reports![Report1]![Text0] End With oDoc.SaveAs2 CurrentProject.Path & "\ss123.docx" objWord.Quit DoCmd.Close acReport, "report1" Set objWord = Nothing Set oDoc = Nothing Desktop10.rar

نعم أخي محمد لا يوجد حرج في أن يطلب الشخص العون من إخوته. كلنا نحتاج و كلنا نطلب العون

المعذرة لم أتمكن من إكمال المشاركة السابقة لعدم استجابة المتصفح للتحرير 2- إنشاءالوظيفة ()IsMonth وهي تعود بقيمة منطقية، وتستقبل أيضا متغير يعود بقيمة عددية من خلال الحاوية التي أنسأنها 3- يوضح هذا المقطع مستعرض المراجع؛ وهو هنا يسرد قيم الحاوية التي أنشانها 4- هي لنافذة التنفيذ السريعة ويمكن من خلالها فحص الوظفة السابقة ومدى استجابة المحث بسرد قيم حاوية أسماء الأشهر.. يجب أن تظهر هذه القيم عند كتابة الوظيفة وبعد كتابة القوس الأيسير. وهذا مثال للتوضح T004.zip

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

شاهد المرفق .. ان شاء الله به طلبك علي حسب فهمي له اسم آخر شيت تم فتحه.rar

أخي الكريم ابا جودي لم افهم المشكلة بشكل واضح لكن إليك كود اخذ صورة من الماسح الضوئي وتخزينه في مكان محدد مسبقاً على الجهاز Public Function GetScan(strFileName As String) As Boolean Dim intRes As Integer Dim dlg As WIA.CommonDialog Dim mgr As WIA.DeviceManager Dim prc As WIA.ImageProcess Dim dev As WIA.Device Dim img As WIA.ImageFile Dim imgFmt As WIA.ImageFile Dim itm As WIA.Item Dim prp As WIA.Property Dim flis As WIA.FilterInfos Dim strFullPath As String Set dlg = New WIA.CommonDialog Set mgr = New WIA.DeviceManager Set dev = dlg.ShowSelectDevice Set itm = dev.Items(1) intRes = 300 itm.Properties("Current Intent") = 4 itm.Properties("Horizontal Resolution") = intRes itm.Properties("Vertical Resolution") = intRes Set img = dlg.ShowTransfer(itm) Set prc = New WIA.ImageProcess Set flis = prc.FilterInfos prc.Filters.Add flis("Convert").FilterID prc.Filters(1).Properties("FormatID").Value = wiaFormatPNG Set imgFmt = prc.Apply(img) 'imgFmt.SaveFile "C:\test.png" ومن ثم تحت زر امر سكان ضع الكود التالي Dim x, i x = 0 For i = 1 To Nz(Me.Text1, 1) call GetScan x = x + i Next i MsgBox "تمت عملية السكان بنجاح" حيث ان Text1 هو مربع نص غير منتضم في النموذج يتم تحديد عدد مرات اخذ سكان من خلاله تحياتي

يتم نسخ ملف DLL في ملف system32 ثم تسجيلها من ال run

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

السلام عليكم ورحمة الله وبركاته على الرغم انا لا اعرف شي عن المخازن و الفاتورة لكن حسب رأيي اولا اخفاء حقل نوع الفاتورة لانه النموذج هو نموذج المشتريات ثانيا اضافة حقل اخر باسم كيفية تسديد هل نقدا ام بواسطة شيك ام اجل ثالثا اخفاء حقل سعر الشراء من نموذج الفرعي ( لكن هذا حسب طلب ) اي واحد يريد ان لا يظهر لانه مايريد يعرف حدى اي المستخدمين عن اسعار الشراء رابعا قيمة افتراضي للحقل كمية الشراء بيكون يساوي 1 لكي يظهر النتيجة مباشرتا واذا اشترى اكثر تكدر تزيده بيد خامسا قيمة افتراضي للحقل خصم بيكون صفر لكي يظهر النتيجة مباشرتا واذا تم خصم بشيء تكدر تتغير بيد سادسا لكي تخطي من الرسالة الخطأ للاكسس اكتب في بدايةة الاكواد on error resume next هذا والله يعلم تقبل تحياتي

الحمد لله هذا الاعتراض يدل على أننا عملنا على مطلوب غير المراد فالله المستعان ولكن السؤال هنا هل كنت تريد بالضغط على جديد هو تكرار آخر سجل تم ادخاله مثلا واعادة حفظه مرة أخرى أم ماذا؟ تذكرت الآن كلمة كان يكررها أخى @شيفان ركانى - فهم السؤال نصف الاجابة -

وعليكم السلام الجواب الأول: قائمة القيم السردية التي تظهر معاملات (Parameters) هي في الحقيقة معرفات يعوض عنها بقيم عددية ثابتة .. وصيغتها كالتالي Enum SecurityLevel IllegalEntry = 1 SecurityLevel1 =2 SecurityLevel2 = 3 End Enum للأهمية.. يجب أن يعلن عن هذه المعرفات في أعلى الوحدة النمطية الجواب الثاني: يمكن جعل المعاملات اختيارية بوضع الصيغة الاختيارية Optional قبل اسم المعامل.. كالتالي Function Move(Optional Left As Integer, Optional Top As Integer) If IsMissing(Left) Then '..Do Something End If End Function

السلام عليكم الاخ الحبيب / سعد عابد بارك الله فيك جمعة مباركة تقبل خالص تحياتي

الاخ الحبيب / محمود الاسيوطى بارك الله فيك جمعة مباركة تقبل خالص تحياتي

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

السلام عليكم الاستاذ الفاضل العميد / دغيدى النظام لدي 32Bit ويعمل بشكل جيد جدا وسوف اقوم بتجربته علي جهاز 64 او يخبرنا احد الاعضاء ممن لديه نظام 64 جزاك الله خيرا

الاخت الفاضلة / سما محمد جزاكي الله خيرا

الاستاذ / جعفر ترباق الشكر دائما موصول لك جعل الله هذا العمل في ميزان حسناتك جزاك الله خيرا

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

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

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

السلام عليكم هذا برنامج كشوف المناداة توزيع كل الطلاب كل 3 لجان فى صفحة على خير ما تحبون تفضلوا مع إبداء الآراء يعمل على 2007 ونسخة ل 2003 توزيع اللجان.zip توزيع اللجان2003.zip

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

..... شاهدوا المرفق أخوكم عماد الحسامي

شرح طريقة حماية رأس و تذييل الصفحة فى مستند وورد شاهدوا هذا الفيديو

السلام عليكم ورحمة الله تعالى وبركاته منتظر الردود والتفاعل ان شاء الله واضع بذرة البداية وبافكار غير تقليديه اطلب من اخوانى الكرام التجربه وابداء الاراء ومن اساتذتى الكرام التحليل والتوجيه archives v5.rar الشروحات والتوضيحات للنقاط الهامة والتى تم اخذها فى الاعتبار فى المرفق الأول ـــــــــــــــــــــــــــــ 1- لا يمكن للمستخدم التلاعب فى التواريخ فى حالة وضع المرفق على شبكة نيتورك لان التاريخ يتم اخذه فى هذه الحاله من الجهاز المصدر (server) امممممممممم للتوضيح وضعت موديول يقوم بتحديث الاى بى الخاص يالجهاز ويتم تحديثه تلقائيا من نموذج frm_authorize 2- طبعا لابد من عمل شير لوكيشن لقاعدة البيانات على السيرفر واعطاء التصاريح باضافة ملفات 3- اضافة مجلد خاص لكل من الصادر والوارد 4- الترقيم تقائى لكل من الصادر والوارد ويبداء من رقم 1 فى بداية العام الجديد 5- يتم عمل مجلد لكل رقم صادر او وارد وبداخله رقم السنه الحاليه فى حالة اضافة مرفقات الكترونيه 6- من نموذج البحث يمكن فتح نموذج بكل البيانات للسجل المحدد الذى تم النقر عليه مرتين

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

أخي الكريم تم تطبيق الكود هنا في هذه المشاركة https://www.officena.net/ib/topic/76775-سحب-عدة-صور-من-خلال-الماسح-الضوئي/ يمكنك تجربة البرنامج نعم استاذي الكريم يمكن ذلك تابع هذا الموضوع https://www.officena.net/ib/topic/76775-سحب-عدة-صور-من-خلال-الماسح-الضوئي/?page=2#comment-491907

هو ممكن عمل ده ؟؟؟؟؟ ولو ممكن ممكن لو تكرمت حضرتك تعدل ع المرفق

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

اتفضل اليك هذا كود سيحذف الحقل DoCmd.SetWarnings (warningsoff) DoCmd.OpenTable "rrrr", acViewNormal DoCmd.GoToControl "vil" DoCmd.RunCommand acCmdDeleteTableColumn DoCmd.Close acTable, "rrrr", acSaveYes DoCmd.SetWarnings (warningson) وهذا الكود سيفرع الحقل DoCmd.SetWarnings (warningsoff) Dim sql as string sql = "UPDATE rrrr SET rrrr.Vil = "";" docmd.runsql (sql ) DoCmd.SetWarnings (warningson) غير "rrrr" باسم جدولك وغير "vil" باسم حقل تريد ان يحذفه

انا عملت الفكرة مثلها لو تلاحظة السؤال في اول الموضوع لكن كنت حابب اختصر 100 IF على العموم شكراً لحضرتك لانك اهتميت في الموضوع

بارك الله فيك و الموضوع جميل جداً انت حققتلى حلم

وعليكم السلام أخي الكريم حسين بارك الله فيك ومشكور على كلماتك الطيبة الكود بسيط جداً وليس معقد كما تعتقد .. فكرة الكود عمل حلقة تكرارية لأوراق العمل داخل المصنف (وقد قدمت فيديو لذلك) ، مع استثناء أوراق عمل معينة وقد أشرت إلى تلك النقطة في مشاركة سابقة حيث يوضع الشرط بعد بداية الحلقة وقبل نهاية الحلقة .. وما بين أسطر الحلقات يتم نسخ البيانات في أعمدة مساعدة تحددها بنفسك ففي المثال الأصلى استخدمت العمود I إلى M يمكن استخدام أي أعمدة بعيدة عن البيانات ... حدد السطر التالي Application.CutCopyMode = False ثم اضغط F9 من لوحة المفاتيح ونفذ الكود لهذا السطر فقط .. ستجد أن البيانات تم نسخها من أوراق العمل المختلفة إلى العمود رقم 9 .. قم بتغيير الرقم 9 إلى أي رقم عمود آخر Feuil1.Cells(Rows.Count, 9).End(xlUp).Offset(1).PasteSpecial xlPasteValues هذا فقط للتوضيح وسيلزم تغييرات أخرى في الأسطر اللاحقة من الكود ولكن أحببت أن أوضح لك البداية لكي تفهم ما يجري بعد ذلك تم الاعتماد على الأعمدة المساعدة في تحقيق المطلوب من خلال معادلات Sumproduct أرجو ان يفي الشرح بالغرض إن شاء الله

لو ان الموظف كان من الدرجة 1 في المرحلة 1 الجدول الثالث يعطي رقم 10 طيب ولو كان لو ان الموظف كان من الدرجة 2 في المرحلة 1 الجدول الثالث يعطي رقم ؟؟؟؟؟؟؟؟؟؟؟ لو ان الموظف كان من الدرجة 10 في المرحلة 1 الجدول الثالث يعطي رقم ؟؟؟؟؟؟؟؟؟؟ لو ان الموظف كان من الدرجة 3 في المرحلة 2 الجدول الثالث يعطي رقم ؟؟؟؟؟؟؟؟؟؟؟

تفضل تم التعديل اتمنى يوافق رغبتك بالنسبة للنموذج الفرعي واسناد المواد فتركته كما اعده استاذنا ابو عبدالله new2.rar

السلام عليكم أخي الكريم ناصر ابحث عن الإجراء الفرعي المسمى Sub Kh_JJJ(Nd As String) وعدل السطر التالي If .Cells(R, 1) = Nd Then ليكون بالشكل التالي If .Cells(R, 1) Like "*" & Nd & "*" Then

الاخ الفاضل / ابا جودي عمل طيب وفكرة مطلوبه لدي الكثير ولكن من معني اسم البرنامج " ارشفة الكترونية " ان تكون المرفقات اما مستندات تسحب من جهاز الكمبيوتر او مستندات او صور تسحب من الاسكنر واهم شئ واحتاج له شخصيا هي سحب اكثر من صورة دفعة واحدة من الاسكنر وحفظها في ملف . طبعا ان سبقت الاحداث ولكني في انتظار ظهور هده الملاحظة قريبا في البرنامج لاني بصراحة لم القي لها حل في اي موضوع يخص الارشفة في المنتدي عمل جيد منك وبداية موفقة ان شاء الله وانا سوف اتابع اعانك الله

اطلع على المرفق و وافني بالنتيجة

اليك ملف برنامج دريم للملابس (1).rar اللي عملت هو استعلام توحيد لنفس الاستعلام مرتين اي عملت توحيد استعلام رصيد المخزون مرتين اتفضل هذا هو الاستعلام SELECT [الفواتير اصناف].المكاتب, [الفواتير اصناف].التاريخ, [الفواتير اصناف].[رقم الفاتورة], [الفواتير اصناف].التوجيه, [الفواتير اصناف].الموديل, [الفواتير اصناف].السعر, [الفواتير اصناف].العدد, [الفواتير اصناف].[وقت التسجيل], [الفواتير اصناف].[اسم الصنف], [الفواتير اصناف].[اسم المورد], [الفواتير اصناف].التصنيف, IIf([التوجيه]="شراء",[العدد],IIf([التوجيه]="بيع",[العدد]*-1,IIf([التوجيه]="مرتجع شراء",[العدد]*-1,IIf([التوجيه]="مرتجع بيع",[العدد]*-1,IIf([التوجيه]="تحويل",[العدد],0))))) AS الرصيد1 FROM [الفواتير اصناف]; UNION ALL SELECT [رصيد المخازن].الاسم, [رصيد المخازن].التاريخ, [رصيد المخازن].[رقم الفاتورة], [رصيد المخازن].التوجيه, [رصيد المخازن].الموديل, [رصيد المخازن].السعر, [رصيد المخازن].العدد, [رصيد المخازن].[وقت التسجيل], [رصيد المخازن].[اسم الصنف], [رصيد المخازن].[اسم المورد], [رصيد المخازن].التصنيف, [رصيد المخازن].الرصيد2 FROM [رصيد المخازن]; تحياتي

جزاك الله خير

سيتم نقل الموضوع اى قسم اكسل ، للمكان الأنسب و للتفاعل اكثر ،

حاولت كثير لكن بدون جدوى لكن تكدر تعمل تصدير الى بي دي ايف

السلام عليكم اخوانى اتمنى ان اشارك معكم فى هذا العمل الرائع حتى يكون مرجع للاعضاء. اتمنى ان لا ينسي هذا الموضوع وهذه مشاركة محذوفة اتمنى ان تعيد تنشيط الموضوع . الدالة DateAdd يمكنك استخدام الدالة DateAdd لإضافة فاصل زمني معيّن أو طرحه من تاريخ ما. على سبيل المثال، يمكنك استخدام الدالة DateAdd لحساب تاريخ لمدة 30 يوماً من اليوم أو وقت لمدة 45 دقيقة من الآن. وصيغتها كالاتى DateAdd ( الفاصل الزمني، رقم، تاريخ ) الفاصل الزمني : ويوضع رمز للمتغير الذي تريد اضافة القيمة الزمنيه إليه رقـــــــــــــــــم : ويوضع الرقم الذى تريد اضافته للمتغير الذي قمت بتحديده تــــــــــــــاريخ : ويوضع هنا الزمن الذي به المتغير موضح به القيمه الحاليه حتى يتم اضافة الرقم إليه حسب المتغير الذي قمت بتحديده مثال 1 : يقوم المثال التالي بإضافة شهر واحد إلى 31 يناير DateAdd("m", 1, "31-Jan-95") جدول اكود المتغيرات " الفواصل الزمنيه " yyyy السنة q ربع سنوي m الشهر y يوم من السنة d اليوم w يوم من الأسبوع ww الأسبوع h الساعة n الدقيقة s الثانية مثال 2 : أذا اردت مثلاً اضافة شهر الى القيمه الحالية للتاريخ DateAdd("m", 1, Date)

معلومة مهمة لتخفيف حجم الملف طبعاً كلنا يعرف ان اوفيس 2003 يتكون من 65500 صف تقريبا ً و 256 عمود و افيس 2007 تقريباً مليون صف و 16000 عمود لاحظت عند تحديد جميع االصفوف مثلا من 1 : 65500 فى 2003 يزداد حجم الملف بطريقة غير عادية و بالتالى من المهم عند العمل تحديد النطاق المطلوب العمل عليه فقط من صفوف و اعمدة و كذلك التنسيق الشرطى يضاعف حجم الملف بشكل كبير عند التطبيق على جميع الخلايا و الافضل تطبيق التنسيق الشرطى على خلايا محددة

اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

اللهم آمين ... آمين ... آمين اللهم آمين ... آمين ... آمين الاخ الحبيب / ضاحي الغريب بارك الله فيك تقبل خالص تحياتي

السلام عليكم اخواني الكرام ابدأ بنفسي في تقديم الشكر للكبير / Jaafar Tribak وجعله الله في ميزان حسناته فالموضوع له والفضل بعد الله له والشكر واجب له جزاك الله خيرا