إضافة "إشعار حقوق الطبع والنشر" إلى قاعدة البيانات

[أبو آدم]

تلميح اليوم

كيفية إضافة "إشعار حقوق الطبع والنشر" إلى قاعدة البيانات

How To add Copyright Notice to the database

كلمات استدلالية:Copyright Notice - وحدة نمطية - نموذج

افتح وحدة نمطية جديدة

أنشئ وظيفة جديدة باسم copyright وحسب النص التالي

Function copyright()

        Dim DB As Database

        Dim P As Property

        Set DB = DBEngine(0)(0)

        Set P = DB.CreateProperty("Copyright Notice", DB_TEXT, "© Nart Lebzo Software " & Year(Now))

        DB.Properties.Append P

    End Function

افتح إطار التنفيذ المباشر (immediate ) بالضغط على ctrl+G و اطلب تنفيذ

? Copyright()

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

Private Sub Form_Open(Cancel As Integer)

Dim DB As Database

Set DB = DBEngine(0)(0)

Me.Caption = DB.Properties![CopyRight Notice]

End Sub

أو على شكل صندوق رسائل

Private Sub Command0_Click()

Dim Hi As Integer ' MsgBox response

Dim DB As Database

Set DB = DBEngine(0)(0)

Hi = MsgBox(DB.Properties![CopyRight Notice] , 64, "CopyRight Notice")

End Sub

ما رأيكم ... دام فضلكم

[ابوخليل]

جميل ،،، جملك الله بالايمان

قمت بتطبيق ما تفضلت به في التلميح الثاني ولكنه لا ينفذ الوحدة النمطية ويخرج خطأ ، وعندما استبدلتها بأخرى نفذت وعملت على أتم وجه ، وعند قارنتهما لم اجد فرقا ، وأنا الآن اطرحهما لك

لتجري عليهما فحصا وتشخص المشكلة

هذه عملت 

Function Tmp()

        Dim DB As Database

        Dim P As Property

        Set DB = DBEngine(0)(0)

        Set P = DB.CreateProperty("Copyright Notice", DB_TEXT, "(C) JT Software 1995")

        DB.Properties.Append P

    End Function

وهذه لم تعمل

Function copyright()

        Dim DB As Database

        Dim P As Property

        Set DB = DBEngine(0)(0)

        Set P = DB.CreateProperty("Copyright Notice", DB_TEXT, " © Nart Lebzo Software ") & Year(Now)

        DB.Properties.Append P

    End Function

[أبو آدم]

أخي العزيز

أعدت فحص الكود ووجدت الخلل، والخطأ مني حيث كتبت الكود مباشرة ولم انسخه نسخا وسهوت عن الفرق بين الكودين للسنة الثابتة و المتغيرة فعذرا

الكود الصحيح

Function copyright()

        Dim DB As Database

        Dim P As Property

        Set DB = DBEngine(0)(0)

        Set P = DB.CreateProperty("Copyright Notice", DB_TEXT, "© Nart Lebzo Software " & Year(Now))

        DB.Properties.Append P

    End Function

ولكن لا بأس فكلاهما نفس الفكرة حيث أن الكود الذي اوردته من المصدر تحدد فيه السنة ضمن النص ، والذي أوردته انا يدعم تغيير السنة حسب التاريخ ... فقط

شاكرا متابعتك وتنبيهك لعموم الفائدة و التصحيح ، وساقوم بتصحيح الكود في المشاركة الأصلية

والتمسوا لي العذر فمشاركتي كانت قبيل الفجر

[lordring]

هل بالامكان ارفقاق مثلا لاني طبقت الطريقة لكنها لم تعمل ..

وشكرا

[عبدالله المجرب]

سلمت افكارك استاذ نارت

ونور الموضوع باطلالة الاستاذ الوقور ابو خليل

ابواحمد

[أبو آدم]

تشرفت بمرورك الطيب أبا أحمد

أبو خليل ظهير جليل ، ورفيق درب ، وقرّة عين ، لا أستغني عنه !!

..........

[شامل2]

السلام عليكم

موضوع جميل وافكار رائعة

[ابوخليل]

اخواني ابو احمد وابو آدم

اشهد الله على حبكم ،

ومن تمام الاخوة : رفع الكلفة ، وترك الزوائد ، فالقلوب شواهد .

[أبو آدم]

أخي أبو خليل ... صدقت ونطقت بالحق ، وأنا أسعى لتمام الأخوة.

تطبيق الفكرة مرفق بالرابط ........ http://www.officena.net/ib/index.php?showtopic=39003&pid=214711&st=0&#entry214711

شكرا لمرور كل الأخوة الفضلاء

............

[lordring]

اخي العزيز جربت المرفق وعندما اقوم بتغيير محتوى الرسالة يتم التغيير عدا في عبارة حيثى تبقى باسمك

فرغم اني غيرتها داخل الوحدة النمطية فانها لاتتغير عند عرض النموذج

المرفق

http://dl.dropbox.co...t%20%282%29.rar

تم تعديل أكتوبر 28, 2011 بواسطه lordring

[lordring]

وهذا ما يظهر عند محاولة تطبيقها في ملف اخر

في هذا الملف

http://dl.dropbox.com/u/3638413/accesas/b4a.rar

[أبو آدم]

أنت تعدل بوحدة نمطية لم يعد لها لزوم ، فقد ترتنها للعلم فقط ، فقد تم تخزين حقوق الملكية في اعدادات التطبيق ، وتعديلها مسألة أخرى.

أنشيئ قاعدة جديدة وإتبع الخطوات من البداية بإسمك ، ووافني بالنتيجة

............

[lordring]

اخي قمت بعمل ملف جديد

وعندما اقوم بهذه الخطورة

افتح إطار التنفيذ المباشر (immediate ) بالضغط على ctrl+G

و اطلب تنفيذ

? Copyright()

Enter

تظهر لي رسالة الخطاء التالية

[أبو آدم]

لم تظهر لدي أي مشاكل

تفضل ... تطبيق 2007

.............

NA_SafaatechSoftware.rar

[lordring]

تم التنفيذ اخيرا.... شكرا بارك الله بيك ...

[lordring]

اخي فقط للعلم تطبيقك 2007 المرفق عبارة عن نموذج فارغ ؟؟؟؟

تم تعديل أكتوبر 28, 2011 بواسطه lordring

[أبو آدم]

الحمد لله ، وبفضله تقضى الحاجات

..............

[ياسر الحافظ]

اخي الغالي " صقر الموقع " استاذي نارت

انا هنا ... لاقول ادامك الله

جزاك الله كل الخير ... كنت قد قلت لك سابقا ليس لي بالاكسس ... ولكن اعمالك تشجع الجميع على الخوض به

ولكن لي بأخي المبدع نارت

وفقك الله

ابو الحارث

[أبو آدم]

إشتقت لك يا أبا الحارث ... عساك بخير

lordring يرجى تدقيق المرفقات قبل التعليق ، دقق قليلا اذا سمحت ... أرفقت لك ما طلبت ، نعم النموذج فارغ ولكنه ..

يحمل في اسم النموذج نص الملكية الذي طلبته.

؟؟؟!!!

[lordring]

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

شكرا لك..

[ابو بنسيانا]

ماشاء الله عليك استاذنا الحبيب " نارت "

يارب دائما الى الامام وفى تقدم مستمر ودام عليك الصحة

رائع اخى الحبيب ما قدمت