Bluemind

تفضل اخي الكريم

كان يجب ربط النموذجيين من خلال خاصيه ربط الحقول الاساسيه بالفرعيه كما هو موضح بالصوره حيث يجب ربط الحقليين emp_no و emp_noo بالنموذج الفرعي

تحكم2.rar

هذه داله تقوم بتعطيل مفتاح Shift من العمل لكي لا يستطيع المستخدم من الدخول الى قاعده البيانات و جداولها وكل اجزئها المتبقيه لدوافع الامنيه.

سوف اقوم بشرحها كالتالي:

اولأ:

اذهب الى الوحدات النمطيه وقم بانشاء جديد.

ثم من ادوات اذهب الى References ثم ابحث عن Microsoft DAO 3.6 وضع عليه علامه صح

ثم انسخ الكود التالي وضعه في هذه الوحده النمطية:

كود

Option Compare Database

Option Explicit

Public Function SetProperties(strPropName As String, _

varPropType As Variant, varPropValue As Variant) As Integer

On Error GoTo Err_SetProperties

Dim db As DAO.Database, prp As DAO.Property

Set db = CurrentDb

db.Properties(strPropName) = varPropValue

SetProperties = True

Set db = Nothing

Exit_SetProperties:

Exit Function

Err_SetProperties:

If Err = 3270 Then 'Property not found

	 Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)

	 db.Properties.Append prp

	 Resume Next

Else

	 SetProperties = False

	 MsgBox "SetProperties", Err.Number, Err.Description

	 Resume Exit_SetProperties

End If

End Function

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

Dim strInput As String

Dim strMsg As String

Beep

strMsg = "هل تريد اعاده تشغيل مفتاح Shift" & vbCrLf & vbLf & _

			 "الرجاء كتابه كلمه المرور لتشغيل مفتاح Shift."

strInput = InputBox(Prompt:=strMsg, Title:="تعطيل مفتاح Shift")

If strInput = "اكتب هنا كلمه المرور" Then

	 SetProperties "AllowBypassKey", dbBoolean, True

	 Beep

	 MsgBox "لقد تم تشغيل مفتاح Shift" & vbCrLf & vbLf & "مفتاح التشغيل سوف يسمح للمستخدم للدخول الى كائنات قاعدة البيانات" & "في المره القادمه عند الدخول الى قاعده البيانات", _

			 vbInformation, "Set Startup Properties"

Else

	 Beep

	 SetProperties "AllowBypassKey", dbBoolean, False

	 MsgBox "كلمه مرور خاطئة" & vbCrLf & vbLf & _

			 "مفتاح Shift تم تعطيله." & vbCrLf & vbLf & _

			 "مفتاح Shift لن يمكن المستخدم من الدخول الى قاعده البيانات في المره المقبلة", _

			 vbCritical, "كلمه مرور غير صحيحة!!"

	 Exit Sub

End If

*طبعا هذا الزر عند الضغط عليه مره واحده سوف يسالك عن كلمه مرور لتفعيل مفتاح Shift

وعند قبول كلمه السر و الخروج من البرنامج و فتح البرنامج مره اخرى مع الضغط على مفتاح Shift سوف يعمل.

ملاحظة:

*الكود الثاني هو لتجنب اقفال قاعده البيانات وعدم المقدره للدخول عليها مره اخرى عن طريق مفتاح Shift.

اخوي بوحمد بارك الله فيك

في مصدر بيانات مربع النص ضع الكود التالي

=[list1].[ListCount]

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

شاهد المرفق

OMER7Z.rar

السلام عليكم

في الرابط ادناه يوجد موضوع في احد المنتديات ويوجد به ملف اكروبات ، قم بالتسجيل وانزال الملف

http://forum.accesswordkingdome.com/showthread.php?t=1416

اخوي بارك الله فيك

لو قمت بعمل بحث في المنتدى لوجدت عده حلول و اجابات من قبل

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

http://www.officena.net/ib/index.php?showtopic=40057&hl=%D8%AA%D9%81%D9%82%D9%8A%D8%B7

تفضل اخي الكريم مثالك بعد التعديل عليه

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

Database14.rar

اخوي

بالنسبه للحقول a, b , c

يجب ازالتها من الجدول ويمكن عرضها في للاستعلام من خلال جمع عدد ايام الغياب من جدول الغياب، ايش رايك

اخي الفاضل

في مثل هذه الحالات يفضل ان تستخدم في الشرط رقم لا يتكرر مثل الترقيم التلقائي.

انظر المرفق.

حل موفق وسليم وهنا تبرز اهميه الترقيم التلقائي وفائدته وكذلك المفتاح الاساسي

وليس كما يعتقد ان الترقيم التلقائي يستخدم للترقيم في التقارير وعمل التسلسل

بارك الله فيك

اخوي بارك الله فيك

من خلال الاطلاع على الجداول ، كل اسماء الحقول غير واضح الهدف منها ، اما حروف a , b , c او اختصارات!!!!!!!!!!!

