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

السلام عليكم شكراً للقائمين على هذا المنتدى العملاق من مشرفين واعضاء لني تعلمت منهم الاكثير واتمنى لهم الموفقية والصحة الدائمة ان شاء الله تعالى. اخوتي انا اعرف ان في هذا المنتدى عمالقة التصميم والبرمجة وانا اعلم ان في هذا المنتدى افضل من هذا البرنامج ولكن لرد الجميل هذا المنتدى ارفع هذه نسخة من برنامج الصادر والوارد مفتوح المصدر برابط خارجي صممتة لصديق لي يعمل في شركة .... تحياتي لكم جميعاً.... https://up.top4top.net/downloadf-1058tvebj1-rar.html

بفضل الله قمت بعمل هذا الامر في الملف المرفق .. ستجد ان رقم النسخة سيتغير كل يوم count-sec(with date).mdb

اخي الكريم اسم العميل والتاريخ هي فقط خاصة بصاحب البرنامج اي للتوضيح في حال كان لديك مجموعة مستخدمين فانك تستطيع اضافتهم كلاً باسمه ورقم التسجيل الخاص به وتاريخ التسجيل .. طبعاً تاريخ التسجيل يضاف تلقائياً وهو بالطبع ليس له علاقة في عمل البرنامج فقط لمعرفة متى تم توليد سيريال التفعيل للمستخدم البرنامج لم يتم تصميمه لكي يقرأ تاريخ الجهاز مع رقم المعالج فالحماية المتبعة هي كما اشرت إليها في الشرح هنا https://www.officena.net/ib/topic/86775-دمج-برنامج-الحماية-مع-برنامج-الفترة-التجريبية/ اي باختصار الحماية المتبعة هي عن طريق ادخال المستخدم رقمه السري الخاص به لغرض توليد سيريال للبرنامج فريد لان سيريال البرنامج مكون من الرقم السري للعميل + رقم المعالج المستخلص من اسم المعالج والذي لايتغير بعد الفورمات .. لكي تتضح لك الصورة قم بمراجعة الشرح الموجود في الرابط الرسالة التي ظهرت لك لاتظهر عندي .. لكني اعتقد ان هذه الرسالة لها علاقة بكود الـ update المستعمل .. سوف اقوم بالتعديل عليه ان شاء الله زر التهيئة يعمل على تهيئة البرنامج لعميل جديد يرغب في تجربته اي بمعنى انه يعيد المدة الزمنية لاستخدام البرنامج الى 0 كما يلغي مفتاح في الريجستري "كأنك تقوم بتشغيل البرنامج أول مرة".. الغرض من وضع هذا الزر هو عندما تريد اعطاء العميل برنامجك لتجربته فانت لاتريد تصفير المدة التجريبية يدوياً وانما عن طريق زر الامر تستطيع عمل ذلك.. طبعاً انت يجب عليك إزالته هذا الزر عندما تريد ارسال برنامجك للعميل وانا وضعته لكي تتم التجربة فقط "يمكنك تصفير المدة الزمنية في اي وقت تشاء وتفعيل البرنامج في وقت تشاء وما الى ذلك لمعرفة آلية عمل البرنامج" .. اكرر مرة اخرى "يجب عليك إزالة زر الامر هذا عندما تود ارسال برنامجك للعميل" اي تحذير تقصد؟؟ اذا كان قصدك على عدد ساعات المدة الزمنية المتبقية فانظر الى عدد الساعات وكما هو واضح من الصورة عندك 20 ساعة وهي القيمة الافتراضية التي وضعتها .. انت عندما تقوم بتفعيل البرنامج سيختفي هذا التحذير لان البرنامج مفعل ولن يحسب لك المدة الزمنية المتبقية اخي العزيز الفكرة كلها مشروحة هنا https://www.officena.net/ib/topic/86775-دمج-برنامج-الحماية-مع-برنامج-الفترة-التجريبية/ نعم اخي الرسالة الوحيدة التي ظهرت لك هي تلك الخاصة بالنسخ الى الحافظة او حفظ السجل او افلات التغييرات وهي لاتظهر لدي واعتقد ان تلك الرسالة لها علاقة بخصائص الاكسس نفسه لديك ارجو منك تجربة البرنامج على جهاز آخر للتأكد من ذلك الفترة التجريبية تستطيع تغييرها من جدول tbl حيث تم وضع قيمة افتراضية وهي 20 ساعة .. بامكانك تغييرها لأي عدد من الساعات السيريال يتم توليده كالتالي : عندما يرغب العميل في تفعيل البرنامج يضغط على تسجيل البرنامج وعندما يتم فتح نموذج التسجيل يقوم العميل بإدخال رقمه السري لكي يتم اخذه ودمجه مع رقم المعالج وتوليد سيريال خاص اسميناه رقم النسخة يقوم العميل بارسال هذا الرقم إليك فتضع الرقم في ملف التسجيل او الكراك تقوم بتسجيل اسم العميل ورقم النسخة الخاص به فيعطيك الكراك رقم التفعيل لهذا المستخدم فتقوم انت بارسال رقم التفعيل هذا للعميل وهو بدوره يقوم بادخاله في خانة رقم التسجيل كما اشرت فان البرنامج بالكامل ليس له علاقة بأي تاريخ .. وما هو موجود في ملف الكراك هو لمعرفة متى تم توليد رقم التفعيل للعميل فقط لاغير اخي الكريم اقرأ الشرح هنا https://www.officena.net/ib/topic/86775-دمج-برنامج-الحماية-مع-برنامج-الفترة-التجريبية/ وستفهم الفكرة ان شاء الله هل ظهرت لك نفس الرسالة التي تقول نسخ الى الحافظة او حفظ السجل او افلات التغييرات؟ لم اقم بتشفير الارقام في الجداول وذلك لكي تتضح الصورة للأخوة وهنالك ملف تم ارفاقه تشفير باسورد المستخدم عند الادراج وفك تشفيره عند تسجيل الدخول.accdb يوضح كيفية استعمال التشفير في الجداول يمكنك استعماله لتشفير القيم في الجداول .. هنالك ملاحظة مهمة وهي ان رقم النسخة ورقم التفعيل حتى وان كانا غير مشفرين فلا مشكلة من ظهورهما على الاطلاق فلايمكن استخدامهما الا على نفس جهاز العميل المصرح له تم ارفاق مثال تشفير باسورد المستخدم عند الادراج وفك تشفيره عند تسجيل الدخول.accdb هنالك جدولين فقط جدول خاص بالمدة الزمنية لعمل البرنامج ويحتوي على حقلين حقل خاص باجمالي المدة الزمنية التي يرغب بوضعها صاحب البرنامج لعملائه وحق آخر خاص بالمدة الزمنية التي عمل بها العميل على البرنامج اما الجدول الآخر فيحتوي على حقل خاص بالرقم السري للمستخدم وهذا يجب ان يكون مشفر .. والحقل الآخر خاص برقم تفعيل البرنامج وهو غير مهم ولاداعي لتشفيره لان هذا الرقم لايعمل الا على نفس جهاز العميل فلاخوف من تسريبه لعميل اخر "لن يعمل معه" اي كود بالضبط .. هنالك اكود كثيرة اخي الكريم وانا بالحقيقة لا أملك الوقت الكافي لشرحها فأعتذر عن ذلك كل ماعلى العميل فعله هو ادخال رقمه السري الخاص به في اول خانة وذلك لتوليد سيريال خاص به يرسله لك للحصول على رقم التفعيل اتمنى من الأخوة الأفاضل قراءة الشرح لكي يتسنى لهم فهم آلية عمل البرنامج كما ارجو ان اكون قد وفقت في الإجابة على اسئلتكم وللمزيد من الاستفسارات أنا متواجد معكم ان شاء الله ملاحظة: بعد الاطلاع على المشاكل التي واجهت الاخوة تم بحمد الله إجراء بعض التعديلات على ملف البرنامج وهذه هي النسخة المعدلة في المرفقات .. اما ملف الكراك فلم يتم عليه اي تعديل تحياتي count-sec.mdb

