هديه الصيف دروس عن الاكسس

بالنسبه للنموذج فيوجد اناس لايريدونه يضهر على جميع الشاشه

وانما يريدون له مقاسات

فنعمل

التالي

DoCmd.MoveSize 3332, 0, 5000, 7777

طبعا عند حدث فتح النموذج

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

فمنها البعد من اليمين واليسار والاعلى والاسفل

لما تعمل اكثر من نموذج

واتيت تفتح النموذج الثاني لايظهر معاك

العمل

هو ان تعمل التالي

تذهب الى خصائص النموذج الذي لم يظهر معاك

وتعمل له

منبثق = نعم

شكلي او مشروط = نعم

لعمل زر لفتح نموذج

تريد ان تعمل صوره لزر معين ولا تريد ان تستخدم الازرار التي يعملها لك البرنامج

اعمل صوره على اي برنامج رسم

ثم ادرجها الى النموذج

واختار خصائص الصوره التى ادرجتها

واختار

حدث عند النقر

وضع هذا الكود

DoCmd.OpenForm "اكتب هنا اسم النموذج "

كذلك العمل نعمله للاضافه للخروج لتنقلات

فقط نغير الاكواد

لقد حاولت ان ابدا بالتعامل مع النماذج لكي نرتاح من كثير من الاسئله

وسوف نتطرق للباقي وللاشياء الجماليه ايضا

أخى العزيز / عبد الهادى

أشكرك على هذا الشرح الجميل والواضح

حيث قمت بشرح كيفية تنفيذ الامر بأكثر من طريقة سواء بالكود أو بالماكرو

وهذا الطريقة سوف تريح الكثير من المبتدئين ،

فيقوم المبتدء باختيار الطريقة الاسهل له سواء ( الكود أو الماكرو )

وأنا فى انتظار المزيد والمزيد ........

جمال شرف

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

وعلى العموم

هذه فكره لعمل الجرد والمخزن والاضافه بها والنقصان

اولا نعمل جدولين اسم الجدول الاول t1 واسم الجدول الثاني t2

الجدول يحتوي على الحقول التاليه

رقم الصنف رقم وهو المفتاح الاساس

اسم الصنف نص

سعر الشراء رقم

الرصيد رقم

الجدول الثاني يحتوي على

رقم الصنف رقم

المباع رقم

سعر البيع رقم

الربح رقم

المتبقى رقم

الاجمالي رقم

نربط الجدولين الان مع بعض

ونربط رقم الصنف من الجدول الاول الى رقم الصنف في الجدول الثاني

ونوع العلاقه علاقه رأس بأطراف

مع فرض التكامل المرجعي

وتتالي تحديث الحقول المرتبطه

وتتالي حذف السجلات

الان نعمل استعلام

ونختار استعلام بطريقه عرض التصميم

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

من الجدول t2 اضيف *

ومن الجدول t1 اضيف اسم الصنف وسعر الشراء والرصيد

الان الى النماذج

نعمل نموذج ولنسميه frm1

وسوف يكون مصدره الجدول الاول t1

ونعمل نموذج اخر ثاني اسمه frm2

ويكون مصدره جميع حقول الجدولين ماعدا حقل رقم الصنف من الجدول الاول t1

والان الاكواد لهذا البرنامج

في النموذج الاول عند حدث عند الفتح ضع الكود التالي

docmd.gotorecord, ,acnewrec

ونفس الكود نضعه في النموذج الثاني عند حدث الفتح

في حقل المباع

اختر خصائص

واختر حدث بعد التحديث

وضع الكود التالي

me.الاجمالي=me.المباع*me.سعر البيع
me.المتبقي=me.الرصيد-me.المباع
me.الرصيد=me.الرصيد-me.المباع

وفي حقل سعر البيع

ادخل على خصائصه

وفي حدث بعد التحديث

ضع الكود التالي

me.الاجمالي=me.المباع*me.سعر البيع
me.الربح=me.سعر البيع - me.سعر الشراء

طبعا سمو الحقول باللغه النجليزيه

ولكني وضعتها في الشرح عربي

لكي تفهموا بوضوح اكثر

ولقد وضعت كل خطوه في رد خاص بها لكي تتضح اكثر

واتمنى ان اكون وصلت ولو شيء بسيط لكثير من مشاكلكم

لكي تخفي الجداول

فان كل ما عليك هو

ان تذهب الى النموذج الرئيسي

وتختار عند حدث عند الفتح

وتضع الكود التالي

' كود إخفاء جدول المستخدمين
 'CurrentDb.TableDefs("اسم الجدول").Attributes = dbHiddenObject

وهذا الكود لاضهاره

' كود إظهار جدول المستخدمين
 CurrentDb.TableDefs("tbl_User").Attributes = 0

لكي تعمل كلمه مرور