ممكن شرح مفصل عن البرنامج ؟ اي عن اليه عمله وما الغرض منه؟

سيدي كل مستخدم يستطيع عن طريق ضغط شفت فتح القاعدة للتعديل اين الخصوصية فى الملف ؟

سؤالك كان محدد وتم الاجابه عليه

ولو لم اشير الى هذه النقطه (ضغط شفت) لما كانت معروفه لديك

وللمعلوميه معظم المستخدمين لا يعلمون هذه الطريقه لانها خاصه بالمبرمجيين

على العموم بالامكان تعطيل خاصيه مفتاح الشيفت

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

بالتوفيق

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

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

هذه ثلاثه امثله

http://www.officena.net/ib/index.php?showtopic=35013&hl=كنترول#entry184175

http://www.officena.net/ib/index.php?showtopic=32554&hl=%D9%83%D9%86%D8%AA%D8%B1%D9%88%D9%84

http://www.officena.net/ib/index.php?showtopic=31689&hl=%D9%83%D9%86%D8%AA%D8%B1%D9%88%D9%84

بالتوفيق

اخوي اشرف بارك الله فيك

لاقفال قاعدة البيانات واستخدامها بعد التصميم اتبع الخطوات التاليه

اولا

ثانيا

قم باختيار اسم النموذج الذي تريد ان يكون هو الشاشه الرئيسيه او شاشه التوجيه

ثالثا

قم باخفاء لوحه التوجيه او عرض الكائنات

ثم اغلق قاعده البيانات واعد تشغيلها

ملاحظه

لفتح القاعده من جديد لوضع التصميم قم بغلق القاعده ثم اضغط مفتاح شفت اوستمر بالضغط وقم بتشغيل القاعده

اخوي بارك الله فيك

كلمه set في لغة الفيجول بيزك تستخدم لوضع او اسناد مرجع الكائن او object الى قيمه اخرى

مثال بسيط

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

Dim rstEmployees As ADODB.Recordset


    Set rstEmployees  = Me.Recordset

حيث قمت باسناد مصدر بيانات النموذج me.recordset الى rstemployees

ارجو ان تكون الفكره وضحت الان

اخوي بارك الله فيك

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

http://www.officena.net/ib/index.php?showtopic=42189

موجودة بالنبرنامج بارك الله فيك

بامكانك اضافة اكثر من معونه من خلال البرنامج

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

اما بالنسبة للتكرار فسوف يتم التعديل علية غداء ان شاء الله

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

للاسف اخي الكريم

لم افهم مطلوبك

موجودة بالنبرنامج بارك الله فيك

بامكانك اضافة اكثر من معونه من خلال البرنامج

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

اما بالنسبة للتكرار فسوف يتم التعديل علية غداء ان شاء الله

Relief Assistance System.zip

بالاضافة للبرنامج المعمول من قبل الاخ احمد خلف

هذا برنامج من تصميمي ولك حرية الاختيار

طبعا ينمع قبول التكرار باستخدام رقم دفتر العائلة

ويبقى عمل التقارير و الاحصائيات

ونسال الله ان ينصر اخوننا في سوريا ويربط على قلوبهم

Relief Assistance System.zip

وهذا جدول توزيع المواد الاغاثية

-رقم دفتر العائلة

-تاريخ التوزيع

-بيان المواد>>> يقبل اكثر من عنصر

-الكمية

السؤال هنا ماهي طريقة التوزيع؟؟ اي هل هي سلة غذائية ام عدة مواد

تم انشاء الجدول المعلومات الاساسية وفيها الحقول التالية

-رقم دفتر العائلة

- اسم الزوج الثلاثي

-اسم الزوجة الثلاثي

-عدد الاولاد

-المنطقة

-العنوان

-رقم الهاتف

-ملاحظات

مارايك؟؟

طبعا الاكسس

سوف اقوم بعمل مثال و ارفقه هنا لمراجعته من قبلك

لامانع من مشاركة باقي الاعضاء

وهذا اقل دعم نقدمه لاخواننا في سوريا

هل تريدة بالاكسس 2010 ام 2003 ???

اخي الكريم كان سؤالك عن تعبئة الحقول بشكل تلقائي و تمت الاجابة

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

الرجاء فتح موضوع اخر لسؤالك مع مراعاة سياسة المنتدى بخصوص حقوق الملكية الفكرية للكتب او البرامج

من خلال بحثي عن الكتاب فهو ليس مجاني لذلك يجب عليك شرائه

بالتوفيق

اخوي بارك الله فيك

اولا نسال الله لاخوننا في سوريا العون و النصر

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

كما تعرف الاكسل يختلف عن الاكسس و التعديل في الاكسس يكون متعب و يحتاج الا وقت

من وجهه نظري - Mysql + PHP هو الافضل وليس من الضروري عمل علاقات بين الجداول ولا ينصح به ولكن يكتفى بعمل العلاقات من خلال الاستعلامات

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

طبعا - Mysql + PHP اسهل من خلال البرمجة و الاوركل اقوى ولكن يحتاج الا مبرمج محترف