امير عاطف

هذا كود آخر يقوم بإظهار الأرقام التي اقل من او تساوي الرقم 100 باللون الأحمر والالوان التي اكبر من الرقم 100 باللون الأزرق (الكود شبيه بالتنسيق الشرطي ولكن باسلوب آخر) [Red][<=100];[Blue][>100] بالطبع يمكننا تغيير بالكود ما نشاء فقط باستبدال الأرقام

جملة التخصيص Let : جملة Let هي المسؤولة عن وضع القيم داخل المتغيرات التي قد نكون اعلنا عنها والصيغة العامة لهذا الأمر هي Let VariableName = Value بالطبع يتم استبدال VariableName بإسم المتغير لدينا ويتم وضع قيمة المتغير بدلاً من Value وها هو مثال على ذلك Sub calculate () Dim a, b As Byte Let a = 5 Let b = a + 2 End Sub مع ملاحظة انه يجب ان تتناسب القيمة التي تم وضعها داخل المتغير مع النوع المعلن عنه في جملة Dim وإلا سوف يتم الإعتراض على ذلك من البرنامج وتظهر لنا رسالة خطأ تفيد بذلك.

ان شاء الله

الاعلان عن المتغير: الاعلان عن المتغير يعني ان نخبر البرنامج بأسماء وانواع المتغيرات التي نريد استخدامها ويكون الاعلان عن طريق جملة Dim على سبيل المثال Dim age As Byte يخبر الأمر السابق على اننا نريد استخدام متغير اسمه age وهو من النوع Byte مثال آخر Dim a,b As Single يخبر الامر السابق البرنامج اننا نريد استخدام متغيران وهما a,b وهما من النوع Single مثال آخر Dim c يخبر الامر السابق البرنامج بأن هناك متغير اسمه c نريد استخدامه .. لو لاحظت المثال ان نوع المتغير c لم يتم الاعلان عنه ولذلك سوف يقوم البرنامج بجعل النوع Viarant هو النوع الافتراضي اذا لم يتم الاعلان عن المتغير في صيغة الأمر ملاحظة ******** يحدد مكان الاعلان عن المتغير عن مداه , فإذا تم الاعلان عن المتغير في قسم الاعلانات العامة اي خارج نطاق الاجراء اذن يعد متغيراً عاماً ويمكن استخدامه داخل اي اجراء دون الاعلان عن المتغير مره اخرى , اما اذا قمنا بالاعلان عن المتغير داخل الاجراء نفسه فيصبح المتغير متغيراً محلياً على مستوى هذا الاجراء فقط ولا يمكن استخدامه داخل اي اجراء آخر الاّ بالاعلان عن المتغير مره اخرى . ملاحظة******** رغم ان الاعلان عن المتغير ليس اجبارياً اذ اننا من الممكن ان نستخدم المتغير مباشرةً دون الاعلان عنه غير ان ذلك يؤدي الى حدوث اخطاء اثناء تشغيل البرنامج ..... والحل لذلك هو اننا نخبر البرنامج بأن يظهر لنا رسالة خطأ عند استخدام متغير لم يتم الاعلان عنه وذلك بكتابة الامر Option Explicit في قسم الاعلانات العامة Option Explicit

