ابوخليل

هل تصورت الوضع ؟؟؟ تركيب برنامج جديد او انتهاء الاشتراك واحد .. اي سيظهر نموذج واحد الفرق ان نهاية الاشتراك سيظهر عبارة : الاشتراك منتهي ... للتجديد اتصل بــــ

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

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

السلام عليكم اعرض عليكم احبتي فكرة قمت بتنفيذها .. واريد تحسينها نقاش ودي .. متاح لجميع رواد المنتدى المبتدىء قبل الخبير الفكرة هي حماية البرنامج ليعمل في فترة محددة كأشتراك ... 1شهر / 6 شهور / سنة ... الفكرة تم تنفيذها بكل اتقان واحترافية بفضل الله . اكرر .. العملية ناجحة نجاحا باهرا بكل المعايير ........................................................ ولكن قبل ذلك البرنامج يحتوي على حماية ضد النسخ بمعنى حين ابعث البرنامج اول مرة للمستفيد ويقوم بتشغيله يظهر له رقم النسخة ويطالبه برقم التسجيل يقوم المستفيد بمراسلتي ويزودني برقم النسخة فأعطيه رقم التسجيل رقم التسجيل هذا هو ملك له ويتم حفظه بملف نصي بجانب قاعدة البيانات ومادام هذا الملف موجود وداخله رقم التسجيل الصحيح فالبرنامج يعمل على اتم وجه ---------------- علما ان حماية الاشتراك مشابهة لها تقريبا والاختلاف فقط ان الاشتراك يعتمد على تاريخ داخل جدول -------------------- الى هنا كل شيء حلو وجميل ........................................................ نأتي للمطلوب لتفعيل حماية الاشتراك 1- الافضل وهو المطلوب في السوق غالبا اتاحة نسخة تجريبية لفترة محددة كشهر واحد مثلا ... المطلوب : لا اريد اكوادا .... اريد التوجيه والشرح .. اريد طريقة لتنفيذ الفكرة 1- اريد الجمع بين الحماية الاولى والثانية بعملية واحدة .. كيف؟ 2- اريد لما تنتهي فترة التجربة ازوده برقم فيتم تفعيل البرنامج لسنة قادمة مثلا . ( الطريقة السهلة ان ارسل له واجهة جديدة مفعلة لمدة سنة ..) هل اجعل النسخة التجريبية متاحة للنسخ بمعنى انها لا تحتوي على شرط العمل على جهاز واحد ويكفي حماية الاشتراك لأنها بعد انقضاء الشهر لن تعمل ابدا حتى لو تم نقلها لجهاز آخر هذه الطريقة تتيح للمستفيد نقل البرنامج الى الاجهزة الاخرى فترة السماح وسوف يعمل ___________________________________________________________________________________ قد تتعجبون اذا قلت لكم .. خلال كتابتي لآخر الاسطر هذه .. اني وجدت الحل والطريقة للجمع بين الحمايتين .. وايضا تفعيل الاشتراك الدائم بارسال الرقم فقط كثيرا جدا مرات ومرات .. حين ابدأ بعرض المشكلة وابدأ بالكتابة .. اصل الى حل مقنع .. لأني اعرض على نفسي المشكلة .. واستوعب ابعادها وانا اكتب .. ثم الغي الطلب ولكني اشعر ان هذا الموضوع يهم فئة ليست قليلة لذا سأطرحه مع الحل الذي توصلت اليه __________________________________________________________________________________ الحل حسب وجهة نظري هو جعل كود الحماية ( رقم التسجيل ) مشترك بحيث يكون جزء منه يشمل الحماية من النسخ ، والجزء الآخر لتفعيل الاشتراك ............. الموضوع مفتوح للمناقشة .. ومقترحاتكم محل اهتمام

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