السلام عليكم ورحمة الله وبركاته استأذن من استاذ @فارس بني هلال سيد مهند القي نظرتا الى كودك في قيمة افتراضية حضرتك كتبت =DLookUp("[دولار]";"سعر_الصرف") وفي الحقيقة ليس لدينا حقل باسم دولار في جدول سعر الصرف بل الحقل الموجود هو حقلين واحد العملة والثاني هو صرف اذا حضرتك تكتب فيه اكثر من عملة واحدة يجب ان تكتب في كودك الشرط بيكون يساوي دولار هكذا =DLookUp("[الصرف]";"سعر_الصرف";"[سعر_الصرف]![العملة]='" & "دولار" & "'") لكن اذا بيكون فيه سجل واحد وهو دولار ما شي الحال فقط غير في كودك كلمة دولار الى صرف هكذا =DLookUp("[الصرف]";"سعر_الصرف") Database5.rar

بسم الله الرحمن الرحيم ( وأشرقت الأرض بنور ربها ووضع الكتاب وجيء بالنبيين والشهداء وقضي بينهم بالحق وهم لا يظلمون ) تحياتى و ايام مباركه جعل الله هذه الايام_ايام رحمة و مغفرة و يفتح لنا الله ابواب الجنة امام دعائنا المستجاب_باذن الله هديتى لكل اعضاء_من برنامج حسابات اوفيسنا دبل كليك و اهداء خاص لمعلمى و الاساتذة الافاضل بالمنتدى و لكل من ساهم بعمله فى خدمة طالبى العلم تنويه الفضل الاول و الاخير بعد توفيق الله سبحانه و تعالى يرجع الى منتدانا و الاساتذة الافاضل باسرة المنتدى مرفق البرنامج مع الشرح لاتنسونا من صالح الدعاء Trial Balance_2018_ECO_2II.rar تم استخدام كود تكويد دليل الحسابات من اعمال / _ أ / عبدالله باقشير تم استخدام كود البحث و الاضافه من اعمال / _ أ / ابو عبدالله_اكسلجى و شكر خاص لاستاذنا / أ /ياسر خليل على مشاركاته المتميزه

