فهد الدوسري

دروس متقدمة في الأكسس للمبتدئين (الدرس الأول)

153 ردود في هذا الموضوع

دروس متقدمة في الأكسس للمبتدئين (الدرس الثاني)

====================================

السلام عليكم ورحمة الله وبركاته

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

====================================

نبدأ بالدرس الأول

استخدام أداة الشرط IF

(لا أعرف هل هي أداة أم غير ذلك ) قوموني مشكورين .

هذه الأداة هي شرطية .. بمعنى أنه لن يتم تنفيذ أمر معين إلا إذا تحقق شرط معين .

نطرح مثال لتقريب عمل هذه الأداة IF:

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

فهذه الأداة تعمل بهذه الطريقة :

نذكر الأداة أولاً ثم نذكر الكائن الذي نريد وضع الشرط عليه ثم نذكر الشرط ثم الأمر الذي نريده أن ينفذ إذا تحقق هذا الشرط ثم نضع ثم نضع أمر آخر يتم تنفيذه إذا لم يتحقق الشرط ثم ننهي عمل الدالة .

هكذا ..

IF [الكائن الذي عليه الشرط]=[الشرط] THEN

هنا نضع الأمر الذي نريد تنفيذه إذا تحقق الشرط

ELSE

هنا نضع  الأمر الآخر إذا لم يتحقق الشرط

END IF

توضيح :

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

أم علامة( يساوي ) فهي تتغير بحسب بناء هذه الأداة فقد تكون = أو < أو > أو <> أو غير ذلك بحسب الشرط الذي لدينا .

أما ( الشرط ) فقد يكون نص أو رقم أو تاريخ أو غير ذلك ..

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

الاختبار الأول :

أنشأ نموذج وسمه حسب ما تريد .. ضع فيه مربعي نص غير منظمين

المربع الأول سمه شرط

المربع الثاني سمه ناتج

ضع أمر زر على هذا النموذج

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

ثم ضع الأداة IF حسب ما تم شرحه ولكن بهذه الصورة .

إذا كتبت في مربع النص المسمى شرط الرقم 10 وبعد الضغط على هذا الزر يخرج في مربع النص المسمى ناتج يخرج الرقم 50 وإذا كان المربع شرط يحوي غير ذلك يكون المربع ناتج يحوي 100

تكون الإجابة بهذه الطريقة ..

IF [شرط] =10 THEN

[ناتج]=50

ELSE

[ناتج]=100

END IF

ليقم الجميع بتطبيق ذلك عملياً ومن ثم وضع البرنامج هنا في المنتدى لنرى استيعابكم لهذا الدرس

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

وسوف يكون هناك اختبار آخر بعد أن نتأكد من أن الجميع أتقن عمل هذه الأداة .

أنتظر ردكم وإجابتكم وبرامجكم على الاختبار الأول ..

(( بالنسبة للكود في المنتدى ففيه بعض الاختلاف لترى الكود بالطريقة الصحيحة قم بنسخه ولصقه سواء في الوورد أو الأكسس وأفضل الأكسس ))

وتقبلوا تحياتي

2

شارك هذا الرد


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

شكرا اخي فهد على كل ماتقوم به من مجهود وفعلا هذة الاوامر مثل if وغيرها

تحتاج الى تطبيق عملي لكي يتمكن الشخص في فهم هذة القواعد

هذة تطبيق على الاختبار الاول الذي طرحتة ارجو ان يكون صحيح وشكرا

first_test.zip

0

شارك هذا الرد


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

بارك الله فيك

وما زلنا ننتظر المزيد

اتمنى الا تتوقف فنحن بحاجتك

0

شارك هذا الرد


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

مبروك أخوي salem_1212

مثالك 100% صحيح

أنتظر البقية يضعوا أمثلتهم سواء صحيحة أو خاطئة حتى نأتي بالاختبار الثاني

0

شارك هذا الرد


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

اشكرك اخوي فهد من اعماق قلبي طبقت المثال والنتيجة 100/100

وننتظر المزيد

0

شارك هذا الرد


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

مشكور أخوي العزيز وجعلة الله في موازين حسناتك

وننتظر الدرس الثاني

(f)

0

شارك هذا الرد


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

الأخ العزيز فهد :

بإنتظار الدرس الثاني

النتيجه ميه ميه

تحياتي

0

شارك هذا الرد


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

الاخ الكريم /فهد الدوسري

السلام عليكم

اشكرك علي هذا الدرس الرائع وبصراحه والله لي مده وان ا ادور مثل هذا الدروس

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

ولكن المشكله في الاكواد هي التي يجب ان نطرق لها ونعرف كيف نتعامل معها

الله يوفقك ويجزاك عنا خير اخي الكريم

وتقبل خالص تحياتي(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)(f)

0

شارك هذا الرد


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

درس مفيد بالتوفيق:D

0

شارك هذا الرد


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

مع التحية والتقدير للاخ فهد هل هذا هو ما تريد ؟

tbFirstDate is a TextBox in form

ينفذ هذا الحدث عند الانتقال من سجل الى اخر

private sub Form_Current()

If Me!tbFirstDate >= Date

'MsgBox or other Events...

end if

end sub

0

شارك هذا الرد


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