اضافة الى ما تفضل به اخي @Foksh آمل ان تأخذ هذه التوجيهات والملاحظات بصدر رحب .. لأنها تصب في صالحك اولا : هذا المنتدى تعليمي برمجي يلجأ اليه الأعضاء عندما يواجهون مشكلة في تنفيذ فكرة ما برمجية ايضا هو منتدى تعليمي لمن اراد التعلم و زيادة خبرته في كيفية انشاء مشاريع اكسس اذا الطالب الحريص يبدأ من اول درجات السلم ويعمل بجد حتى يرى نفسه متقنا للصنعة مشاريع اكسس تبدأ من : 1- الجداول // دراستها والطرق الصحيحة العلمية لإنشائها قبل الشروع في اعداد الجداول يجب تحليل بيانات المشروع وتصور ابعاده( المدخلات بانواعها / المخرجات بانواعها ) عند الاحاطة بابعاد المشروع (على اعتبار انه يعمل على الارض وعلى الورق) يمكن تحديد الجداول المطلوب انشاءها هذه الخطوات الاولية تعتبر اساس ومخ المشروع .. اذا تم اعداده بطرق سليمة فقد انهيت 75% الى 80% من القاعدة الأساسية للمشروع وحينها سيصبح استكمال بقية المشروع ممتعا للمبرمج ____________________________ لذا ان كنت جادا في التعلم فاعرض موضوعك بطريقة اخرى وعلى مراحل كثيرة : اول مرحلة : تفتح موضوعا جديدا تعرض فيه فكرة البرنامج وبتفاصيل دقيقة وتطلب رأي الخبراء عن الجداول الاساسية التي يجب عملها حين تعمل هذه الجداول حسب التوجيه تعرضها مرة اخرى للتصحيح والمتابعة استمر بعملك هذا خطوة خطوة .. بعد فترة قصيرة ستجد نفسك على المسار الصحيح .. وتسعى للاحتراف

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

يجب ان تتابع عن قرب افتح مجلد التيمب بعد اظهار المجلدات المخفية واجعله مفتوحا من اجل تتأكد عند الاجراء انا اعتقد انه يستخدم جدولا مخفيا

السلام عليكم المرفق ادناه يحتوي مثل ما في الصورة المعروضة عند النقر على الزر يفتح مربع حوار اكسس ، وعند النقر على Open يتم فتح المرفق المطلوب : لا اريد ظهور مربع حوار اكسس اريد ان يتم فتح المرفق من الزر مباشرة DbTest.rar

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

هذه الصور تبين النتيجة تصميم ثم عرض .. العرض يتم لجميع الطلاب

طيب بدون الحديث عن متغيرات وهمية وغيرها اعيد السؤال بصيغة اخرى .. ولعدم احراجك اخي الغالي فالسؤال موجه لعموم الخبراء هنا هل يمكن اظهار الصورة في الفورم من دون اخراجها خارج قاعدة البيانات؟

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

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

الكود في مشاركتي الاخيرة وافي وكافي ... فقط تضاف هذه الجملة عند اغلاق البرنامج لمن اراد حذف الملف FilePath = CurrentProject.Path & "\" & "soccer.png" Result = Dir(FilePath) If Result <> "" Then Kill FilePath End if وهذا يعني انك لم تفهم عني ما اريد راجع نقاشي مع اخونا فادي

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

كل الطرق اعلاه واحدة طريقتك كل فتح لاي نموذج اذا النماذج تحمل ايقونات في الاطار .. كل فتح يتم حذف الصورة ثم ارسالها مرة اخرى لو لم تفعل ذلك لا يمكنك الارسال مرة اخرى اقصد تشغيل الدالة سترجع بخطأ وجود الملف انا عالجت هذه المشكلة .. جعلت الارسال يتم مرة واحدة عند اقلاع البرنامج .. والبرنامج بكل مكوناته سيرتبط بالصورة مباشرة ولا حاجة للارسال Function RelinkIsIco() As String Dim rs As DAO.Recordset Dim rst As DAO.Recordset2 Dim FilePath As String Dim strFilePath As String Dim Result As String FilePath = CurrentProject.Path & "\" & "soccer.png" Result = Dir(FilePath) If Result <> "" Then RelinkIsIco = FilePath Exit Function Else Set rs = CurrentDb.OpenRecordset("tblEnDc") Set rst = rs.Fields("progIcon").Value strFilePath = CurrentProject.Path & "\" & rst.Fields("FileName").Value rst.Fields("FileData").SaveToFile strFilePath RelinkIsIco = strFilePath End If rst.Close Set rst = Nothing rs.Close Set rs = Nothing End Function ولكن هذا لا يكفي حاجتي او هدفي الى نوع من انواع الحماية الخاصة ليس بالضرورة ان يكون صورة