هناك عدة انواع من المتغيرات توفرها لنا لغة الـ VBA ويمكننا اختيار النوع الذي نرغب في استخدامه بناءاً على القيمة الذي نريد تخزينها بداخله .. وتنقسم المتغيرات في الاكسيل الى: 1- المتغيرات الرقمية: هي متغيرات يتم حجزها ليتم وضع داخلها قيمة رقمية ويمكننا تقسيم المتغرات الرقمية الى النوعين التاليين .. أ- المتغيرات الرقمية الصحيحه وهي متغيرات يتم وضع داخلها قيم رقميه صحيحه وليست قيم عشريه .. وتنقدسم المتغيرات الرقميه الصحيحه الى Byte وهو يأخذ حجم 1بايت من الرامات Ineger وهو يأخذ حجم 2بايت من الرامات Long وهو يأخذ حجم 4بايت من الرامات اي الفرق بينهم الحيز الذي يشغله المتغير في ذاكرة الجهاز (الرامات) ... بالطبع كلما زادت عدد البايتات كلما زادة القيمة التي يمكن تخزينها داخل المتغير ب- المتغيرات الرقمية العشريه هي متغيرات رقمية يتم حجزها داخل ذاكرة الجهاز حتى يتم وضع قيمة رقمية عشرية بداخلها .. وتنقسم المتغيرات الرقمية العشريه الى ٍٍٍSingle وهو يأخذ حجم 4بايت من الرامات Double وهو يأخذ حجم 8بايت من الرامات 2- المتغيرات الحرفية: هو متغير يتم تخزين داخله قيمة حرفية (اسم شخص مثلاً او عنوان شخص ..... الخ) ويمكن تخزين حتى خمسه وستون الف وخمسمائة حرف داخل المتغير الواحد الحرفي 3- المتغيرات المتلونة او المتنوعه: المتغير المتنوع Viarant هو متغير عام اي يمكن يحتوي على اي من قيم المتغيرات السابق ذكرها فيمكنك ان تضع به اسم شخص او رقم صحيح او رقم عشري او اي قيم تريدها ملاحظة **************** لماذا اذاً لا نستخدم المتغير المتنوع او المتلون Viarant بشكل دائم ؟ بالطبع هذا ليس من المحبذ عمله لأن المتغير المتلون Viarant يشغيل حيز كبير من رامات الجهاز وبذلك سوف يكون اهدار في استخدام ذاكرة الجهاز . 4 - المتغيرات الكائنيه او المتغير الكائن (Object Variable): هو متغير من نوع كائن وليس قيمة اي يمكننا ان نستخدم متغير من نوع Range او متغير من نوع Worksheet انواع المتغيرات في الاكسيل تجدها موضحة بالشكل المختصر التالي :

اسماء المتغيرات: يجب ان نعطي لكل متغير نستخدمه في البرنامج اسماً له لكي يتم التعامل مع المتغير من خلال الاسم الذي قمنا بتسميته له ولكن لاسم المتغير شروط محدده لا يمكن تجاوزها وهي : 1- ان لا يزيد اسم المتغير عن 255 حرفاً 2- ان يكون اول حرف من اسم المتغير حرفاً هجائياً ويمكن بعد ذلك ان يحتوي على ارقام 3- ان لا يتخلل اسم المتغي مسافات او احدى العلامات التاليه : * ! @ # $ % ^ واذا لزم الامر لوضع مسافه باسم المتغير نضع بدلاً من المسافه العلامه (_) Underscore 4- ان لا يكون ضمن اسم المتغير احدى الكلمات المحجوزة مثل If و Select ......... 5- يجب ان لا نكرر اسم المتغير داخل الاجراء الواحد ومن الافضل ان لا نكرر اسم المتغير داخل البرنامج ككل منعاً للأخطاء

المتغيرات Variable: المتغيرات هي دعامة البرمجه بأي لغة كانت اذ يمكننا ان نقوم بتعريف المتغير على انه وعاء او خانه في رامات الجهاز وتخزن داخل هذه الخانة مجموعه من القيم ليتم استخدامها داخل البرنامج , فيمكنك على سبيل المثال حجز متغير لتضع داخله مرتب العامل ومتغير اخر لإسم العامل ومتغير ثالث لعنوان العامل حتى يمكنك تسجيل تلك القيم التي تم تسجيلها داخل المتغيرات اثناء تنفيذ البرنامج, لكن تلك القيم المسجله داخل المتغيرات هي قيم مؤقته أي انه بمجرد الانتهاء من تنفيذ البرنامج ستفقد تلك القيم وذالك لكونها في ذاكرة الكمبيوتر( الرامات) أي بمعنى اصح المتغيرات تعتبر بمثابة المسودة كالورق الذي نجري عليه بعض الحسابات الخارجيه فكل ما يهمنا من هذا الورق هو الناتج النهائي وليست الخطوات التي تمت لاظهار الناتج للعمليه فعلى بيل المثال اذا اردنا ان نجمع الرقمين 5 و 6 فنقوم بحجز متغيرين ونضع باحداهما القيمة 5 والاخر القيمة6 وبعد ان تتم العمليه الحسابيه فإننا لن نحتاج الاّ للناتج النهائي وهو الرقم 11 وبعد ذلك لن نحتاج لكلا الرقمين 5 و6

وهذه روابط رائعه ايضاً من موقع مايكروسوفت تشرح كيفية تفادي وحل مشاكل قواعد البيانات المعطوبه http://support.microsoft.com/default.aspx?scid=kb;[LN];Q300216 http://support.microsoft.com/default.aspx?scid=kb;[LN];Q306204 http://support.microsoft.com/default.aspx?scid=kb;[LN];Q209137

بالضبط اخي فيصل الكود لا يمكن الوصول اليه من خلال قاعدة بصيغة MDE (وهذا هو خلاصة القول)

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

ولكن بعد ذلك تم صنع برامج تقوم بتدمير عدم تفعيل مفتاح الشيفت وفكرة مثل هذه البرامج تقوم على الغاء الخاصية الذي تحدثنا عنها سابقاً وهي الخاصية AllowBypassKey .... ومن هذه البرامج مثل البريمج الذي قام بنشره الأخ الكريم يجزاه الله عنا كل خير فيصل الحربي في هذا الرابط http://www.officena.net/ib/index.php?act=ST&f=21&t=111

طبعاً في هذه الحاله لن يكون هناك امان لأن اي قاعدة بيانات حيث يمكن اختراقها بهذا الشكل ولكن اتت ميكروسوفت بجملة في التعليمات هذا هو نصها : You can use the AllowBypassKey property to specify whether or not the SHIFT key is enabled for bypassing the startup properties and the AutoExec macro. For example, you can set the AllowBypassKey property to False to prevent a user from bypassing the startup properties and the AutoExec macro. ومعنى ذلك انه يمكن عدم تفعيل الشيفت وتفعيله كما نريد عن طريق جعل قيمة الخاصية AllowBypassKey تساوي False أو True اذن بهذه الفكره التي طرحتها مايكرو سوفت اذن لا يمكن اختراق اي قاعدة عن طريق مفتاح الشيفت اذا تم وضع قيمة الخاصية AllowBypassKey تساوي False ها هو الكود الخاص بعدم تفعيل مفتاح الشيفت : Private Const ErrPropNotFound As Long = 3270 Public Function SetAllowByPassKey() Dim db As DAO.Database Dim prp As DAO.Property On Error Resume Next Set db = CurrentDb db.Properties("AllowBypassKey").Value = False If Err.Number = ErrPropNotFound Then Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False) db.Properties.Append prp End If Err.Clear End Function وها هو الكود الخاص بتفعيل مفتاح الشيفت : Private Const ErrPropNotFound As Long = 3270 Public Function SetnotAllowByPassKey() Dim db As DAO.Database Dim prp As DAO.Property On Error Resume Next Set db = CurrentDb db.Properties("AllowBypassKey").Value = True If Err.Number = ErrPropNotFound Then Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, True) db.Properties.Append prp End If Err.Clear End Function ولا ننسى اذا قمنا بوضح احد هذه الاكواد السابق ان نقوم بتنشيط المرجع المسمى: Microsoft DAO 3.6 Object Library ويمكن الوصول الى هذا المرجع من خلال نافذة الكود عن طريق الذهاب الى Tools ----- References ثم بعد ذلك يظهر لنا نموذج نختار منه المرجع السابق

مفتاح الـ SHIFT هو مفتاح يتم الضغط عليه فور تشغيل قاعدة البيانات فيعمل على الغاء اعدادات بدء التشغيل والغاء اعدادات ماكرو Autoexec اي بمعنى اصح يقوم بالغاء فعاليتهم ويمتم استخدام ذلك في اختراق قواعد البيانات للمزيد من المعلومات عن ماكرو Autuexec اذهب الى هذا الرابط http://www.officena.net/ib/index.php?act=ST&f=6&t=100

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

برنامج Access kit هو برنامج يقوم باصلاح قواعد البيانات المعطوبة والتي يكون بها مشكله . يمكن التعامل معه بسهولة وهو باستيراد قاعدة البيانات اليه . للعلم انه نسخه مجانيه بالكامل ويقوم باصلاح اي اصدار من قواعد بيانات اكسس سواء اكسس97 او اكسس 2000 او اكسس2002 حجمه حوالي من 650 الى 700 ميجا بايت

ملا حظة مع اوفيس 2000 : ماكرو AutoKeys عند اختيار اللغة العربية كواجهة للتطبيقات قد لايعمل هذا الماكرو أما عند اختيار اللغة الإنجليزية فهو يعمل جيداً . ( هذا مع اوفيس 2000 فقط ) اما مع اوفيس Xp فهو يعمل جيداً مع كلا الواجهتين العربية والانجليزية

ماكرو AutoExec هو ماكرو يقوم بتنفيذ مهام نحددها له فور تشغيل قاعدة البيانات لعمل ذلك اتبع الخطوات التاليه: 1 - قم بانشاء ماكرو جديد 2 - قم بوضع الأوامر الذي تريد ان تعمل من تلقاء نفسها فور تشغيل قاعدة البيانات وليكن فتح فورم للترحيب 3 - قم بعمل حفظ للماكرو وقم بتسميته بـ AutoExec 4 - قم بإغلاق قاعدة البيانات ثم قم بفتحها مره اخرى .. تجد بمجرد فتح قاعدة البيانات فورمة الترحيب ظهرت من تلقاء نفسها

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

لإضافة خلفية الى شريحة عرض الباور بوينت فإنه يمكنك أن تقوم بذلك بالذهاب الى شريط الأدوات ثم الى تنسيق ثم خلفية ...... بعدها سيظهر لك المربع التالي ، ومنه اختر الأمر ( تأثيرات التعبئة … ) أما إذا اخترت الأمر ( ألوان إضافية … ) فانه سيسمح لك بإضافة ألوان للخلفية . بعد إختيارك للأمر ( تأثيرات التعبئة … ) سيظهر لمك المربع والذي يعطيك عدة إختيارات هي : 1- صورة : يسمح لك بإضافة صورة سبق وأن خزنتها في جهازك ( صورة من ملف ) 2- نقش : يسمح لك بإضافة النقوش الى الشريحة كخلفية . 3- مادة : عبارة عن خلفيات جاهزة في البرنامج بالوان جميلة وخلابة . 4- تدرج : يسمح لك بإضافة ألوان متدرجة كخلفية للشريحة يمكنك أن تختار شكل تنسيق الالوان ودرجاتها وكيفية تدرجها في الشريحة ، ويمكنك من إختيار عدد الالوان .

إذا أردت إضافة صوت الى الشريحة فأمامك طريقتين لعمل ذلك..... الأولى: وهي إضافة ملف ( WaV ) الثانية: بتسجيل الصوت بواسطة برنامج الباوربوينت نفسه . أما الطريقة الأولى ( طريقة إدراج ملف WaV ) : 1-أختر من قائمة ( إدراج ) الأمر ( أفلام وصور ) ثم اختر ( صوت من ملف ) . و أما الطريقة الثانية فهي ( طريقة تسجيل الصوت بواسطة الباوربوينت ) : ويمكنك أن تقوم بذلك بإتباع الخطوات التالية : أختر من قائمة ( إدراج ) الأمر ( أفلام وصور ) ثم أختر تسجيل الصوت . بعدها سيظهر لك المربع ، الذي سيسمح لك بتسجيل الصوت ( يمكنك استخدام المايك في عملية التسجيل أو الكابل الخاص الذي يربط الكمبيوتر بجهاز التسجيل ) أوامر الأزرار : 1- الزر الأحمر يسمح لك بتسجيل الصوت . 2-المربع يوقف عملية التسجيل . 3- موافق يخزن الملف باسم ( صوت مسجل ) – ( يمكنك تغيير الاسم بكتابة الاسم الذي تريده ) . 4- زر ( إلغاء الأمر ) يلغي الصوت المسجل ولا يخزنه . 5- زر السهم المشير الى اليسار يعرض الصوت المسجل من قبلكم وكيف سيظهر في الشريحة .

