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

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

  1. omar elhosseini

    omar elhosseini

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


    • نقاط

      6

    • Posts

      1,950


  2. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      5

    • Posts

      9,724


  3. مجدى يونس

    مجدى يونس

    أوفيسنا


    • نقاط

      3

    • Posts

      3,322


  4. Ali Mohamed Ali

    Ali Mohamed Ali

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


    • نقاط

      2

    • Posts

      11,621


Popular Content

Showing content with the highest reputation on 17 ديس, 2019 in all areas

  1. الاخ شبل ليث حدد نظام النقل اولا ثم دبل كليك في العمود ( H ) في صف الاسم المراد نقله لوضع علامة ( X ) او ازالتها ثم توزيع شاهد المرفق Test_1.rar
    2 points
  2. السلام عليكم طال غيابي عنكم احبتي في الله لسببين اولهما ظروف خاصة وثانيها لتوجهي الى تعلم لغات برمجة اخرى و ابتعادي عن الاكسل العشق فلما اخذني الحنين للاكسل فكرة لمذا لا استخدمه كما تعلمت مع اللغات الاخرى فرفعت التحدي و عملت هدا البرنامج البسيط البرنامج عبارة عن تسجيل عمليات استلام وتسليم الوصلات واظهار كشف الحساب لكل مورد على حده او تقرير عام بصفة عامة البرنامج بسيط ما يهم هو ما يخفيه من اكواد و مايظهره من جمال للفورم اما الثانية ما يظهره من جمال الفورم حاولت ان اعمل ما يستخدم في c# ui design و النتيجة هي اما الاولى مايخفيه من اكواد هي قاعدة البيانات هي اكسيس بحيث برمجة كلاس يمكنك استخدامه لتتعامل مع ملفات الاكسيس بكل سهولة ابتداءا بجملة الاتصل فتح الاتصال اغلاق الاتصال الى تنفيذ الكموند تماما كما هو الحال مع c# او غيرها من لغات اخرى الى كل من يبحث عن كيفية العمل على برنامج واحد باكثر من جهاز او مستخدم في نفس الوقت هذا الملف يمكنك من ذلك وذالك برفع قاعدةالبيانات الاكسيس على اي استضافة كقوقل دريف او دريفبوكس وتسليم ملف الاكسل للمستخدمين سيستطيعون جميعهم العمل عليه في نفس الوقت كل ما تحتاجه هو تغيير مسار الملف في كلاص الاتصال المسمى ClsConnctionDB في الاخير تحياتي للجميع تم تعديل الملف ليشتغل على ويندوز 7 WPFVBA_Win7.rar WPFVBA_Win10.rar
    1 point
  3. يمكن معالجة الأمر من خلال تسيق خلايا بتحديد الخلايا المراد تنسيقها وعمل كليك يمين واختر تنسيق خلايا يظهر صندوق حواري ( تنسيق خلايا ) اذهب إلى الرقم في هذا الصندوق ثم اختر التاريخ بعذها اذهب إلى أسفل الصندوق واختر مخصص شاهد الصورة
    1 point
  4. رضى الله عنك استاذ سليم ورزقك من فضله الواسع واسعدكم فى الجنات ان شاء الله
    1 point
  5. فورم اضافة تاريخ الزيارة واظهار التاريخ من اليمين بالتكست الفيديو
    1 point
  6. جرب هذه المعادلة =FLOOR(SUM(R4,O4,L4,I4,F4)/8,0.25) الملف مرفق takrib.xlsx
    1 point
  7. بدل الكود السابقة ، استعمل : Private Sub Rank_AfterUpdate() If Me.Dirty Then Me.Dirty = False Set rst = Me.RecordsetClone dim s as long S = Me.SERIAL Me.Painting = False Me.Requery rst.FindFirst "[Serial]= " & S Me.Bookmark = rst.Bookmark Me.Painting = True rst.Close: Set rst = Nothing End Sub جعفر
    1 point
  8. عفوا اخي لقد سقط مني اعادة ترقيم الصفحات ليكون الرفم المتسلسل بعد النقل متاليا سأفوم بأعادة الترقيم واعيد رفع الملف لك
    1 point
  9. الأخ العزيز Ali Mohamed Ali أولا أشكرك على سرعه الرد ثانيا : أدعو الله أن يديم عليك علمك النافع ويجعله في ميزان حسناتك
    1 point
  10. تفضل المرفق 🙂 1149.crewing - Copy.accdb.zip
    1 point
  11. الاخ شبل ليث طبعا اخي هناك طريقة اكثر ترتيبا لعل الله يوفقني الله المستعان والان راجع معي ما فهمت منك وصحح لي الخطأ المطلوب هو نقل بعض الصفوف من شيت الملاك الي اي من الحالات الاربع الاخري ( المنقولين والمفصولين والمستقيلين والمتقاعدين ) مع وجود سجل لتسجيل عمليات النقل في شيت ( المتغيرات )
    1 point
  12. Crew في الحدث بعد التحديث للحقل Rank
    1 point
  13. استعمل هذا الكود : Private Sub Rank_AfterUpdate() Me.document1 = Me.Text514 Me.[2] = Me.Text522 Me.[3] = Me.Text528 Me.[4] = Me.Text516 Me.[5] = Me.Text530 Me.[6666] = Me.Text534 Me.[6] = Me.Text258 Me.[7] = Me.Text260 Me.[8] = Me.Text262 Me.[9] = Me.Text284 Me.[10] = Me.Text270 Me.[11] = Me.Text266 Me.[12] = Me.Text272 Me.[13] = Me.Text276 Me.[14] = Me.Text274 Me.[15] = Me.Text278 Me.[16] = Me.Text280 Me.[17] = Me.Text282 Me.[18] = Me.Text286 Me.[19] = Me.Text288 Me.[20] = Me.Text290 Me.[21] = Me.Text497 End Sub جعفر
    1 point
  14. الاخ شوقى ربيع نورت المنتدى المرة دى فتح معايا الملف
    1 point
  15. اخى شوقى عمل ممتاز جزاك الله خيرا
    1 point
  16. وعليكم السلام-احسنت استاذ شوقى عمل ممتاز بارك الله فيك وزادك الله من فضله
    1 point
  17. أشكر للجميع تعاونهم ومساعدتي في حل هذا الإشكال في توزيع الطلاب على اللجان وتصميم هذا الملف الممتاز و أخص بالشكر أخي بن علية حاجي
    1 point
  18. وعليكم السلام-تفضل الحل بالمعادلات الحسابات1.xlsm
    1 point
  19. السلام عليكم ما تريد أن تفعله بالصفحة في وورد ضعه في الصفحة وهي موجودة في الإكسيل (التي تكون نموذجا للقوائم، أما زر الطباعة الذي تم إضافته فيقتصر عمله على استدعاء بيانات كل لجنة ثم طباعتها مباشرة) ويكون التعديل عليها بـ (إضافة الشعارات - تعديل التنسيقات - وغيرها) ولست أدري لماذا تريد نقلها إلى الوورد والتعديل عليها (فكلها مكتبة أوفيس سواء كان وورد أم إكسيل). بالنسبة لمعاينة الصفحة يمكنك معاينتها يدويا بعد تحضيرها بالتغييرات التي تريدها... وإذا أردت أن تكون هذه الصفحة من شكل خاص قد حضرتَه في وورد فيمكنك أن ترفق هذا النموذج (من وورد) ونقوم بتحضير ورقة الإكسيل على هذا النموذج وبالنمط نفسه... لا يمكن أن أفيدك أكثر... معذرة بن علية حاجي
    1 point
  20. السلام عليكم ورحمه الله السادة الأعضاء المحترمين لقد قمت بشرح طريقة بحث وتصفية وفرز وفلترة السجلات بطريقة جديدة بدون اكواد طريقة بسيطة حتي يقدر يستفيد منه أي عضو الموقع غني بمواضيع مشبها ولكن لكل شيخ طريقة اترككم مع الفيديو رابط تحميل الملف https://drive.google.com/file/d/19PeZ77AKZ7Ki56ZiOpJaGcsqIjKv3wEZ/view?usp=drivesdk
    1 point
  21. السلام عليكم جميعا؛ عندي 10 من textbox ، وعندي ContextMenuStrip فيه عدد من ToolStripMenuItem؛ أريد أن يتمكن المستخدم من النقر على أحدها لإلصاق نص محدد في مربع نص واحد دون البقية، مع تمكنه من إلصاق النص نفسه في مربعات النص الأخرى، كل على حدة، عندما يختار دلك. والشكر سلفا لمن أغاثنا.
    1 point
  22. تفضل جرب هذا ووافنا بالنتائج مع العلم أنى جربته على 2016 وعمل بحالة جيدة تعطيل النظام.mdb
    1 point
  23. وعليكم السلام هذه 6 طرق ، برسائل وبدون ، وانا اخترت لك آخر واحدة منها ، وهي تعطيك شريط في اسفل شاشة الاكسس: . Option Compare Database Private Sub أمر10_Click() On Error GoTo Err_أمر10_Click 'Dim stDocName As String 'stDocName = "q1" 'DoCmd.OpenQuery stDocName, acNormal, acEdit '1 العمل بصمت وبدون اشعارات ' CurrentDb.Execute ("q1") '2 العمل بصمت وبدون اشعارات ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True '3 العمل بصمت وبدون اشعارات ، ولكن بوجود ساعة ترابية تشير الى وجود عمل ' DoCmd.Hourglass True ' DoCmd.OpenQuery "q1" ' DoCmd.Hourglass False '4 عمل اشعار ثابت لمدة 3 ثوان في اسفل الشاشة ' Application.SetOption "Show Status Bar", True ' Application.Echo True ' Application.Echo False, "الاستعلام يقوم بالتحديث" ' ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True ' ' PauseTime = 3: Start = Timer ' Do While Timer < Start + PauseTime ' DoEvents ' Loop ' ' Application.SetOption "Show Status Bar", False ' Application.Echo True '5 عمل اشعار متغير لمدة 3 ثوان في اسفل الشاشة ' Application.SetOption "Show Status Bar", True ' SysCmd acSysCmdSetStatus, "الاستعلام يقوم بالتحديث" ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True ' ' PauseTime = 3: Start = Timer ' Do While Timer < Start + PauseTime ' DoEvents ' A = A + 1 ' If A / 50 = Int(A / 50) Then B = B & " . " ' SysCmd acSysCmdSetStatus, B & "الاستعلام يقوم بالتحديث" ' Loop ' Application.SetOption "Show Status Bar", False ' SysCmd acSysCmdClearStatus '6 عمل اشعار متغير لمدة 3 ثوان في اسفل الشاشة Application.SetOption "Show Status Bar", True SysCmd acSysCmdInitMeter, "الاستعلام يقوم بالتحديث", 5000 DoCmd.SetWarnings False DoCmd.OpenQuery "q1" DoCmd.SetWarnings True PauseTime = 3: Start = Timer Do While Timer < Start + PauseTime DoEvents A = A + 1 SysCmd acSysCmdUpdateMeter, A Loop Application.SetOption "Show Status Bar", False SysCmd acSysCmdClearStatus Exit_أمر10_Click: Exit Sub Err_أمر10_Click: MsgBox Err.Description Resume Exit_أمر10_Click End Sub . وهذا الرابط فيه البرنامج المرفق ، يعني خذ منه الكود وخليه في برنامجك : http://www.access-programmers.co.uk/forums/attachment.php?attachmentid=32438&stc=1&d=1275923825 . . والنتيجة Notification بطريقة البرامج المحترفة ، فوق ساعة الكمبيوتر . جعفر 876.msg styles.mdb.zip BalloonToolTipSample.mdb.zip
    1 point
  24. السلام عليكم برنامج مخازن مجرب ومباع في الكويت لكبرى الشركات والمؤسسات به كل ما يتمناه اي مسئول مخزن سهل الاستخدام قوي النتائج ملحوظة : كلمة المرور في البرنامج هي 1234 ملحوظة : لاضافة اي معلومة داخل اي صندوق فقط النقر مرتين بالماوس علي الصندوق لفتح شاشة الادخال الخاصة به وبعدها تجد ما اضفته موجود بالصندوق ملحوظة : البرنامج مصمم علي اكسيس 97 وانا في الطريق لعمل نسخة لباقي اصدارات الاكسيس ارجو ان يفيدكم ولا تنسونا بالدعاء اخوكم علي عبد الحميد - الكويت Str.zip
    1 point
  25. السلام عليكم أخي مراد تفضل المرفق إن شاء الله أكون تفاديت هذا الخطـأ فاتورة جديدة7.rar
    1 point
×
×
  • اضف...

Important Information