اخي فارس هذا رابط جديد http://www.mediafire.com/file/ciqcxa9du74vc8g/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC_%D8%A7%D9%84%D8%B5%D8%A7%D8%AF%D8%B1_%D9%88%D8%A7%D9%84%D9%88%D8%A7%D8%B1%D8%AF.rar/file

مجهود رائع استاذ @sandanet والاروع تفاعلك معنا وسعة صدرك وتقبلك الاستفسارات والملاحظات وباذن الله نقوم بالتجارب المستمرة ونعلمك بجديد الملاحظات لتكون فكرتك مكتملة باذن الله

شكراً لك أخي الكريم sandanet تم تغيير الرقم من ثلاثة أكواد بنجاح كود في المولد ( registration_key ) [q2] = [q1] * 3 كود في النموذج (frm) If Val(aa1) = Nz(DLookup("serial", "tblsn"), 0) / 3 Then كود في المديول ( Module2 ) ayna = aa1 * 3

السلام عليكم انت تطلب في الكود الذهاب الى اخر سجل ======== اذا ترغب في الذهاب الى اول سجل اكتب في نفس الكود بدل last ==== first او اذا رغبت بسجل جديد اكتب =====new بالتوفيق

ارجو من الإدارة تعديل المرفق count-sec.mdb الموجود في المشاركة الاولى ووضع مكانه المرفق المعدل الموجود في المشاركة السابقة

بارك الله فيك ولك بمثل ما دعوت لى وزيادة والحمد لله الذى بنعمته تتم الصالحات

جزاك الله خيرا وجعله في ميزان حضرتك استاذ/ علي انا عااااااااااااااااااااااااااااااااااااااااااااااااجز عن الشكر جعله الله في ميزانك ووفقك لما تحبه وترضاه

يبقى حضرتك ماوضحتش هذا من الأول لأنك قلت عايز الخلية تكون بلون مختلف اذا كانت فارغة وليس كما قلت الأن ان تبقى بلا لون عموما تفضل تنسيق شرطي (1).xlsx

تفضل هذه محاولة المصنف1.xlsx

ما هى المشكلة ؟ يمكنك توضيح المشكلة على الملف ورفعها ثانية فالملف يعمل معى تمام وليس هناك اى مشكلة معى

شكراً أستاذ @sandanet على هذا المثال ..الرائع ملاحظاتي ... لحظة رائيت أنه سبقني الآن أخي @محمد عبد الشفيع لكن.. وبشكل مختصر: - لماذا تم اضافة كلمة سر هل يمكن الأستغناء عتها - رسائل تظهر بعد أضافة التسجيل - رقم النسخة ظاهر في الجدول tblsn بحقل وليس مشفر - ممكن مثال شرح كيف يتم التشفير - شرح الجداول - ممكن شرح الكود نحن تلامذتكم ولسنى بالمستوى فهمكم للاكواد -أشعر من خلال الأستخدام أن لعميل سيدخل في متاهة في التسجيل لذلك وجب تبسيط الفورم حتى تكون طريقة التفعيل سهلة على العميل أتمنى أن تجد الوقت الكافي للأجابة

أحسنت بارك الله فيك استاذى الكريم عمل رائع

اتفضل غير Combo ب اسم مربع تحرير وسرد عندك و غير FormArabic ب اسم نموذج ادخال العربية واسم FormEnglish ب اسم نموذج ادخال الانكليزية IF Me.Combo = "عربى" Then DoCmd.OpenForm "FormArabic", acNormal elseif me.Combo = "eng" then DoCmd.OpenForm "FormEnglish", acNormal endif

حسب ما افهم من قصدك حضرتك تريد عند اختيار قيمة تحويلة في كومبوبوكس تريد ان يكون طول النص في حقل فايلد ان يكون اربع مثل (de98) واذا تختار في كومبوبوكس قيمة ر قم حينئذ طول في حقل فايلد يكون اربع خانات او سبعة او ثمانية مثل (1234) او (gftr123) او (rt456781) اذا راح تستخدم هذا الكود بعد تحيديث كومبوبوكس If me.combo.value = "تحويلة" then Me.field.validationrule ="Is Null OR Like ""????""" Elseif me.combo.value = "رقم" then Me.field.validationrule="Is Null OR Like ""????"" OR Like ""???????"" OR Like ""????????""" End if

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

Go ahead insert date between tow date.mdb

السلام عليكم الاستاذ القدير AlwaZeeR شكرا لمروك العطر اخي العزيز استاذ حربي الرد كما بينه لك استاذنا العزيز AlwaZeeR مع فائق الشكر

اخى الراضي إذهب إلى الخلية AO27 بها معادلة خطأ وفقك الله

الملف مع المعادلة salimالتاريخ الافتراضي.rar