تغيير قاعدة التحقق من الصحة لمربع نص تبعاً لتغير مصدر السجل للنموذج

بســم الله الـرحمــن الرحيــم

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

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

كود الدالة هو التالي

Sub SetFieldValidation(strTblName As String, _
	strFldName As String, strValidRule As String, _
	strValidText As String)

	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 Sub

ثم إستخدم الدالة السابقة كما في الكود التالي

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

strTblName = "Table_Name"  '  أكتب إسم الجدول
strFldName = "Field_Name"  ' أكتب إسم الحقل المراد تطبيق قاعدة التحقق عليه
strValidRule = ">= 4"
strValidText = "Enter a number greater than or equal to 4."
Call SetFieldValidation(strTblName, strFldName, strValidRule, strValidText)

ووضعت مثال يوضح الفكرة

وبالله التوفيق

koao_Change_Validation_Rule.zip