يوجد الكثير من الطرق لعملها

منها

Dim t, p
t = "برنامج تجربة الدخول برقم سري"
p = "فضلا ،،،،، أدخل كلمة المرور للدخول للبرنامج"
If InputBox(p, t) = "111" Then
MsgBox "الآن... يمكنك الدخول للبرنامج", vbOKOnly, "ترحيب"
Else
MsgBox "لايمكنك الدخول للبرنامج", vbOKOnly, "تحذير"
DoCmd.Quit
End If

حيث كلمه المرور هي

111

لايجاد اسم اليوم الحالي

لإظهار اسم اليوم لتاريخ معين ،،، اعمل مربع نص اجعل مصدر عنصر التحكم له هذا الكود :

=Weekday([Date])

سوف يظهر لك في مربع النص هذا رقم اليوم

اعمل مربع نص آخر ليظهر لك فيه ( اسم اليوم ) ،،، مثلاً حدد مربع نص اسمه ( combo2 ) وهذا الذي سوف يظهر فيه اسم اليوم ،،،، أنشيء مربع نص لإدخال التاريخ وليكن اسمه ( date ) ،،، ضع هذا الكود في حدث بعد التحديث لهذا الحقل :

 

If day = 1 Then
Me![combo2] = "السبت"
ElseIf day = 2 Then
Me![combo2] = "الأحد"
ElseIf day = 3 Then
Me![combo2] = "الإثنين"
ElseIf day = 4 Then
Me![combo2] = "الثلاثاء"
ElseIf day = 5 Then
Me![combo2] = "الأربعاء"
ElseIf day = 6 Then
Me![combo2] = "الخميس"
ElseIf day = 7 Then
Me![combo2] = "الجمعة"
End If
DoCmd.Requery "combo2"

شكراً أخي عبدالهادي الألمعي

لقد اتحفتنا بكل ما أخبرتنا به ..

نأمل أن تضع مثالاً جاهزاً هنا لنتمكن من المتابعة و التحليل و الفهم

شاكرين لك كل ما تقوم به من أجلنا

سوف ارفق لابد منه

ولكن بعد ان تعملوه انتوا

انا وضعته لكم لكي تعملوه وكل شيء جاهز

لانه نظام عملنا هنا عملي اي انتم سوف تعملون

الطريقه من الصفر جاهزه لكم

اتمنى لك الفائده

واهلا وسهلا بك

يعنى مهند وعبد الهادى تعبوا فى الشرح و الكفايه فيا ريت نشغل الكتل الهلاميه المسماه بالمخ قليلاً فى مشروع بسيط و مفيد فلنفرض مثلاً banking system و اقول بسيط على ان يعمل الاعضاء فيه من بداية التحليل و يتم عرض التحليل و التصميم هنا و نناقش افضلهم

ثم بعد ذلك نبدأ فى تصميم قاعدة البيانات او ال buisness logic ثم ياتى دور مصممو النماذج من الاكسس و الفيجوال بيسك

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

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

وكلامك 100% صحيح

وياليت انه اخواننا الاعضاء يعملون بكلامك

وانا ومهند واخواني المشرفين لن نقصر ابدا مع احد

لكم خالص الشكر على كل ما تقدمون

اسمحوا لي بالانضمام مع وعد بمراجعة جميع الدروس

والى الأمام

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

اهلا بك وحياك الله

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

بعد العودة الحميمة للمنتدى مرة أخر

وذلك بعد فتره طويله من الابتعاد

أتقدم بشكر الجزيل للقائمن على المنتدى اول في البرمجة على المستوى العربي

الاخ العزيز / عبدالهادي الألمعي

أنجاز أكثر من طيب ونحن في انتظارك للتعلم منك وبارك الله فيك وجعله الله في ميزان حسناتك

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

ولكم مني الف تحية وشوق

عزيزي اسف جدا على التاخير

ولكن بسبب غيابي الكامل وانا في اجازاه

وان شاء الله قريبا اعود

وجودكم وعدد القراء الذي زاد بشكل قوي يسرني جدا

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

أستاذنا الحبيب .. الاخوة الاعضاء..

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

لسؤ الحظ انني اكتشفت الموضوع متأخراً ..

فأرجو من استاذنا الفاضل السماح لي بالمتابعة

فجزاك الله كل خيراً وجعل عملك هذا في ميزان حسناتك

الرجاء ان تقبلني تلميذاً عندك ..

ولك الشكر والتقدير..

شكر من الاعماق لمدرسنا العزيز

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

ونرجو من استاذنا الكريم بمواصلة المسيره وان يرجع لنا بالسلامه وبالدروس المفيده

وباسم جميع المشاركين الحاليين والجدد نشكر له مساهماته النيره ونسأل الله عز وجل

أن يجعل هذا العمل في ميزان حسناته ويوفقه في دينه ودنياه