الحمد لله أن الجميع فهم الشرح وطبق الاختبار الاول بنجاح

الاختبار الثاني :

في هذا الاختبار أريدك أنت أن تصيغ الجملة الشرطية بناء على ما يلي :-

نحتاج إلى مربع نص غير منظم في النموذج باسم txt1

نحتاج إلى زر أمر في النموذج أيضاً

نحتاج إلى وجود نموذجين آخرين غير هذا الذي عليه زر الأمر

النموذج الأول باسم FF1

النموذج الثاني باسم FF2

أما النموذج الذي عليه زر الأمر فسمه كما تشاء

نريد فتح نموذج بناء على شرط معين في مربع النص المسمى txt1

والجملة الشرطية تقول :

إذا كان مربع النص المسمى txt1 فيه كلمة (موافق) أفتح النموذج المسمى FF1

وإلا إفتح النموذج المسمى FF2

نهاية الجملة الشرطية

طبعاً الحدث يتم وضعه في زر الأمر هذا عند النقر

للعلم فقط الأمر الذي يقوم بفتح النموذج هو

DoCmd.OpenForm "FF1"

نقوم بتغيير FF1 إلى اسم النموذج الذي نريد

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

أرجو لكم التوفيق جميعاً ..

0

شارك هذا الرد


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

أخي الكريم/ فهد الدوسري

بارك الله فيك ووفقك إلى كل خير ترضاه على ما تقدمه من جهد.

وأرجو المعذرة لأني لم أشارك من الدرس الأول.

الإجابة على الدرس الثاني :

نضع الكود التالي في حدث عند النقر على الزر

If [txt1] = "موافق" Then



DoCmd.OpenForm "FF1"



Else

DoCmd.OpenForm "FF2"



End If

End Sub

مرفق مثال في الوصلة أدناه والله الموفق .

test_2.zip

0

شارك هذا الرد


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

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

بالنسبة لحل الاختبار الثاني

مرفع الحل

scand_test.zip

0

شارك هذا الرد


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

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

وإن شاء الله تستمر هذه الدروس..

وارفق لك تجربتي

test1.zip

0

شارك هذا الرد


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

إلى الاستاذ ابن مسقط جزاه الله ألف خير وبارك في جهوده وجميع المشاركين في الدروس

أرجو عدم ذكر الكود في المنتدى الخاص بالرد على الإجابة وذلك حتى لا يأخذه الكسول .. رغم علمي أن الموجودين لا يوجد فيهم كسول إن شاء الله .

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

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

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

(( أنا لم أرى الأمثلة حتى الآن ولكني أحببت أن أنبه فقط ))

وللجميع وافر تحياتي

0

شارك هذا الرد


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

بما أن نتيجة الاختبار الأول والثاني صحيحة 100%

فنأتي على الاختبار الثالث :

استخدام (و And ) و (أو Or )

مع الجملة الشرطية

الأدوات المطلوبة لكل من النموذجين هي :

مربع نص غير منظم باسم txt1

مربع نص غير منظم باسم txt2

زر أمر

استخدام Or

إذا كانت الكلمة الموجودة في txt1 هي (فهد الدوسري ) أو الرقم (100)

فيكون لون مربع النص txt1 (أحمر) ولون مربع النص txt2 (أصفر )

وإذا كانت غير هاتين الكلمتين فيكون مربع النص txt1 (أخضر) ولون txt2 (أزرق)

نهاية الجملة الشرطية

استخدام And

إذا كانت الكلمة الموجودة في txt1 هي (فهد) والكلمة الموجودة في txt2 هي(الدوسري)

فيكون لون مربع النص txt1 (أحمر) ولون مربع النص txt2 (أصفر )

وإذا كان أحد مربعي النص يحوي غير هاتين الكلمتين فيكون مربع النص txt1 (أخضر) ولون txt2 (أزرق)

نهاية الجملة الشرطية

طبعاً استخدام And في نموذج

واستخدام Or في نموذج آخر مستقل

للعلم فقط الحدث الذي يقوم بتلوين مربع النص هو

txt1.BackColor = 255

غير txt1 إلى مربع النص الذي تريد وغير 255 إلى اللون الذي تريد

أما أرقام الألوان المطلوبة فهي :

255

اللون الأحمر

16711680

اللون الأزرق

65535

اللون الأصفر

32768

اللون الأخضر

أرجو لكم التوفيق

0

شارك هذا الرد


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

اشكرك اخوي فهد والى الامام ونحن في انتظار المزيد من الامثلة والاختبارات

0

شارك هذا الرد


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

الأخ AliHamdan إجابتك 100% صحيحه

الاخ ابن مسقط إجابتك 100% صحيحه وطريقة الشرح رهييييييييييـــبه

الاخ salem_1212 كرر المحاولة مع Or فهي بنفس طريقة And فقط استبدل And بـ Or وليس هذا عيباً أن تخطئ بل هو طريق النجاح إن شاء الله

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

(clock)انتظر البقية حتى أضع الاختبار الرابع(clock)

0

شارك هذا الرد


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

الاخ فهد

جزاك الله خيرا

مشاركتي من يوم أمس ولم أراك علقت عليها يا استاذنا !!!

0

شارك هذا الرد


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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .