sandanet

اخي الفاضل بينك وبينه الشكوى لدى الجهات الامنية المختصة اذا كان هنالك نصب او احتيال او ماشابه .. ما اشرت إليه في كلامك لايعطيك الحق في طلب كسر حماية البرنامج مهما كانت اعذارك .. منشورك هذا له فترة على المنتدى وكما تلاحظ لايوجد من يقوم بهذه الاعمال لان الكثير من الاخوة ان لم يكن جميعهم يقومون بالمساعدة لوجه الله تعالى فهل يعقل ان ننتهك حقوق شخص ما لوجه الله تعالى!!!

اخي الكريم اعتذر فقد نسيت الجزء الاخر من السؤال .. تفضل المرفق التالي example.accdb

تفضل example.accdb

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

اخي الكريم خالد انا متابع معكم لكني للأسف لا املك الوقت الكافي للتعمق في البرنامج لكني على استعداد المساعدة في ترجمة بعض المصطلحات في الكود قدر الامكان لكني لا استطيع التفرغ للبرنامج فأنا بالاضافة الى عملي فاني اعمل على برنامجين اخرين كما اني في صدد دراسة برمجة المواقع بلغة الـ PHP لذلك ارجو منكم السماح

لا .. بل فقط في حال تم استخدام دوال برمجية لها علاقة بمكتبات خارجية غير موجودة في الاوفيس .. في اغلب البرمجيات البسيطة والمتوسطة يتم انشاؤها بدون استعمال مكتبات خارجية

نص الرسالة واضح وهو ان المرجع المذكور في الرسالة غير موجود في الجهاز .. الحل هو البحث في الانترنت عن ملف المرجع ذو الاصدار 4.8

اخي الكريم استخدم الطريقة التالية في التشفير فهي احترافية اكثر .. النموذج form1 هو لتسجيل بيانات مستخدم جديد في الجدول .. ونموذج login لتسجيل الدخول الى البرنامج example.accdb

اخي الكريم كيف يعرف البرنامج من دخل ومن خرج اذا لم يتم تسجيل دخول المستخدم؟؟؟ منطقياً لايمكن .. على العموم هنالك دوال تسجل لك اسم مستخدم الويندوز هل تفيدك ام لا؟

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

نعم عند حفظ ملف الاكسس من 2010 الى 2007 او 2003 فلا يعمل وهذه مشكلة لاتزال قائمة الى الان حتى في المنتديات الاجنبية النقاش مستمر حولها .. الحل انك تحمل اي ملف من المنتدى وقم بحذف بياناته بالداخل وبعدها قم باستيراد جميع كائنات قاعدة بياناتك اليه ومن ثم يمكنك بعدذلك العمل عليه بصورة طبيعية على اكسس 2010 وتركيب نظام الصلاحيات عليه .. المهم ان يكون الملف الفارغ منشأ من اكسس 2007 او 2003 تحياتي

اخي الكريم يمكنك استعمال برنامج الصلاحيات التالي اضافة صلاحيات المستخدمين لقاعدة بيانات خارجية.mdb

والله اني دخت في الاكواد .. الموضوع يحتاج تركيز عالي جداً بالاضافة الى تدخل الخبراء

جاري دراسة الموضوع

اخي الكريم خالد في الدالة التالية Public Function RECORDHSA(MOALEM As Recordset, mada As Recordset, TABLE As Recordset) Dim i, m Dim TSGELHSA Dim B, E Dim ADDHSSOK As String Dim ADDHSSALWM '___________________________ For m = 1 To mada![عدد الحصص] TSGELHSA = "no" If m = 1 Or m = 6 Or m = 12 Or m = 17 Or m = 22 Or m = 27 Then B = 3 E = 15 Else B = B + 16 E = E + 16 End If في المعادلة B = B + 16 و E = E + 16 السؤال هو ماهي قيم B و E الابتدائية لكي يتم جمعها مع 16؟؟

اخي الكريم خالد زر امر التوزيع يعمل فماهي المشكلة؟

اخي الكريم حسب معرفتي المتواضعة فانه لايوجد كود برمجي يحذف كود اخر حتى لو كانت الاكواد غير محمية لكن اذا كانت قاعدة بياناتك بصيغة accdb او mdb فارفقها هنا لكي يتم فتحها تحياتي

اخي الكريم حمدي لماذا لايوجد ملف للعمل عليه؟؟ اعتقد انه من الاسرع والافضل لو تم عمل ملف يوضح آلية العمل لكي يسهل التعامل معه

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

هل تستطيع ارفاق تلك القاعدة المعطوبة؟

بعد رؤية لمسات الخبراء لايسعنا الا الشكر والدعاء لهم بالموفقية

اخي محمد من الافضل ارفاق ملف للتطبيق عليه لتجنب الاخطاء

من المستحسن ارفاق ملفك للتعديل عليه

ادخل الى اللاكواد وتأكد من المراجع لديك هل هي بهذا الشكل ام لا

اخي الكريم استخدم هذا الكود If Len(Me.text & "") = 0 then With Me .text1.Visible = False .Label1.Visible = False End With end if