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

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

  1. الساعة الأخيرة
  2. وعليكم السلام اخي صالح 🙂 الضغط والاصلاح عمله مع كائنات الاكسس ، عدا الكود ، بينما الامر Decompile/Compile له علاقة بضغط واصلاح الكود 🙂 وفي برنامجي اتبعت ارشادات المحترفين في الجمع بين الطريقين ، وبالتسلسل الصحيح 🙂 جعفر
  3. لوقمت بتصويرها من السكانير بصيفة PDF مباشرة كان افضل من صور هكذا لانه يمكن استخراج الصور من ملف بي دي اف ولا يمكن استخراج الصور من صورة كما ان هناك خاصية في سكانر صور منفصلة
  4. السلام عليكم هذه دالة ممتازة للتشفير و فك التشفير وضعها الأستاذ @أ / محمد صالح جزاه الله كل خير 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 هما أسماء مربعات نص و هي تقوم بالتشفير و فك التشفير في نفس الوقت
  5. أحسنت اخى الكريم عمل ممتاز بارك الله فيك
  6. السلام عليكم الموضوع عنده شهر و أنا أول مرة أشوفه في العادة عندما أنهي أي برنامج أقوم بعمل ضغط و إصلاح له من أجل إزالة الشوائب و تقليل الحجم و هي تقوم بعمل جيد الآن قمت بإجراء مقارنة بين هذا البرنامج و الضغط و الصيانة من قوائم الأكسس فوجدت أن هذا البرنامج يجعل حجم الملف أقل من الضغط و الصيانة. فألف ألف شكر لك أستاذ جعفر على هذا العمل
  7. Today
  8. بالنسبة لعملية المسح الذي تريدها غير واضحة هل تريد كل خلية لوحدة ام عبارة عن مدى ممتد من خلية الى غاية خلية اخرى
  9. السلام عليكم 🙂 ولكن تأكد من انك تحتفظ بالنسخة الاصلية الغير مشفرة ، فأي تعديل (ولابد ان يكون هناك تعديل ، فالمثل المتعارف عليه بين المبرمجين: اذا استعملت البرنامج مدة وما اردت فيه تعديل ،ولا رأيت فيه مشكلة ، فأنت المستخدم فيك المشكلة !!) ، ولا يمكن القيام بالتعديل على النسخة المشفرة ، وتحتاج الى النسخة الغير مشفرة لعمل التعديل 🙂 ويجب تتبع رقم نسخة برنامجك (لا ليس نسخة الاوفيس ، وانما نسخة برنامجك) ، والاحتفاظ بجميع النسخ لديك ، فقد لا يملك كل مستخدم ، النسخة النهائية !! جعفر
  10. وعليكم السلام 🙂 هل زرت هذا الرابط ، وانزلت الرفق : جعفر
  11. شكرا لحضرتك هل مطلوب توضيح للطلب أكثر
  12. السلام عليكم دى اول مشاركه لى فى المنتدى كنت بشتغل على برنامج كنترول شيت واردت عمل لجان للطلاب المطلوب : فى المرفق جدول به ثلاث حقول المطلوب فى الحقل الثالث tarkeem كل 22 طالب ياخدوا رقم موحد برمجيا مثلا اول 22 طالب ياخدو رقم 1 .. وثانى 22 طالب ياخدوا رقم 2 الخ اشكركم اعزائى ترقيم مجموعه.accdb
  13. بارك الله فيك ... صديقى العزيز طلب صغير .... لو فيه جدول فيه اكثر من عمود مطلوب تجميغهم واظهارهم فى التقارير وايضا فى الاجماليات....كيف يتم عملها
  14. حياك أخي اشرف كلنا تستفيد من بعض و يا ليتك وضعت مشاركتك ليختار الاخ الانسب له وأيضا هي إثراء للموضوع .
  15. تفضل أضفنا أمر DELETE في الوحدة النمطية ووضعنا الأمر عند الحدث في النموذج . copy.accdb
  16. السلام عليكم ابوآمنة عمل جميل باسلوب سهل احسنت اخي الفاضل ابوهزاع العولقي حذفت المرفق السابق والرائع ابو امنة سبقني في الرد بعمل جميل ورائع اتمني ان يكون طلبك
  17. Yesterday
  18. السلام عليكم أريد عكس دالة لتشفير جدول اليوزر ان أمكن هي دالة بسيطة 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
  19. للأسف لا املك نفس الاصدار لكني اعتقد ان عملية تحويل قاعدة البيانات الى accde هي نفسها في الاصدارات الاقدم من 2019 بعد عمل compile للأكواد والتأكد من خلو برنامجك من الأخطاء قم بعمل ضغط واصلاح اولاً ومن ثم توجه الى "حفظ ونشر" في قائمة ملف ومن ثم اختار انشاء accde
  20. السلام عليكم انا على استعداد للمساعدة
  21. السلام عليكم ورحمة الله وبركاته , تحياتي لكم جميعا أريد أيضاً بعد إذن ذووي الإختصاص كود ثاني أيضا ويكون مضمونه كالتالي ولكنه لايعمل ويعطني أخطاء ()sub clear sheet(namesheet1).range("B2:, B13).clear sheet(namesheet2).range("h4",H16).clear sheet(namesheet3).range("h6", "h12").cleat end sub ومشكوررررررررررررين
  22. اسف استاذي نعم ارفقت مرفق اخر تكرما منك حذف المرفق السابق المحمل لديك وتم ارفاق المرفق المطلوب
  1. Load more activity


×
×
  • اضف...