اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

شرح كيفية ادخال الكود للمبتدئين بالصور


الردود الموصى بها

السلام عليكم
اخواني اليكم هذه المشاركة التي اتمنى ان يستفيد منها اي اخ وخصوصا المبتدئين والذين لا يعرفون عن الكود

اولا : انشئ قاعدة بيانات جديدة ثم انشئ فيها نموذج جديد عن طريق انشاء نموذج في طريقة عرض التصميم
ثم اضف الية مربعي نص و تسمية وزر امر كما في الصورة التالية


f_1m_f7be751.jpg

الخطوة الثانية هي تسمية مربعي نص و التسمية وزر الامر وذلك عن طريق النقر بزر الماوس الايمن واختيار خصائص ومثلا انا اخترت box1 و box2 لمربعي النص و txt1 للتسمية و do لزر الامر
ثم نضغط بزر الماوس اليمين

f_2m_8234bc8.jpg

f_3m_1d09595.jpg

f_4m_5711380.jpg

ثم نختار (حدث) كما يلي

f_5m_e8bd417.jpg

f_6m_58e949f.jpg

فتفتح لنا الشاشة الخاصة بادخال الكودات

f_7m_ddcdcd9.jpg

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

والملف المرفق فية نفس المثال السابق وتكون فية وضيفة زر الامر do هي الحصول على ناتج ضرب box1 * box2

وانشاء الله اذا وجدت اهتمام في هذا الموضوع ساقوم بوضع بعض الكودات الضرورية
وارجو الاستفادة

Ex.rar

رابط هذا التعليق
شارك

اشكركم اخواني على التشجيع واليكم بعض الكودات المهمة في البرمجة

الوظيفة <<==========================الكود

اصدار صوت<<====================DoCmd.Beep

اغلاق النموذج او التقرير<<=============DoCmd.Close

تكبير النموذج او التقرير<<===========DoCmd.Maximize

تصغير النموذج او التقرير<<===========DoCmd.Minimize

الخروج النهائي من قاعدة البيانات<<========DoCmd.Quit

  • Like 1
رابط هذا التعليق
شارك

اخواني سيتم اليوم شرح اضافة الشرط وشرح فتح نموذج او تقرير برمجيا

اولا الشرط IF

وظيفة الاداة IF هي التاكد من تحقق شرط معين ثم تنفيذ امر معين واذا لم يكن الشرط تحقق تنفيذ امر اخر

مثال:

بالرجوع الى المثال السابق المرفق في بداية الموضوع

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

 If box1.Value < 0 Or box2.Value < 0 Then
