اذهب الي المحتوي
أوفيسنا

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

  1. حمادة عمر

    حمادة عمر

    المشرفين السابقين


    • نقاط

      43

    • Posts

      6205


  2. صالح حمادي

    صالح حمادي

    أوفيسنا


    • نقاط

      14

    • Posts

      1748


  3. sandanet

    sandanet

    الخبراء


    • نقاط

      7

    • Posts

      1366


  4. ياسر خليل أبو البراء

    ياسر خليل أبو البراء

    المشرفين السابقين


    • نقاط

      6

    • Posts

      13165


Popular Content

Showing content with the highest reputation on 04/16/17 in مشاركات

  1. السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك ولكن اطلب منك العذر للجميع .. فكل حسب مشغولياته ووقته واحب ان اعرفك معلوم بسيطة ( وعن تجربة في منتديات كثيرة ) اذا كان الموضوع به طلبات كثيرة يجعل البعض ان يحجم عن التقدم بحل لكثرة الطلبات في الموضوع الواحد ومشاركتك الثانية وطريقتها .. تجعل البعض ايضا يحجمون عن الرد .. فمن شروط المشاركات بالمنتدي عدم مناداه شخص باسمه للحل عنوان الموضوع وبعد اذنك وبعد ردك سوف اقوم بحذف المشاركة الثانيه بعد ردك هذا هو رأي شخصي فقط ونصيحة من اخ لأخيه .. ارجو ان تتقبلها بصدر رحب ========================== بالنسبة لموضوعك .. بقا ... فعذرا لم افهم المطلوب بعض الشئ ... وبعد اذنك سوف نقوم باخذ طلب او طلبين لفهم المطلوب بالتسلسل وان شاء الله يمكنني مساعدتك علي قدر استطاعتي ما المقصود بالعنوان الرئيسي ( تقصد الموجود بالفورم ) .. ولماذا من الصف السادس في حين ان هناك بيانات من الص الاول بالملف والمهم .. ما معني ان يكون الجلب للخلايا التي يتم فيها التعديل في هذا الصف ( هل هذه الخلايا محدد ام ماذا ) وفي ملفك المرفق لا يوجد رؤس للاعمدة ليمكن تسميتها في الفورم والتعامل معها وفي برنامجك قوت ( هذه نسخة من البرنامج لا يهمنى فقط الا نتائج الفورم والمطلوب عملة كالتالى ) ولكن يجب فهم الشكل العام لملفك ليمكن وضع اكواد الفورم لتتناسب مع طلبك عذرا علي الاطالة .. ولكني اردت التوضيح فق تقبل خالص تحياتي
    5 points
  2. قم اخي الكريم بضغط ملفك باحد برامج الضغط ثم قم بارفاقة حيث انه متاح ارفاق ملفات لاي عضو ولكن يجب ان تكون مضغوطة فقط تقبل خالص تحياتي وفي انتار ردك
    4 points
  3. السلام عليكم بعد العديد من المحاولات أخي محمد توصلت إلى كود يقوم بتصدير الباركود كما هو: 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
    4 points
  4. نعم أخي محمد لا يوجد حرج في أن يطلب الشخص العون من إخوته. كلنا نحتاج و كلنا نطلب العون
    2 points
  5. المعذرة لم أتمكن من إكمال المشاركة السابقة لعدم استجابة المتصفح للتحرير 2- إنشاءالوظيفة ()IsMonth وهي تعود بقيمة منطقية، وتستقبل أيضا متغير يعود بقيمة عددية من خلال الحاوية التي أنسأنها 3- يوضح هذا المقطع مستعرض المراجع؛ وهو هنا يسرد قيم الحاوية التي أنشانها 4- هي لنافذة التنفيذ السريعة ويمكن من خلالها فحص الوظفة السابقة ومدى استجابة المحث بسرد قيم حاوية أسماء الأشهر.. يجب أن تظهر هذه القيم عند كتابة الوظيفة وبعد كتابة القوس الأيسير. وهذا مثال للتوضح T004.zip
    2 points
  6. بارك الله فيك فعلا تلك الموضيع تجعلنا نبحث ونستفيد بس اوقات الواحد دماغه بتقفل فايفضل حينها الاستعانة بالاصدقاء في المنتدي شكرا لك اخي شيفان علي محاولاتك معنا بارك الله فيك
    2 points
  7. شاهد المرفق .. ان شاء الله به طلبك علي حسب فهمي له اسم آخر شيت تم فتحه.rar
    2 points
  8. أخي الكريم ابا جودي لم افهم المشكلة بشكل واضح لكن إليك كود اخذ صورة من الماسح الضوئي وتخزينه في مكان محدد مسبقاً على الجهاز 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 هو مربع نص غير منتضم في النموذج يتم تحديد عدد مرات اخذ سكان من خلاله تحياتي
    2 points
  9. يتم نسخ ملف DLL في ملف system32 ثم تسجيلها من ال run
    2 points
  10. العفو أخي ما فيه أي تعب المهم أننا وصلنا إلى النتيجة. موضوعك كان رائعا و أشكرك جزيلا الشكر لأن مثل هذه المواضيع تجعلنا نبحث أكثر و نستفيد أكثر.
    2 points
  11. السلام عليكم ورحمة الله وبركاته على الرغم انا لا اعرف شي عن المخازن و الفاتورة لكن حسب رأيي اولا اخفاء حقل نوع الفاتورة لانه النموذج هو نموذج المشتريات ثانيا اضافة حقل اخر باسم كيفية تسديد هل نقدا ام بواسطة شيك ام اجل ثالثا اخفاء حقل سعر الشراء من نموذج الفرعي ( لكن هذا حسب طلب ) اي واحد يريد ان لا يظهر لانه مايريد يعرف حدى اي المستخدمين عن اسعار الشراء رابعا قيمة افتراضي للحقل كمية الشراء بيكون يساوي 1 لكي يظهر النتيجة مباشرتا واذا اشترى اكثر تكدر تزيده بيد خامسا قيمة افتراضي للحقل خصم بيكون صفر لكي يظهر النتيجة مباشرتا واذا تم خصم بشيء تكدر تتغير بيد سادسا لكي تخطي من الرسالة الخطأ للاكسس اكتب في بدايةة الاكواد on error resume next هذا والله يعلم تقبل تحياتي
    2 points
  12. الحمد لله هذا الاعتراض يدل على أننا عملنا على مطلوب غير المراد فالله المستعان ولكن السؤال هنا هل كنت تريد بالضغط على جديد هو تكرار آخر سجل تم ادخاله مثلا واعادة حفظه مرة أخرى أم ماذا؟ تذكرت الآن كلمة كان يكررها أخى @شيفان ركانى - فهم السؤال نصف الاجابة -
    2 points
  13. وعليكم السلام الجواب الأول: قائمة القيم السردية التي تظهر معاملات (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
    2 points
  14. السلام عليكم الاخ الحبيب / سعد عابد بارك الله فيك جمعة مباركة تقبل خالص تحياتي
    2 points
  15. الاخ الحبيب / محمود الاسيوطى بارك الله فيك جمعة مباركة تقبل خالص تحياتي
    2 points
  16. السلام عليكم الاستاذ القدير والاخ الحبيب / جمال عبد السميع بارك الله فيك .. جمعة مباركة .. تقبل خالص تحياتي جزاك الله خيرا
    2 points
  17. السلام عليكم الاستاذ الفاضل العميد / دغيدى النظام لدي 32Bit ويعمل بشكل جيد جدا وسوف اقوم بتجربته علي جهاز 64 او يخبرنا احد الاعضاء ممن لديه نظام 64 جزاك الله خيرا
    2 points
  18. الاستاذ / جعفر ترباق الشكر دائما موصول لك جعل الله هذا العمل في ميزان حسناتك جزاك الله خيرا
    2 points
  19. السلام عليكم الاستاذ القدير / عباد بارك الله فيك ولك مني اجمل تحيه واضم صوتي لصوتك ... في طلب العودة للاستاذ / جفعر كما كان في السبق معنا بتواجده الدائم جزاه الله خيرا الاستاذ الكبير / رجب جاويش بارك الله فيك ليس لي في الموضوع شئ الا انني احببت ان افيد اعضاء اسرتي هنا في هذا الصرح لعملاق حيث رووعه الملف والاتقان والجديد جدا فجزيل شكرنا للكبير / جعفر تربياق ... جعله الله في ميزان حسناته جزاكم الله خيرا
    2 points
  20. السلام عليكم الاخ العزيز / عباس السماوي بارك الله فيك ودائما انت سباق للخير ... جعله الله في ميزان حسناتك الاستاذ الحبيب / أبو حنين بالفعل معك حق ... لم يكن احد يتوقع عمل ذلك ولكن بمراجعة ملفات الاستاذ / جفعر التي صادفتني ومواضيعه وجدت انه لا مستحيل معه ... مثلكم دائما في كل الردود علي الاخوة الاعضاء فالشكر الاكيد للكبير الاستاذ / جعفر ... جزاه الله خيرا وجعله الله في ميزان حسناته جزاكم الله خيرا
    2 points
  21. السلام عليكم الاساتذة والاخوة الكرام الاستاذ / خالد القدس الاخ الكريم / عمر أبو صهيب الاخ العزيز / احمد عبد الناصر شكرا جزيلا لمروركم واتمني من الله ان يكون قد افادكم الموضوع .... عن حق ... الموضوع كله افادة بارك الله فيكم وبالتأكيد ندعو جميعا للكبير / جعفر ترباق ... جزاه الله خيرا بأن يجعل هذا العمل في ميزان حسناته جزاكم الله خيرا
    2 points
  22. السلام عليكم هذا برنامج كشوف المناداة توزيع كل الطلاب كل 3 لجان فى صفحة على خير ما تحبون تفضلوا مع إبداء الآراء يعمل على 2007 ونسخة ل 2003 توزيع اللجان.zip توزيع اللجان2003.zip
    1 point
  23. السلام عليكم و رحمة الله تعالى وبركاته أساتذة و خبراء منتدانا الغالي حياكم الله أردت أن أنجز عمل بمعيتكم الكريمة . و هو إنجاز سلسلة دروس في vba الأكسس لتقوم إدارة المنتدى من بعد ذلك بتثبيت هذا الموضوع ليطلع عليه كل من يريد التعلم و يبقى صدقة جارية لكل من ساهم فيه و لو بحرف واحد. العمل سوف يقسم إلى مجموعة دروس مثلا : المتغيرات ,الجمل الإختيارية , الجمل التكرارية , الكائنات ......الخ. و سوف نحاول شرح جميع دوال و تعليمات VBA أكسس الموجودة مع إعطاء أمثلة في نهاية كل درس. على أن يتم تجميعه في الأخير مرتبا حسب تسلسل الدروس و لا يتم الإنتقال من درس لآخر حتى نستوفي كل ما نستطيع حول هذا الدرس. العمل المطلوب: كلما نبدأ في درس جديد. يقوم الأساتذة الكرام بتقديم الدوال و التعليمات التي تندرج تحت عنوان هذا الدرس و تقديم شرحها مع وضع مثال بسيط لإستعمال الدالة أو التعليمة على أن لا يتم تكرار الدوال و التعليمات الموجودة مسبقا في الدرس من قبل أحد الأعضاء. و قبل البدء أنتظر إقتراحاتكم فيما يخص طريقة العمل أو ترتيب دروس و عناوينها. و إن شاء الله غدا أو بعد غد سوف نبدأ بالعمل على بركة الله.
    1 point
  24. 1 point
  25. شرح طريقة حماية رأس و تذييل الصفحة فى مستند وورد شاهدوا هذا الفيديو
    1 point
  26. تفضل أخي ابا جودي اتمنى ان يكون تعديلي مناسب لك .. طبعاً عند اخذ اكثر من صورة فانه يلزمك دالة تسمية عشوائية لكل صورة .. طبعا انا وضعت دالة تعطيك رقم عشوائي للصورة بالاضافة الى كود الموظف الذي سيكون في بداية تسمية الصورة ليكون بهذا الشكل 1_15.png انظر المرفق تحياتي test scan.zip
    1 point
  27. تمام الله ينور عليك أخي العزيز حسين الحمد لله الذي بنعمته تتم الصالحات والتعديل على الكود سيكسبك خبرة أكثر ومع الوقت ستتمكن من كتابة الأكواد بنفسك تقبل تحياتي
    1 point
  28. جزيت خيراً أخي الكريم ناصر بمثل ما دعوت لي قمت منذ ساعة تقريباً بتسجيل فيديو يوضح كيفية عمل إجراء عام والأمر مشابه إلى حد كبير للمطلوب
    1 point
  29. استاذي ياسر خليل أبو البراء جربته وهو يعمل انظر المرفق Nouveau Archive WinRAR (3).rar
    1 point
  30. السلام عليكم ورحمة الله بداية.. موضوع الارشفة موضوع كبير يحتاج الي تقسيم العمل حتي يخرج في احسن صورة.. وقد قام اخي العزيز @ابا جودى بوضع البذرة.. بل ما هو اكثر من البذرة.. ولا اخفي عليكم ان تحليل وفهم معني الارشفة يوفر الكثير من الوقت والجهد.. فلتتخيل مثلا انه يمكن ببرنامج ارشفة متكامل ان نجعل المؤسسة او الشركة او اي جهة تعمل بها البرنامج ان تستغني عن الورق تمام.. (مع اني لا افضل ذلك لاسباب ليس وقتها اذكرها) المهم نستطيع ان نجعل (مؤسسة بلا ورق) من خلال الارشفة الالكترونية من البداية وكل هذا يتحقق باعتماد توقيع الكتروني.. فيمكننا مثلا من عمل خطاب صادر وارسله الكترونيا بمرفقاته الي اي ادارة داخل المؤسسة او خارجها.. وايضا يمكن متابعتها والتنبيه بانتهاء وقت متابعتها.. الخ والكثير والكثير هذا مقدمة اللي جت في ذهني دلوقتي المهم قمت بتجربة مثال اخي ابا جودي صباحا وهو ماشاء الله وفر مرفق لكل الباحثين عن موضوع الوارد والصادر والارشفة الالكترونية (ادارة المراسلات) ومن وجهة نظري التي لا قيمة لها هناك بعض الاشياء البسيطة التي رأيتها اثناء معاينة المرفق 1- لا تعطي صلاحية لاي مستخدم بحذف خطاب (وارد او صادر) نهائيا بعد حفظه وتسجيله حتي ولو برقم سري حتي لا نفقد الرقم الصادر المسلسل.. طب لو فرضنا انه تم الغاء الخطاب او اي سبب اخر.. نعمل ايه.. نقوم بالتعديل علي البيانات المدخلة وندخل بيانات لصادر اخر بنفس الرقم او.. بدل ما نحذفه حذف نهائيا نقوم بعمل جدول للبيانات المحذوفة وننقل له السجل كامل الذي لا نريده حتي لا نفتقده ونستعيده وقتما نشاء 2- بالنسبة للمرفقات يمكنك ادراج دفعة من المرفقات مرة واحدة من الكمبيوتر وتسميتها كما تريد في النموذج الفرعي الخاص بالمرفقات هذا وسوف اكمل الاطلاع وافيكم بباقي الملاحظة ان وجدت ولكن ماشاء الله العمل جميل جدا جدا يتبع اخي العزيز هل جربت تلك الطريقة ونجحت معك؟ ومعلش ممكن تطبيقها بمثال بسيط لنطلع ونري اكثر حيث انني افضل الاعتماد علي برنامج خارجي للسحب من الاسكنر.. ومن ثم بعد السحب الادراج في البرنامج.. وحتي لا اثقل علي الاكسس
    1 point
  31. وعليكم السلام أخي الكريم حسين الكود بهذا الشكل مع الملف الجديد لا أعتقد أنه صحيح إذ يلزم أن تكون الأعمدة المساعدة بعيدة عن مجال البيانات .. قم بالتعديل وتجربة الكود وانظر هل النتائج صحيحة أم لا؟ حاول تدرس الكود وتفهم الأسطر المكتوبة لتستطيع أن تعدل عليه ، وإذا واجهك سطر غير واضح أخبرنا وسنقوم بشرحه إن شاء العلي القدير
    1 point
  32. اتفضل اليك هذا كود سيحذف الحقل 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" باسم حقل تريد ان يحذفه
    1 point
  33. وعليكم السلام أخي الكريم حسين بارك الله فيك ومشكور على كلماتك الطيبة الكود بسيط جداً وليس معقد كما تعتقد .. فكرة الكود عمل حلقة تكرارية لأوراق العمل داخل المصنف (وقد قدمت فيديو لذلك) ، مع استثناء أوراق عمل معينة وقد أشرت إلى تلك النقطة في مشاركة سابقة حيث يوضع الشرط بعد بداية الحلقة وقبل نهاية الحلقة .. وما بين أسطر الحلقات يتم نسخ البيانات في أعمدة مساعدة تحددها بنفسك ففي المثال الأصلى استخدمت العمود I إلى M يمكن استخدام أي أعمدة بعيدة عن البيانات ... حدد السطر التالي Application.CutCopyMode = False ثم اضغط F9 من لوحة المفاتيح ونفذ الكود لهذا السطر فقط .. ستجد أن البيانات تم نسخها من أوراق العمل المختلفة إلى العمود رقم 9 .. قم بتغيير الرقم 9 إلى أي رقم عمود آخر Feuil1.Cells(Rows.Count, 9).End(xlUp).Offset(1).PasteSpecial xlPasteValues هذا فقط للتوضيح وسيلزم تغييرات أخرى في الأسطر اللاحقة من الكود ولكن أحببت أن أوضح لك البداية لكي تفهم ما يجري بعد ذلك تم الاعتماد على الأعمدة المساعدة في تحقيق المطلوب من خلال معادلات Sumproduct أرجو ان يفي الشرح بالغرض إن شاء الله
    1 point
  34. طيب اخي ابو عبدالله بما ان مشكلة الكومبو بوكس هوا حقل مبني على استعلام او اضافة لماذا لا تعمل حل ابسط ومفيد عند الضغط على جديد يفتح لك نموذج مطابق للنموذج الموجود لديك لكن هناك تغير بسيط بدل الكومبو بوكس يصبح تكست بوكس تضيف الطالب الجديد ثم تعمل اغلاق ليعود الى الواجهة القديمة وتلاحظ وجود الطالب الجديد افضل حل لك وللاخوان يتم حل مشكلتك بأسلوب ثاني وليس بشرط الكومبوبوكس
    1 point
  35. الاخ الفاضل / ابا جودي عمل طيب وفكرة مطلوبه لدي الكثير ولكن من معني اسم البرنامج " ارشفة الكترونية " ان تكون المرفقات اما مستندات تسحب من جهاز الكمبيوتر او مستندات او صور تسحب من الاسكنر واهم شئ واحتاج له شخصيا هي سحب اكثر من صورة دفعة واحدة من الاسكنر وحفظها في ملف . طبعا ان سبقت الاحداث ولكني في انتظار ظهور هده الملاحظة قريبا في البرنامج لاني بصراحة لم القي لها حل في اي موضوع يخص الارشفة في المنتدي عمل جيد منك وبداية موفقة ان شاء الله وانا سوف اتابع اعانك الله
    1 point
  36. 1 point
  37. اخي @اسلام سيد هو استعلام تجميعي ما يظهر كنماذج الاخرى بل بيظهر ك كود سكويليتي شوف افتح قسم استعلامات واضغط على علامة استعلام تجميعي راح يفتح لك نافذة ما بها شي اكتب فيها SELECT [الفواتير اصناف].المكاتب FROM [الفواتير اصناف]; UNION ALL SELECT [رصيد المخازن].الاسم FROM [رصيد المخازن]; سيجمع لك الحقل مكاتب و الحقل الاسم في حقل واحد وهنا الشي المهم هو UNION ALL وتكدر تجمع بين جدول واحد كما عملت انا و اكثر تحياتي
    1 point
  38. السلام عليكم الاخ الكريم /alaagold11 بارك الله فيك شاهد اخي الكريم المرفق المطلوب ... ان شاء الله يفي بطلبك تقبل خالص تحياتي حماية خلية معينة من التعديل فيها وظهور رسالة والرقم السري علي شكل نجوم.rar السلام عليكم لك مني اخي الكريم دعوة علي الرابط التالي تقبل خالص تحياتي
    1 point
  39. اخي الفالح غير اسماء الجداول الى الاحرف الانجليزية مع اسماء الحقول كذلك في القاعدة الاصلية ومن ثم اعمل استيراد تحياتي
    1 point
  40. حاولت كثير لكن بدون جدوى لكن تكدر تعمل تصدير الى بي دي ايف
    1 point
  41. السلام عليكم اخوانى اتمنى ان اشارك معكم فى هذا العمل الرائع حتى يكون مرجع للاعضاء. اتمنى ان لا ينسي هذا الموضوع وهذه مشاركة محذوفة اتمنى ان تعيد تنشيط الموضوع . الدالة 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)
    1 point
  42. ( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات للاطفال هذا العمل عمل بسيط جدا جدا ولكني وجدتها فرصة كبيرة لاتقدم بشكري وعرفاني للاساتذة الكبار بالجميل فالف مليون تحية اعزاز وتقدير لكل القائمين علي خدمة المنتدي من اساتذة وخبراء ومشرفين واعضاء الشرف والاعضاء المميزين والاعضاء والضيوف ايضا احب ان انوه في البداية .... انه في منتدي الباوربوينت موضوع باسم ( لعبة الصورة المستخبية ) للاستاذ / مجدى يونس .. جزاه الله خيرا بنفس الفكرة تقريبا وعندما رأيتها اعجبت ابنتي ( سما ) كثيرا .... علي الرابط التالي ... والفكرة في الاصل بالطبع للاستاذ / مجدي ... حقوق الطبع محفوظه ( طبعا ) http://www.officena.net/ib/index.php?showtopic=45425 ولكن لعشقي الرهيب الشديد للاكسيل فقررت ان اقوم بتصميمها علي الاكسيل وها هي بين ايديكم كل ما عليك في اللعبة هو ان تضغط علي الزر الموجود اسفل الصورة يظهر لك جزء منها وكل ضغطة يظهر جزء آخر وعندما تتعرف علي الصورة اختار اسمها من الاجابات الموجودة بالاسفل ستظهر لك الصورة بالكامل ويتم الانتقال للصورة التالية و....... اترككم مع اللعبة ...بلاش كلام كتير ..... ارجو ان تحوز علي اعجابكم ارجو من كل خبراء واساتذة واعضاء ورواد هذا الصرح العملاق ( جامعة اوفيسنا ) ابداء الرأي في هذا العمل ... جزاكم الله خيرا لعبة الصورة المستخبية - اكسيل.rar
    1 point
  43. لا تنشرها جزاك الله خير ... ادخل وحمل وستعرف !! جمعة مباركة اخواني الكرام اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين جمعة مباركة.rar
    1 point
  44. قائمة منسدلة متعددة الألوان - اختار لون الخلفية و الحروف لكل عنصر في القائمة هو موضوع وجدته في منتدي صديق ( منتدي القدير / يحيي حسين ) للعلامة القدير / Jaafar Tribak المغربي واردت ان اضعه بين ايديكم كما هو وكما هو وضعه بالضبط وبالطبع استئذنه في ذلك ولعلمي انه شديد الحرص علي اعطاء كل معلومه لديه للآخرين فلم اتردد لحظة في نقل الموضوع الي منتدانا العملاق ليستفيد منه الجميع وسأضع الموضوع كما وضعه هو حرفيا جعله الله في ميزان حسناته ==================================================== المــــــــــــــــــوضـــــــــــــــوع ( كما هو ) ==================================================== طلب نجده كثيرا عند مستخدمي الاكسل لكن لا يوجد حل - الحمد لله هذا ما توصلت اليه مؤخرا فأرجو أن يكون مفيدا. من أراد استفسارا لكيفية عمل الكود أو وجد أي مشكلة في تشغيله فأنا ان شاء الله أكون رهن الاشارة Multicolor_Combobox.rar
    1 point
  45. اخي /م وليد بن عبدالرحيم بارك الله فيك وجزاك خيرا تقبل الله منا ومنكم صالح الأعمال بالنسبة للفيديو كان اهداء من صديق عزيز فلذلك ارفقت الرابط تقبل تحياتي
    1 point
  46. اللهم آمين ... آمين ... آمين اللهم آمين ... آمين ... آمين الاخ الحبيب / ضاحي الغريب بارك الله فيك تقبل خالص تحياتي
    1 point
  47. السلام عليكم الاستاذ القدير /ياسر الحافظ بارك الله فيك ولكن استاذنا الشكر في البداية والنهاية للقدير / جعفر ترباق .... جزاه الله خيرا حيث ليس لي في العمل الا انني احببت ان يستفيد منه الجيميع حيث انه كود جديد من نوعه وحبي لاسرة هذا الصرح جعلتني اسارع في تقديمه اليكم مع علمي بأن الاستاذ / جعفر لا يبخل علي احد بأي معلومة لديه ملحوظة : مثلك لا يستأذن ابدا .... ولكن يأمر ونحن ننفذ .... سلامي للمهند ابا الحارث جزاك الله خيرا
    1 point
×
×
  • اضف...

Important Information