osama ababneh قام بنشر مايو 20, 2008 قام بنشر مايو 20, 2008 السلام عليكماخواني اليكم هذه المشاركة التي اتمنى ان يستفيد منها اي اخ وخصوصا المبتدئين والذين لا يعرفون عن الكود اولا : انشئ قاعدة بيانات جديدة ثم انشئ فيها نموذج جديد عن طريق انشاء نموذج في طريقة عرض التصميمثم اضف الية مربعي نص و تسمية وزر امر كما في الصورة التاليةالخطوة الثانية هي تسمية مربعي نص و التسمية وزر الامر وذلك عن طريق النقر بزر الماوس الايمن واختيار خصائص ومثلا انا اخترت box1 و box2 لمربعي النص و txt1 للتسمية و do لزر الامرثم نضغط بزر الماوس اليمين ثم نختار (حدث) كما يليفتفتح لنا الشاشة الخاصة بادخال الكوداتالان وبعد ان وصلنا الى هذه الشاشة بقي ان نعرف كيف ندخل الكود وبعض الكودات الضرورية التي ممكن ان نحتاجها في اي برنامجوالملف المرفق فية نفس المثال السابق وتكون فية وضيفة زر الامر do هي الحصول على ناتج ضرب box1 * box2وانشاء الله اذا وجدت اهتمام في هذا الموضوع ساقوم بوضع بعض الكودات الضروريةوارجو الاستفادة Ex.rar
قصي قام بنشر مايو 21, 2008 قام بنشر مايو 21, 2008 بارك الله فيكدرسك رائعغفر الله لك ولوالديك ........ استمر
osama ababneh قام بنشر مايو 21, 2008 الكاتب قام بنشر مايو 21, 2008 اشكركم اخواني على التشجيع واليكم بعض الكودات المهمة في البرمجة الوظيفة <<==========================الكود اصدار صوت<<====================DoCmd.Beep اغلاق النموذج او التقرير<<=============DoCmd.Close تكبير النموذج او التقرير<<===========DoCmd.Maximize تصغير النموذج او التقرير<<===========DoCmd.Minimize الخروج النهائي من قاعدة البيانات<<========DoCmd.Quit 1
osama ababneh قام بنشر مايو 23, 2008 الكاتب قام بنشر مايو 23, 2008 اخواني سيتم اليوم شرح اضافة الشرط وشرح فتح نموذج او تقرير برمجيا اولا الشرط 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 = 'محمد'" ملاحظة كل ما ورد ينطبق على التقارير أيضا
nassef قام بنشر مايو 23, 2008 قام بنشر مايو 23, 2008 نشكرك اخى الكريم على عطائك الجميل وشرحك الرائع الف شكر
osama ababneh قام بنشر مايو 24, 2008 الكاتب قام بنشر مايو 24, 2008 الدالة 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 وهذا الكود ممكن استخدامة غالبا لاضهار رسالة تحقق في حال الخروج من البرنامج مثلا او حذف سجل .... الخ
aboz قام بنشر مايو 24, 2008 قام بنشر مايو 24, 2008 مشكوووووووووووووووووووررررر علي المجهووووووووووووووووووووووووووووددددد
osama ababneh قام بنشر مايو 25, 2008 الكاتب قام بنشر مايو 25, 2008 اخواني اولا اشكركم على الردود المشجعة خاصية الاخفاء والاظهار (VISIBLE) وباستخدام هذة الخاصية تستطيع اخفاء او اظهار أي شيئ تريدة سواء في النموذج او التقرير والصيغة هي: XXX.VISIBLE=TRUE ====== اظهار XXX.VISIBLE=FALSE ====== اخفاء مثال: بالرجوع الى نفس المثال نغير خاصية الإظهار للتسمية (TXT1) وذلك بالدخول الى خصائص == تنسيق == نغير القيمة مرئي الى (لا) الان ندخل الى النموذج ونضع هذا الكود عند الفتح Private Sub Form_Open(Cancel As Integer) txt1.Visible = False End Sub ثم بالإضافة الى الكود الموجود اصلا في زر الامر نضيف الآتي txt1.Visible = True النتيجة: عند فتح النموذج تختفي خانة النتيجة وعند الضغط على زر النتيجة فانها تضهر من جديد
osama ababneh قام بنشر مايو 26, 2008 الكاتب قام بنشر مايو 26, 2008 عداد الوقت 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
cleaver قام بنشر مايو 27, 2008 قام بنشر مايو 27, 2008 شكرا لك اخى الكريم شرح وافي وممتاز عندي سؤال ارجو الرد عليه ضرورى عايز كود استخدمه فى الاستعلام بحيث لما استعلم عن اسم يعطيني كل الاسماء التي تبدا بهذا الاسم فقط بمعنى لما اكتب محمد يعطينى كل الاسماء التي تبدأ ب محمد فقط شكرا لك
osama ababneh قام بنشر مايو 28, 2008 الكاتب قام بنشر مايو 28, 2008 اخي الكريم لالكود يوضع في النماذج او التقارير فقط اما بالنسبة للاستعلامات فيتم استخدام كودات SQL وانا للاسف لا توجد عندي خبرة فيها وبالنسبة لطلبك اتوقع انه عندما تضع مربع تحرير وسرد في النموذج تكون هذه الخاصية متوفرة فيه تلقائيا واذا لم تستفد فعليك بوضع مشاركة وتسال الزملاء في المنتدى ولن يبخلوا عليك انشاء الله
Waleed_alblooshi قام بنشر مايو 31, 2008 قام بنشر مايو 31, 2008 تسلم يالغالي واشكرك من كل قلبي جزك الله الف خير يا اخي الغالي
osama ababneh قام بنشر يونيو 3, 2008 الكاتب قام بنشر يونيو 3, 2008 اخواني ..... لا اعرف ماذا يمكن ان يتم شرحة من مواضيع اخرى ذات اهتمام فارجو من اي عضو يرغب في شرح موضوع معين ان يقوم ياضافة رد حتى تكون الدروس حسب الاهتمامات مع الانتباه بان يكون الموضوع على مستوى المبتدئين لان الموضوع اصلا موجه للمبتدئين واشكركم
فيصل 2001 قام بنشر يونيو 3, 2008 قام بنشر يونيو 3, 2008 يعطيك العافية على التعب بالفعل موضوع شيق تحياتي
osama ababneh قام بنشر يونيو 8, 2008 الكاتب قام بنشر يونيو 8, 2008 اخي شريف اشكرك على الاهتمام واليك هذه المشاركة التي تحتوي على طلبكhttp://www.officena.net/ib/index.php?showtopic=16877
sherifbadr قام بنشر يونيو 8, 2008 قام بنشر يونيو 8, 2008 (معدل) بارك الله فيك أخيوحاولت تطبيق ما في الرابط الذي وضعته ليولكن حدث خطأ وتداخل فقمت باسترجاع بعض الخطوات حتى لا يخرب البرنامجوالخطوات التي قمت بها هي إضافة الكود التي هي رقم 1 في الرابط ثم 2- قم بعمل ماكرو أسمة mcrHideضع بة اكشن run codeو فى خانة Function ضع الكود التالىكودfAccessWindow ("Minimize", False, False)------------------------------3 - قم بعمل ماكرو أخر أسمة mcrRestoreضع بة نفس الاكشن السابق run codeو فى خانة Function ضع الكود التالىكودfAccessWindow ("Show", False, False)ووقفت هنا فلو تسمحلي سأرفق لك البرنامج كي تتكرم وتقوم بباقي الخطوات لكي يظهر واجهة النموذج فقطأنا عارف أني سأتعبك معي وبراحتك في وقت فراغك أنا منتظركجزاك الله خيرا _________________________.rar تم تعديل يونيو 8, 2008 بواسطه sherifbadr
osama ababneh قام بنشر يونيو 8, 2008 الكاتب قام بنشر يونيو 8, 2008 اخي العزيز لقد قمت باجراء التعديلات وستجدها في الوحدات النمطية والماكرو وفي النماذج وخصوصا عند الفتح يجب عليك ان تقوم بما يلي في كل نموذج او تقرير اولا غير القيمة في خصائص النموذج او التقرير منبثق او pop up الى نعم ثم ادخل هذا الكود عند الفتح DoCmd.Restore طبعا يجب ان تقوم بهذه الخطوات لكل شيئ تريده ان يضهر على الشاشة او (يفتح) اي لكل النماذج والتقارير وللدخول الى التصميم كما هو معروف ومن باب التذكير عليك بالضغط على مفتاح SHIFT واي استفسار انا جاهز انشاء الله _________________________.rar
الردود الموصى بها