MsgBox "لا يجب ان تكون القيم اقل من صفر"
Else
txt1.Caption = ([box1] * [box2])
End If
ثانيا فتح نموذج او تقرير بواسطة زر امر برمجيا الصيغة OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs) 1-FormName ( اسم النموذج المراد فتحة ويجب وضعة بين علامتي الاقتباس ( "اسم النموذج" 2-View طريقة العرض . 3-FilterName اسم الفلتر 4-WhereCondition الشرط المراد تطبيقة عند فتح النموذج 5-DataMode طريقة عرض البيانات 6-WindowMode شكل شاشة العرض 7-OpenArgs الشيئ الوحيد الذي يجب ان يتم ادخالة هو اسم النموذج اما باقي العناصر فهي اختيارية أي ليست ضرورية في كتابة الكود مثال: هذا المثال يفتح النموذج (الموظفين) اذا تحقق شرط ان اسم الموظف هو ( محمد)
 DoCmd.OpenForm "الموظفين", , ,"Name = 'محمد'"

ملاحظة كل ما ورد ينطبق على التقارير أيضا

رابط هذا التعليق
شارك

الدالة msgbox

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

باختصار نكتب كلمة msgbox متبوعة بعلامتي التنصيص "" وفيهما نص الرسالة

الصيغة

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

حيث ان

1- Prompt وفية يتم ادخال نص الرسالة ويجب ان تكون بين علامتي التنصيص (" ")

2- Buttons وهي الازرار التي تريدها ان تضهر مع الرسالة مثلا ( موافق , الغاء , حفظ ....)

3- Title عنوان الرسالة ويجب ايضا ان يكون تكون بين علامتي التنصيص (" ")

4- Helpfile ملف المساعدة التابع لهذة الرسالة

والان بعض الامثلة للأزرار الممكن استخدامها

vbOKOnly ويضهر لنا رسالة تحتوي على الزر (موافق فقط)

vbOKCancel ويضهر لنا رسالة تحتوي على الزر ( موافق , الغاء)

vbAbortRetryIgnore ويضهر لنا رسالة تحتوي على الزر (تجاهل , اعد المحاولة , احباط)

vbYesNoCancel ويضهر لنا رسالة تحتوي على الزر (نعم , لا , الغاء)

vbYesNo ويضهر لنا رسالة تحتوي على الزر (نعم , لا)

ولكن الاكثر استخداما هو vbOKOnly , vbOKCancel

صيغة اخرى

 If MsgBox("www.officena.net", vbOKCancel) = vbOK Then
DoCmd.OpenForm "officena"
End If

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

رابط هذا التعليق
شارك

اخواني اولا اشكركم على الردود المشجعة

خاصية الاخفاء والاظهار (VISIBLE)

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

والصيغة هي:

XXX.VISIBLE=TRUE ====== اظهار

XXX.VISIBLE=FALSE ====== اخفاء

مثال:

بالرجوع الى نفس المثال

نغير خاصية الإظهار للتسمية (TXT1) وذلك بالدخول الى خصائص == تنسيق == نغير القيمة مرئي الى (لا)

الان ندخل الى النموذج ونضع هذا الكود عند الفتح

 Private Sub Form_Open(Cancel As Integer)
txt1.Visible = False
End Sub
ثم بالإضافة الى الكود الموجود اصلا في زر الامر نضيف الآتي
 txt1.Visible = True

النتيجة:

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

رابط هذا التعليق
شارك

عداد الوقت TIMER

اخواني السلام عليكم

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

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

فأي كود تستطيع أن تضعه في عداد الوقت ليتم تنفيذه

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

ندخل على خصائص النموذج ==== حدث==== عند عداد الوقت

ونضع الكود الذي نريده

مثال لعمل ساعة في النموذج

انشئ نموذج جديد بطريقة عرض التصميم

ادخل تسمية جديدة وسميها (TIME1)

ادخل تسمية أخرى وسميها (TXT3)

ادخل صورتين مختلفتين في النموذج لهما نفس القياسات وسميهما (PIC1) (PIC2)

أولا الساعة

ادخل على الكود عند عداد الوقت وضع هذا الكود

 time1.Caption = Time
ثانيا النص المتحرك
 txt3.Left = txt3.Left + 100
If txt3.Left = 2500 Then
txt3.Left = 0
End If
ثالثا إخفاء وإظهار الصور ( الوميض)
 pic1.Visible = Not pic1.Visible
ادخل على خصائص الصور واجعل الخاصية مرئي تساوي ( لا ) كما تعلمنا في الدرس السابق وبعد ذلك نستبدل القيمة الموجودة في الفاصل الزمني لعداد الوقت ونضع فيها مثلا 500 علما ان الثانية الواحدة = 1000 بالتالي يصبح الكود كاملا كالاتي
 Private Sub Form_Timer()
time1.Caption = Time
pic1.Visible = Not pic1.Visible
txt3.Left = txt3.Left + 100
If txt3.Left = 2500 Then
txt3.Left = 0
End If
End Sub

آلية العمل

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

Ex.rar

رابط هذا التعليق
شارك

شكرا لك اخى الكريم

شرح وافي وممتاز

عندي سؤال ارجو الرد عليه ضرورى

عايز كود استخدمه فى الاستعلام بحيث لما استعلم عن اسم يعطيني كل الاسماء التي تبدا بهذا الاسم فقط

بمعنى لما اكتب محمد يعطينى كل الاسماء التي تبدأ ب محمد فقط

شكرا لك

رابط هذا التعليق
شارك

اخي الكريم

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

رابط هذا التعليق
شارك

اخواني .....

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

واشكركم

رابط هذا التعليق
شارك

بارك الله فيك أخي
وحاولت تطبيق ما في الرابط الذي وضعته لي
ولكن حدث خطأ وتداخل فقمت باسترجاع بعض الخطوات حتى لا يخرب البرنامج
والخطوات التي قمت بها هي إضافة الكود التي هي رقم 1 في الرابط
ثم 2- قم بعمل ماكرو أسمة mcrHide
ضع بة اكشن run code
و فى خانة Function ضع الكود التالى
كود
fAccessWindow ("Minimize", False, False)
------------------------------
3 - قم بعمل ماكرو أخر أسمة mcrRestore
ضع بة نفس الاكشن السابق run code
و فى خانة Function ضع الكود التالى
كود
fAccessWindow ("Show", False, False)
ووقفت هنا
فلو تسمحلي سأرفق لك البرنامج كي تتكرم وتقوم بباقي الخطوات لكي يظهر واجهة النموذج فقط
أنا عارف أني سأتعبك معي وبراحتك في وقت فراغك أنا منتظرك
جزاك الله خيرا

_________________________.rar

تم تعديل بواسطه sherifbadr
رابط هذا التعليق
شارك

اخي العزيز

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

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

اولا غير القيمة في خصائص النموذج او التقرير منبثق او pop up الى نعم

ثم ادخل هذا الكود عند الفتح

 DoCmd.Restore

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

وللدخول الى التصميم كما هو معروف ومن باب التذكير عليك بالضغط على مفتاح SHIFT

واي استفسار انا جاهز انشاء الله

_________________________.rar

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information