الرئيسية
السلام عليكم ورحمة الله وبركاته
هذه الدروس تخص المبتدئين فقط فالكل - تقريباً - يعرف كيف ينشأ جدول أو استعلام أو تقرير أو ماكرو ولكن تنقصه معرفة الأدوات والأكواد سواء في النماذج أو التقارير .. لذا سوف أقوم بشرح ما أعرفه من الأدوات والأكواد والتي تستعمل بصورة شبه مستمرة في أغلب البرامج ولا يستغني عنها أحد سواء المبتدئ أو الخبير .. وأرجو من الجميع معذرتي إذا حصل مني خطأ أو تقصير فهذا ناتج عن قلة خبرتي في الأكواد .. لذا سوف أشرح لكم على حسب علمي وعلى حسب ما أعرفه أنا فقط لأني في البداية لم أكن أعرف هذه الأدوات أو هذه الأكواد .. ولكن الآن أصبحت أعرفها وأعرف بعض طرقها وسوف أجعلكم بإذن الله تعرفون بعض طرقها كما عرفتها أنا.. ولا أستغني أبداً عن مساعدة الأخوة المشرفين والخبراء وبقية الأعضاء سواء لتكملة هذه الدروس أو لتنبيها عند الخطأ وتصحيحه لنا .. فنحن في هذا المنتدى نعتبر فريق واحد يكمل كل منا الآخر ... والآن بعد هذه المقدمة الطويلة التعريفية لهذه الدروس .
====================================
نبدأ بالدرس الأول
استخدام أداة الشرط IF
(لا أعرف هل هي أداة أم غير ذلك ) قوموني مشكورين .
هذه الأداة هي شرطية .. بمعنى أنه لن يتم تنفيذ أمر معين إلا إذا تحقق شرط معين .
نطرح مثال لتقريب عمل هذه الأداة IF:
لدى في برنامجي زر فيه( أمر حذف سجل) عند الضغط على هذا الزر يتم حذف سجل من البرنامج ... ولكني أريد أن لا يقوم هذا الزر بحذف أي موظف يكون بالمرتبة العاشرة فما فوق أما من المرتبة الأولى وحتى العاشرة فيتم الحذف دون تردد فكيف يتم عمل ذلك .. نقول يتم عمل ذلك عن طريق أداة الشرط IF .
فهذه الأداة تعمل بهذه الطريقة :
نذكر الأداة أولاً ثم نذكر الكائن الذي نريد وضع الشرط عليه ثم نذكر الشرط ثم الأمر الذي نريده أن ينفذ إذا تحقق هذا الشرط ثم نضع ثم نضع أمر آخر يتم تنفيذه إذا لم يتحقق الشرط ثم ننهي عمل الدالة .
هكذا ..
كودIF [الكائن الذي عليه الشرط]=[الشرط] THEN
هنا نضع الأمر الذي نريد تنفيذه إذا تحقق الشرط
ELSE
هنا نضع الأمر الآخر إذا لم يتحقق الشرط
END IF
توضيح :
(الكائن الذي عليه الشرط ) قد يكون مربع نص منظم أو غير منظم وقد يكون مربع تسمية وقد يكون مربع تحرير وسرد وقد يكون زر أمر وقد يكون النموذج نفسه وهكذا ..
أم علامة( يساوي ) فهي تتغير بحسب بناء هذه الأداة فقد تكون = أو < أو > أو <> أو غير ذلك بحسب الشرط الذي لدينا .
أما ( الشرط ) فقد يكون نص أو رقم أو تاريخ أو غير ذلك ..
أما الأمر الذي نضعه فقد يكون أمر حذف سجل أو أمر فتح نموذج أو رسالة أو تغيير بيانات في مربع نص آخر أو تسمية أو غير ذلك بحسب ما نريده ..
الاختبار الأول :
أنشأ نموذج وسمه حسب ما تريد .. ضع فيه مربعي نص غير منظمين
المربع الأول سمه شرط
المربع الثاني سمه ناتج
ضع أمر زر على هذا النموذج
(اذهب إلى خصائص هذا الزر .. ثم حدث .. ثم عند النقر .. ثم أختر (إجراء حدث) .. ثم أضغط على النقاط الثلاث(...) التي بجواره ليفتح لك محرر الفيجول بيسك الذي سوف نضع الكود فيه)
ثم ضع الأداة IF حسب ما تم شرحه ولكن بهذه الصورة .
إذا كتبت في مربع النص المسمى شرط الرقم 10 وبعد الضغط على هذا الزر يخرج في مربع النص المسمى ناتج يخرج الرقم 50 وإذا كان المربع شرط يحوي غير ذلك يكون المربع ناتج يحوي 100
تكون الإجابة بهذه الطريقة ..
كودIF [شرط] =10 THEN
[ناتج]=50
ELSE
[ناتج]=100
END IF
ليقم الجميع بتطبيق ذلك عملياً ومن ثم وضع البرنامج هنا في المنتدى لنرى استيعابكم لهذا الدرس
ولا نريد من أحد أن يأخذ الفكرة من غيره فلن يستفيد بهذه الطريقة كل شخص يضع البرنامج حسب فهمه سواء كان صحيح أو خطأ حتى نقوم المخطئ ويعرف أين كان خطأه ليتلافاه في المرات القادمة
وسوف يكون هناك اختبار آخر بعد أن نتأكد من أن الجميع أتقن عمل هذه الأداة .
أنتظر ردكم وإجابتكم وبرامجكم على الاختبار الأول ..
(( بالنسبة للكود في المنتدى ففيه بعض الاختلاف لترى الكود بالطريقة الصحيحة قم بنسخه ولصقه سواء في الوورد أو الأكسس وأفضل الأكسس ))
وتقبلوا تحياتي
هذه الدروس تخص المبتدئين فقط فالكل - تقريباً - يعرف كيف ينشأ جدول أو استعلام أو تقرير أو ماكرو ولكن تنقصه معرفة الأدوات والأكواد سواء في النماذج أو التقارير .. لذا سوف أقوم بشرح ما أعرفه من الأدوات والأكواد والتي تستعمل بصورة شبه مستمرة في أغلب البرامج ولا يستغني عنها أحد سواء المبتدئ أو الخبير .. وأرجو من الجميع معذرتي إذا حصل مني خطأ أو تقصير فهذا ناتج عن قلة خبرتي في الأكواد .. لذا سوف أشرح لكم على حسب علمي وعلى حسب ما أعرفه أنا فقط لأني في البداية لم أكن أعرف هذه الأدوات أو هذه الأكواد .. ولكن الآن أصبحت أعرفها وأعرف بعض طرقها وسوف أجعلكم بإذن الله تعرفون بعض طرقها كما عرفتها أنا.. ولا أستغني أبداً عن مساعدة الأخوة المشرفين والخبراء وبقية الأعضاء سواء لتكملة هذه الدروس أو لتنبيها عند الخطأ وتصحيحه لنا .. فنحن في هذا المنتدى نعتبر فريق واحد يكمل كل منا الآخر ... والآن بعد هذه المقدمة الطويلة التعريفية لهذه الدروس .
====================================
نبدأ بالدرس الأول
استخدام أداة الشرط IF
(لا أعرف هل هي أداة أم غير ذلك ) قوموني مشكورين .
هذه الأداة هي شرطية .. بمعنى أنه لن يتم تنفيذ أمر معين إلا إذا تحقق شرط معين .
نطرح مثال لتقريب عمل هذه الأداة IF:
لدى في برنامجي زر فيه( أمر حذف سجل) عند الضغط على هذا الزر يتم حذف سجل من البرنامج ... ولكني أريد أن لا يقوم هذا الزر بحذف أي موظف يكون بالمرتبة العاشرة فما فوق أما من المرتبة الأولى وحتى العاشرة فيتم الحذف دون تردد فكيف يتم عمل ذلك .. نقول يتم عمل ذلك عن طريق أداة الشرط IF .
فهذه الأداة تعمل بهذه الطريقة :
نذكر الأداة أولاً ثم نذكر الكائن الذي نريد وضع الشرط عليه ثم نذكر الشرط ثم الأمر الذي نريده أن ينفذ إذا تحقق هذا الشرط ثم نضع ثم نضع أمر آخر يتم تنفيذه إذا لم يتحقق الشرط ثم ننهي عمل الدالة .
هكذا ..
كودIF [الكائن الذي عليه الشرط]=[الشرط] THEN
هنا نضع الأمر الذي نريد تنفيذه إذا تحقق الشرط
ELSE
هنا نضع الأمر الآخر إذا لم يتحقق الشرط
END IF
توضيح :
(الكائن الذي عليه الشرط ) قد يكون مربع نص منظم أو غير منظم وقد يكون مربع تسمية وقد يكون مربع تحرير وسرد وقد يكون زر أمر وقد يكون النموذج نفسه وهكذا ..
أم علامة( يساوي ) فهي تتغير بحسب بناء هذه الأداة فقد تكون = أو < أو > أو <> أو غير ذلك بحسب الشرط الذي لدينا .
أما ( الشرط ) فقد يكون نص أو رقم أو تاريخ أو غير ذلك ..
أما الأمر الذي نضعه فقد يكون أمر حذف سجل أو أمر فتح نموذج أو رسالة أو تغيير بيانات في مربع نص آخر أو تسمية أو غير ذلك بحسب ما نريده ..
الاختبار الأول :
أنشأ نموذج وسمه حسب ما تريد .. ضع فيه مربعي نص غير منظمين
المربع الأول سمه شرط
المربع الثاني سمه ناتج
ضع أمر زر على هذا النموذج
(اذهب إلى خصائص هذا الزر .. ثم حدث .. ثم عند النقر .. ثم أختر (إجراء حدث) .. ثم أضغط على النقاط الثلاث(...) التي بجواره ليفتح لك محرر الفيجول بيسك الذي سوف نضع الكود فيه)
ثم ضع الأداة IF حسب ما تم شرحه ولكن بهذه الصورة .
إذا كتبت في مربع النص المسمى شرط الرقم 10 وبعد الضغط على هذا الزر يخرج في مربع النص المسمى ناتج يخرج الرقم 50 وإذا كان المربع شرط يحوي غير ذلك يكون المربع ناتج يحوي 100
تكون الإجابة بهذه الطريقة ..
كودIF [شرط] =10 THEN
[ناتج]=50
ELSE
[ناتج]=100
END IF
ليقم الجميع بتطبيق ذلك عملياً ومن ثم وضع البرنامج هنا في المنتدى لنرى استيعابكم لهذا الدرس
ولا نريد من أحد أن يأخذ الفكرة من غيره فلن يستفيد بهذه الطريقة كل شخص يضع البرنامج حسب فهمه سواء كان صحيح أو خطأ حتى نقوم المخطئ ويعرف أين كان خطأه ليتلافاه في المرات القادمة
وسوف يكون هناك اختبار آخر بعد أن نتأكد من أن الجميع أتقن عمل هذه الأداة .
أنتظر ردكم وإجابتكم وبرامجكم على الاختبار الأول ..
(( بالنسبة للكود في المنتدى ففيه بعض الاختلاف لترى الكود بالطريقة الصحيحة قم بنسخه ولصقه سواء في الوورد أو الأكسس وأفضل الأكسس ))
وتقبلوا تحياتي
