اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كل الانشطه

هذه الصفحة تحدث تلقائياً     

  1. الساعة الأخيرة
  2. nchteiwi started following ضاحي الغريب
  3. jjafferr
    وعليكم السلام اخي صالح 🙂 الضغط والاصلاح عمله مع كائنات الاكسس ، عدا الكود ، بينما الامر Decompile/Compile له علاقة بضغط واصلاح الكود 🙂 وفي برنامجي اتبعت ارشادات المحترفين في الجمع بين الطريقين ، وبالتسلسل الصحيح 🙂 جعفر
  4. hr55955@gmail.com hr55955@gmail.com joined the community
  5. salimhebboul
    لوقمت بتصويرها من السكانير بصيفة PDF مباشرة كان افضل من صور هكذا لانه يمكن استخراج الصور من ملف بي دي اف ولا يمكن استخراج الصور من صورة كما ان هناك خاصية في سكانر صور منفصلة
  6. Amr Ashraf
    السلام عليكم .. الغالى @ابا جودى افكارك جميلة دائما .. بس انا مدخلتش على الفكرة ولا شوفتها اساسا انا داخل اسلم عليك
  7. صالح حمادي started following عندما يعطي برنامج الاكسس اخطاء - النسخة رقم 3 و عكس دالة تشفير
  8. صالح حمادي
    السلام عليكم هذه دالة ممتازة للتشفير و فك التشفير وضعها الأستاذ @أ / محمد صالح جزاه الله كل خير Public Const trialdays As Integer = 30 Public Const encodekey As String = "mas" Public Const regpath As String = "HKEY_CURRENT_USER\software" Public Const regfolder As String = "masrfirst" Public Const mainform As String = "main" Function en_de(sMessage As String, Optional strKey As String = encodekey) Dim kLen, x, y, i, j, temp Dim s(256), k(256) 'Init keystream kLen = Len(strKey) For i = 0 To 255 s(i) = i k(i) = Asc(Mid(strKey, (i Mod kLen) + 1, 1)) Next j = 0 For i = 0 To 255 j = (j + k(i) + s(i)) Mod 255 temp = s(i) s(i) = s(j) s(j) = temp Next 'Drop n bytes from keystream x = 0 y = 0 For i = 1 To 3072 x = (x + 1) Mod 255 y = (y + s(x)) Mod 255 temp = s(x) s(x) = s(y) s(y) = temp Next 'Encode/Decode For i = 1 To Len(sMessage) x = (x + 1) Mod 255 y = (y + s(x)) Mod 255 temp = s(x) s(x) = s(y) s(y) = temp en_de = en_de & Chr(s((s(x) + s(y)) Mod 255) Xor Asc(Mid(sMessage, i, 1))) Next End Function قم بوضعها في وحدة نمطية منفصلة و يتم استدعائها بهذا الشكل Me.t = en_de(Me.v) v و t هما أسماء مربعات نص و هي تقوم بالتشفير و فك التشفير في نفس الوقت
  9. iibra_2007@yahoo.com iibra_2007@yahoo.com changed their profile photo
  10. Ali Mohamed Ali
    أحسنت اخى الكريم عمل ممتاز بارك الله فيك
  11. أحمد يوسف
    ابايوسف أين الضغط على الإعجاب ؟!!!💙
  12. صالح حمادي
    السلام عليكم الموضوع عنده شهر و أنا أول مرة أشوفه في العادة عندما أنهي أي برنامج أقوم بعمل ضغط و إصلاح له من أجل إزالة الشوائب و تقليل الحجم و هي تقوم بعمل جيد الآن قمت بإجراء مقارنة بين هذا البرنامج و الضغط و الصيانة من قوائم الأكسس فوجدت أن هذا البرنامج يجعل حجم الملف أقل من الضغط و الصيانة. فألف ألف شكر لك أستاذ جعفر على هذا العمل
  13. Today
  14. ahmedmabrouk ahmedmabrouk joined the community
  15. emil.asham emil.asham changed their profile photo
  16. zazamessaad zazamessaad changed their profile photo
  17. إسلام ابوسلام إسلام ابوسلام changed their profile photo
  18. محمد بن ميلود محمد بن ميلود changed their profile photo
  19. عبدالفتاح في بي اكسيل started following كود ترحيل بيانات من عدة صفحات وخلايا متفرقة
  20. عبدالفتاح في بي اكسيل
    بالنسبة لعملية المسح الذي تريدها غير واضحة هل تريد كل خلية لوحدة ام عبارة عن مدى ممتد من خلية الى غاية خلية اخرى
  21. osami osami joined the community
  22. eng.ammarali eng.ammarali joined the community
  23. jjafferr
    السلام عليكم 🙂 ولكن تأكد من انك تحتفظ بالنسخة الاصلية الغير مشفرة ، فأي تعديل (ولابد ان يكون هناك تعديل ، فالمثل المتعارف عليه بين المبرمجين: اذا استعملت البرنامج مدة وما اردت فيه تعديل ،ولا رأيت فيه مشكلة ، فأنت المستخدم فيك المشكلة !!) ، ولا يمكن القيام بالتعديل على النسخة المشفرة ، وتحتاج الى النسخة الغير مشفرة لعمل التعديل 🙂 ويجب تتبع رقم نسخة برنامجك (لا ليس نسخة الاوفيس ، وانما نسخة برنامجك) ، والاحتفاظ بجميع النسخ لديك ، فقد لا يملك كل مستخدم ، النسخة النهائية !! جعفر
  24. tharwat789 tharwat789 changed their profile photo
  25. ابو عصام الغالي ابو عصام الغالي changed their profile photo
  26. ahmed hosam ahmed hosam changed their profile photo
  27. ang20031 ang20031 changed their profile photo
  28. رافت الهجان رافت الهجان changed their profile photo
  29. jjafferr
    وعليكم السلام 🙂 هل زرت هذا الرابط ، وانزلت الرفق : جعفر
  30. hisham7575 hisham7575 joined the community
  31. مجدى على
    شكرا لحضرتك هل مطلوب توضيح للطلب أكثر
  32. hunka hunka joined the community
  33. يوسف ابوسمره
    السلام عليكم دى اول مشاركه لى فى المنتدى كنت بشتغل على برنامج كنترول شيت واردت عمل لجان للطلاب المطلوب : فى المرفق جدول به ثلاث حقول المطلوب فى الحقل الثالث tarkeem كل 22 طالب ياخدوا رقم موحد برمجيا مثلا اول 22 طالب ياخدو رقم 1 .. وثانى 22 طالب ياخدوا رقم 2 الخ اشكركم اعزائى ترقيم مجموعه.accdb
  34. يوسف ابوسمره يوسف ابوسمره joined the community
  35. الرائد77 started following ممكن اضافة دالة موجودة باكسل 19 الى اكسل 2013 أو 2016
  36. الرائد77
    تفضل أخي index and match تقوم بنفس العمل. دالة بحث اكسل 19.xlsx
  37. احمد حبيبه
    بارك الله فيك ... صديقى العزيز طلب صغير .... لو فيه جدول فيه اكثر من عمود مطلوب تجميغهم واظهارهم فى التقارير وايضا فى الاجماليات....كيف يتم عملها
  38. ابوآمنة
    حياك أخي اشرف كلنا تستفيد من بعض و يا ليتك وضعت مشاركتك ليختار الاخ الانسب له وأيضا هي إثراء للموضوع .
  39. ابوآمنة started following كود الحذف لايعمل
  40. ابوآمنة
    تفضل أضفنا أمر DELETE في الوحدة النمطية ووضعنا الأمر عند الحدث في النموذج . copy.accdb
  41. warvin raviny
    notification.rar
  42. اشرف
    السلام عليكم ابوآمنة عمل جميل باسلوب سهل احسنت اخي الفاضل ابوهزاع العولقي حذفت المرفق السابق والرائع ابو امنة سبقني في الرد بعمل جميل ورائع اتمني ان يكون طلبك
  43. Yesterday
  44. rey360 started following عكس دالة تشفير
  45. rey360
    السلام عليكم أريد عكس دالة لتشفير جدول اليوزر ان أمكن هي دالة بسيطة Function sedqtr(mott As String) Dim se As String se = "" For i = 1 To Len(mott) se = se & Asc(Mid(mott, i, 1)) + Int(100 / 15) Next sedqtr = se End Function
  46. فايز..
    هذا ما فعلته شكر الله لك وجزاك خيرا
  47. ابوآمنة started following برنامج وارد وصادر كيفية عمل تقرير يظهر بيانات بين جدولين مع انشاء عملية حسابية
  48. ابوآمنة
    تفضل إن شاء الله يكون هذا المطلوب المخزون.accdb
  49. sandanet
    للأسف لا املك نفس الاصدار لكني اعتقد ان عملية تحويل قاعدة البيانات الى accde هي نفسها في الاصدارات الاقدم من 2019 بعد عمل compile للأكواد والتأكد من خلو برنامجك من الأخطاء قم بعمل ضغط واصلاح اولاً ومن ثم توجه الى "حفظ ونشر" في قائمة ملف ومن ثم اختار انشاء accde
  50. بحار الاكسس started following طلب إنشاء قاعدة بيانات
  51. بحار الاكسس
    السلام عليكم انا على استعداد للمساعدة
  52. ِAmerAdnan
    السلام عليكم ورحمة الله وبركاته , تحياتي لكم جميعا أريد أيضاً بعد إذن ذووي الإختصاص كود ثاني أيضا ويكون مضمونه كالتالي ولكنه لايعمل ويعطني أخطاء ()sub clear sheet(namesheet1).range("B2:, B13).clear sheet(namesheet2).range("h4",H16).clear sheet(namesheet3).range("h6", "h12").cleat end sub ومشكوررررررررررررين
  53. ابوهزاع العولقي
    اسف استاذي نعم ارفقت مرفق اخر تكرما منك حذف المرفق السابق المحمل لديك وتم ارفاق المرفق المطلوب
  1. Load more activity


×
×
  • اضف...