الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

قاعدة التحقق من الصحة

بدأه shamal في 12 مايو 2009 · 6 رد · 1,761 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

بعد التحية والسلام

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

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

لياخذ الغائب ( غ) والمجاز(م) وغير المسلم ( ن)

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

ياخذ الحروف غ او م او ن اي انه لا يمكن ادخال اي حرف اخر غير هذه الحروف الثلاثة

وياخذ الارقام من 50 الى 100 والارقام من 0 الى 42

ولا يمكن ادخال الارقام من 43 - 49

اتمنى من الاخوة الاعضاء الاجابة ودعائي لهم بالتوفيق

_____.rar

#2

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

هل تريد التحقق من الصحة علي مستوي الجدول او النموزج؟

Microsoft Certified DataBase Administrator MCDBA

#3

السلام عليكم

اشكرك اخي العزيز على الرد

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

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

اتمنى لو توضع الفرق بينهما( للجدول والنوذج)

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

#4

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

1- علي مستوي الجدول

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

ولكن علي مستوي الجدول يمكن ان نفرض قاعدة صحة علي حقل انه من 0 الي 100 باستثناء من 43 الي 49 هذه بسيطة

ولكن بمجرد ان نحاول ان نضيف اي قاعدة صحة سيحدث تعارض بين القاعدتين ( غ / م / ن)

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

Dim strTblName As String, strFldName As String
Dim strValidRule As String
Dim strValidText As String, intX As Integer

strTblName = "Customers"
strFldName = "Age"
strValidRule = ">= 65"
strValidText = "Enter a number greater than or equal to 65."
intX = SetFieldValidation(strTblName, strFldName, _
	strValidRule, strValidText)

Function SetFieldValidation(strTblName As String, _
	strFldName As String, strValidRule As String, _
	strValidText As String) As Integer

	Dim dbs As Database, tdf As TableDef, fld As Field

	Set dbs = CurrentDb
	Set tdf = dbs.TableDefs(strTblName)
	Set fld = tdf.Fields(strFldName)
	fld.ValidationRule = strValidRule
	fld.ValidationText = strValidText
End Function

2- علي مستوي النموزج

ممكن التحكم في صحة البيانات المدخلة بواسطة الحدث ( After Update ) زي ما احنا عايزين بواسطة استخدام قاعدة if مع else

ولتداخل التحقق من صحة الارقام مع الحروف سنستخدم IsNumreic اولا لنحدد التحقق من الارقام اصغر من صفر واكبر من 100

وبين 43 و 49 وان لم يكن رقم يفترض الا يساوي الا غ /ن /م ثم ننهي if.

بالمرفق مثال لقاعدة الصحة علي مستوي الجدول ولم اتمكن من ادراج الحروف ايضا table1

وعند تشغيل المرفق سيفتح النموزج Table2 وتم تنفيذ التحقق من الصحة للحق xx بحيث يحقق رغبتك كاملة من خلال الكود

اخوك فى الله

123.rar

تم تعديل هذه المشاركة بواسطة ahamied في 13 مايو 2009 في 10:43

Microsoft Certified DataBase Administrator MCDBA

#5

السلام عليكم

اخي العزيز بارك الله فيك

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

ثانيا : هل يمكن حماية الجداول والنماذج والعلاقات والاستعلامات من التغيير؟

#6

للرفع

#7

للرفع

مواضيع مشابهة