استخدام ماكرو الماكرو هو عبارة عن سلسلة من أوامر Excel التي تستخدمها بشكل متسلسل ومتكرر حيث يمكنك استخدام الماكرو لتجميعها في أمر واحد، مما يسهل المهام الروتينية اليومية. ويمكنك إضافة زر ماكرو لشريط الأدوات بحيث يصبح استعمال الماكرو كاستعمال أي أمر من أوامر Excel. او بمعنى آخر الماكرو هو مجموعة من الأوامر يمكنك حفظها لكي يتم تنفيذها دفعةً واحدة في أي وقت تريد دون الحاجه الى تنفيذ كل تلك الأوامر في كل مرة تريدها... ويتم ذلك بإحدى طريقتين: الأولى .. اما بالضغط على مفتاح معين من لوحة المفاتيح الثانية .. عمل كليك فوق اداه معينه من سطور الأدوات هناك العديد من الماكروات التي تم اعدادها بشكل جاهر من قبل مايكروسوفت الشركة المصنعه للاكسيل..... على سبيل المثال عنما تريد ان تقوم بحفظ العمل فيمكنك عمل ذلك بالضغط على Ctrl + S بدل من الذهاب الى قائمة File --- Save فبالضغط على هذين المفتاحين Ctrl + S فيتم استدعاء الماكرو المختص بالحفظ .. وعلى سبيل مثال آخر لاضافة ملاحظات بخليه معينه يمكنك عمل ذلك بشكل سريع عن طريق الضغط على Shift + F2 بدل من الذهاب الى قائمة Insert --- Comment وهنا ايضاً بالضغط على هذهين المفتاحين Shift + F2 فإنه يتم استدعاء الماكرو الخاص بإضافة التعليق بالخليه .... وهناك ايضاً العديد من الماكروات التي تم اعدادها بشكل جاهز من قبل مايكروسوفت ومعروفه لدينا باسم (مفاتيح الاختزال) ----------------------------------------------- تسجيل ماكرو سنقوم بتسجيل ماكرو لفتح ملف "حسابات البنوك" المخزن في المجلد Chapter 13، وذلك لاختصار الوصول إلى هذا الملف إذا كنت تستخدمه بشكل متكرر. خطوات تسجيل ماكرو إختر الأمر "ماكرو" من قائمة "أدوات" ومن ثم اختر الأمر "تسجيل ماكرو جديد". في مربع حوار "تسجيل الماكرو" غير الاسم الافتراضي ماكرو 1 باسم فتح_حسابات_بنوك، لتتذكر الهدف من هذا الماكرو لاحقاً. تأكد من عدم ترك فراغات في خانة اسم الماكرو باستخدام (_) بين كلمات جملة الاسم. يمكنك تخصيص اختصار لتشغيل الماكرو إذا أردت استخدم خانة "مفتاح اختصار". حدد من القائمة المنسدلة مكان تخزين الماكرو وهو مصنف الماكرو الشخصي. إضغط على المفتاح "موافق". سيوفر لك Excel أزرار إيقاف تسجيل ماكرو والتي ستستخدمها عند الانتهاء من تسجيل أوامر ماكرو فتح ملف حسابات البنوك. لاحظ على شريط المعلومات حالة "تسجيل" وهنا فإن أي أمر ستقوم به سيسجل من قبل الماكرو. قم بفتح الملف حسابات البنوك كما كنت تفعل سابقاً. اضغط على زر إيقاف التسجيل. عند الخروج من Excel تأكد من حفظ التغييرات للماكرو لتكون متوفرة عند تشغيل Excel في المرة القادمة. تنفيذ الماكرو عند تشغيل Excel سنستخدم الماكرو "فتح_حسابات_بنوك" لفتح الملف السابق. خطوات تنفيذ ماكرو اختر الأمر "ماكرو" من قائمة "أدوات" ومن ثم اختر الأمر "وحدات ماكرو". في مربع حوار "وحدات ماكرو" حدد اسم الماكرو "فتح_حسابات_بنوك". اضغط على مفتاح تشغيل. سيقوم الماكرو بفتح الملف مختصرا الخطوات الروتينية المعتادة.

لماذا نستخدم جمل SQL بالرغم من انه يمكن عمل ذلك من خلال نافذة التصميم للاستعلام: اولاً: ان الكثير من مزايا جمل SQL لا يمكن الوصول اليها من نافذة التصميم للاستعلام ... على سبيل المثال لا يوجد طريقة لانشاء استعلام توحيد او استعلام جزئي او استعلام تمرير ولعمل ذلك عليك كتابة جمل SQL مباشرةً ثانياً: لا يمكن استخدام لغة معالجة البيانات (DML) او الـ (DATA MANIBULATION LANGUAGE) من خلال نافذة التصميم للاستعلام ولاستخدام هذه اللغة عليك كتابة جمل SQL مباشرةً

بالفعل هذا الكود رائع جداً بالطبع يمكن تغيير الارقام السالبه الى اي لون اخر غير اللون الأحمر... وهذه هي الألوان المتاحة الذي يمكن التغيير اليها وما عليك الاّ استبدالها مكان اللون الاحمر بالكود السابق [black] [blue] [Cyan] [Green] [Magenta] [Red] [White] [Yellow]

لو سمحت اخي الكريم: عند الانتقال من الDAO الى ADO هل يحتاج ذلك لإعداد مراجع معينة او ازلة اي مراجع

ما الحكمة من استخدام Set mydb = Nothing