صباح الفل اخي فادي الغاية هي الوصول الى الهدف لا تتهرب .. سوف امهلك الى ما بعد الافطار

صباح الخير اخوي خليفة عمل جميل جدا .. ولكن لاحظ ان المسار المؤقت هو فعلا مسار حقيقي ويتم حفظ الصورة في مجلد التيمب في وندوز والدليل على ذلك انه لا يمكنك ارسالها مرة اخرى لأنها موجودة فعلا بالضبط كما عملت انا اعلاه .. الا انني جعلت الصورة قريبة من اجل التعامل معها بالحذف وايضا الارتباط نريد نحاول جعل المسار وهمي وليس مؤقت

وجدت حلا وهي الطريقة الوحيدة التي وصلت اليها وهي نسخ الصورة وارسالها بجانب قاعدة البيانات نعم هي طريقة مفيدة ... ففي هذا الوضع لا يعتمد البرنامج على صور خارجية .. وحتى لو تم حذفها او العبث في التسمية فسوف يدرج اكسس صورة جديدة ورغم ان الارسال سيتم مرة واحدة عند اقلاع البرنامج .. الا انه عند فتح النماذج كل نموذج يتم فتحه تتم عملية حذف الصورة الموجودة وارسال صورة جديدة ويمكنني تلافي ذلك بجعل الكود يتفحص اذا الصورة موجودة بجانب قاعدة البيانات ام لا .. فإذا موجودة يأخذ من موقع الصورة مباشرة وان لم يجدها يرسل جديدة . وغالبا ستكون موجودة بجوار قاعدة البيانات . سأعرض لكم الكود الذي تمت معالجته + المرفق Function RelinkIsIco() As String Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim strFilePath As String Set rs = CurrentDb.OpenRecordset("tblEnDc") Set rst = rs.Fields("progIcon").Value strFilePath = CurrentProject.Path & "\" & rst.Fields("FileName").Value Kill strFilePath rst.Fields("FileData").SaveToFile strFilePath rst.Close : Set rst = Nothing rs.Close : Set rs = Nothing RelinkIsIco = strFilePath End Function Private Sub cmdShar_Click() Me.img1.Picture = RelinkIsIco End Sub ولكني اطمح الى عمل افضل من ذلك وهنا يأتي السؤال : هل يمكن عمل متغير يحمل رابطا أو مسارا وهميا بدلا من المسار الصريح ؟ أو متغيرين .. واحد يحمل رابط وهمي والآخر يحمل اسم الملف ؟ Database2.rar

يا هلا اخوي محمد تغيب وتعود سالما غانما هي وحيدة يتيمة

صحيح 100% يجب التعامل كـــ Fields("FileData") ولكني نسيتها

السلام عليكم قمت بحفظ ايقونة في حقل مرفقات (Attachment) في جدول من اجل استخدامها في اماكن متعددة في البرنامج ذهبت الى هذا النهج من اجل تبقى الايقونة غير ظاهرة .. بحيث لا يمكن حذفها او التعديل عليها واستخدمت هذا الكود لكنه لم يعمل Function RelinkIsIco() As String Dim rs As DAO.Recordset Dim ImagePath As String Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblEnDc") ImagePath = rs!progIcon.Value RelinkIsIco = ImagePath rs.Close Set rs = Nothing End Function Private Sub cmdShar_Click() Me.img1.Picture = RelinkIsIco() End Sub آمل التصحيح ادناه مثال للتجربة Database1.rar

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

اجدت وأفدت مع ان ما قدمه اخونا Debug Ace رائع لا يقاوم .. لوجود ميزات متقدمة الا انني يبدو سأعتمد نسختك هذه لعدة اسباب : - تحقق عرض الخطوط العربية فقط من وندوز - التعامل مع التقرير مباشرة وحفظ آخر نسخة لتصبح دائمة - جلب الخلفية مفتوح وغير مقيد كل هذه قريبة من عملي تقريبا .. مع بعض التعديلات اللازمة جزاكم الله خيرا .. جميعا واجزل لكم الثواب