كود تغيير حجم الحقل برمجيا

[AboSaad17]

السلام عليكم ورحمة الله
هذا الكــود يقوم بتغيير حجم الحقل برمجيا 

 

 

DoCmd.RunSQL "ALTER Table [Tab1] ALTER column [Name] text (15);"
 

والمطلوب 
أولا : كود تغيير قناع الإدخال برمجيا

ثانيا: كود تغيير قاعدة التحقق من الصحة

ولـــــكم جـــزيل ألشـــكــر 

ملف مرفق

تغيير حجم حقل برمجيا.mdb

تم تعديل ديسمبر 22, 2018 بواسطه AboSaad17
خطأ إملائي

[أ / محمد صالح]

يمكنك استعمال هذا الكود لتغيير خاصية inputmask لمربع النص textbox

Forms!Customers!Telephone.InputMask = "(###) ###-####"

هذا مثال لحقل اسمه تليفون

ويمكنك تطويعه كما تشاء

وفقنا الله جميعا لكل خير

[AboSaad17]

السلام عليكم ورحمة الله
أستاذي  الفاضل / أ / محمد صالح

لم أوفق في إستخدام هذا الكود 
أتمنى أن ترفق مثال 
وكذلك 
كود تغيير قاعدة التحقق من الصحة
ولك جزيل الشــكر 

[أ / محمد صالح]

إذا كان مقصودك هو تغيير خصائص الحقل

فهذا الكود سيفي بالغرض إن شاء الله

Dim db  As DAO.Database
Dim td  As DAO.TableDef
Dim fld  As DAO.Field
Dim prp As DAO.Property

Set db = CurrentDb
Set td = db.TableDefs("Tab1")
Set fld = td.Fields("Name")

'تغيير قناع الإدخال
Set prp = fld.CreateProperty("InputMask", dbText, "(###) ###-####")
fld.Properties.Append prp
'تغيير التحقق من الصحة
fld.ValidationRule = "000"
fld.ValidationText = "wrong"
'تحديث الجدول
fld.Properties.Refresh
db.TableDefs.Refresh

Set prp = Nothing
Set fld = Nothing
Set td = Nothing
Set db = Nothing

 

[AboSaad17]

السلام عليكم ورحمة الله
أستاذي  الفاضل / أ / محمد صالح

نعم المطلوب هو تغيير خصائص الحقل 
فإذا كان قناع الإدخال كان 
(0000)

كيف يتم التغيير إلى
(00000000)

............................................................
وإذا كان التحقق من الصحة كان
Like "1****"

كيف يتم التغيير إلى

Like "10****"

.............................................................

ولك جـــــزيل الشــكر على كـــــل حــــــــــــــــــــــال
 

[أ / محمد صالح]

لا أدري هل قام الكود بالدور المطلوب؟!

أم أن المطلوب شيء آخر 

؟؟!!

[AboSaad17]

السلام عليكم ورحمة الله
أستاذي  الفاضل / أ / محمد صالح

نعم الكــــود يعمل في حالة أن الحـــقل بدون خصائص ( أي أنه يقوم بإضافة خصائص )
............................................................................................................................................

ولــــكن المطلوب 
كـــــود تعــديل خصائص الحقل واللتي هي موجودة مسبقا 
ولك جــــــــزيل الشــــكر ،،،

[أ / محمد صالح]

معظم الخصائص القابلة للتعديل يتم تعديلها بهذا السطر

اسم العنصر ثم نقطة ثم اسم الخاصية ثم يساوي ثم القيمة الجديدة

لكن خاصية قناع الإدخال تحتاج إنشائها أولا قبل إضافة قيمة لها

ولتعديل قيمة قناع الإدخال بعد إنشائه نستعمل الطريقة العادية في تغيير قيمتها 

ولذلك يجب التحقق أولا من وجودها 

فإذا كانت موجودة يتم تعديلها وإلا فيتم إنشاؤها

جرب هذا الكود وإن شاء الله يفي بالغرض 

Dim db  As DAO.Database
Dim td  As DAO.TableDef
Dim fld  As DAO.Field
Dim prp As DAO.Property

Set db = CurrentDb
Set td = db.TableDefs("Tab1")
Set fld = td.Fields("Name")

Dim mask As Boolean
For Each prp In fld.Properties
mask = IIf(prp.Name = "InputMask", True, False)
Next

If mask = True Then
fld.Properties("InputMask") = "(###) ###-####"
Else
Set prp = fld.CreateProperty("InputMask", dbText, "(###) ###-####")
fld.Properties.Append prp
End If

fld.ValidationRule = "000"
fld.ValidationText = "wrong"

fld.Properties.Refresh
db.TableDefs.Refresh

Set prp = Nothing
Set fd = Nothing
Set td = Nothing
Set db = Nothing

 

[AboSaad17]

السلام عليكم ورحمة الله
أستاذي  الفاضل / أ / محمد صالح

 

 

 لك مني جــــــــزيل الشــــكر ،،، 
تم التوصل للإجــــابة 

بارك الله لك في صحتك وعلمك وجعل ذلك في ميزان حســناتك