التحكم بخاصية قاعدة التحقق من الصحة validationRule لمربع نص برمجياً VBA

[Hamdi Edlbi-khalf]

السلام عليكم 
كيف يمكن التحكم بخاصية 
Validationrule لمربع نص ؟

لدي نموذج لإدخال أرقام هواتف و هي على نوعين : تحويلات داخلية و أرقام خارجية

عند اختيار تحويلات يجب أن يكون عدد الأرقام في حقل الرقم ٤
بينما يجب أن يكون في حالة الرقم الخارجي
٤أو ٧ أو ٨

حاولت استخدام المعادلة iif في قاعدة التحقق و لكنها لم تنجح .

ففكرت باستخدام 
VBA

و لكن لم أتمكن من عمل المطلوب و الكود الذي استخدمته :

If me.combo.value = "تحويلة"  then 
Me.field.validationrule =" Len ([field])=4"
Elseif me.combo.value = "رقم" then
Me.field.validationrule=" Len ([field])=4 or len([field]) = 7"
End if .

شكراً لكم و بارك الله بكم .

* لم أتمكن من لصق الكود بالطريقة المناسبة لأن الأيقونة الخاصة به لم تظهر لي .

[Shivan Rekany]

26 دقائق مضت, Khalf said:

كيف يمكن التحكم بخاصية 
Validationrule لمربع نص ؟

هناك حالتين
هل المربع النص بيدخل الارقام فقط ام نصية

اذا الارقام استخدم هكذا

If me.combo.value = "تحويلة"  then 
	Me.textRseed.ValidationRule = "Between 1000 And 9999"
Elseif me.combo.value = "رقم" then
	Me.textRseed.ValidationRule = "Between 1000 And 99999999"
End If

واذا كان نصية استخدم هذا

If me.combo.value = "تحويلة"  then 
	Me.textRseed.ValidationRule = "####"
Elseif me.combo.value = "رقم" then
	Me.textRseed.ValidationRule = "########"
End If

 

[Hamdi Edlbi-khalf]

6 دقائق مضت, Shivan Rekany said:

هناك حالتين
هل المربع النص بيدخل الارقام فقط ام نصية

جزاك الله كل خير ..

و لكن كيف أستطيع تطبيق ذلك إذا كانت قاعدة التحقق هي لتحديد طول النص 

38 دقائق مضت, Khalf said:

عند اختيار تحويلات يجب أن يكون عدد الأرقام في حقل الرقم ٤
بينما يجب أن يكون في حالة الرقم الخارجي
٤أو ٧ أو ٨

لقد استخدمت الدالة في سبيل ذلك 

  ()  Len 

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

كيف يمكن تطبيق الأمر لينجح بتحديد طول النص الذي يجب أن أدخله؟

شكراً لك أستاذي .

 

 

[Shivan Rekany]

10 دقائق مضت, Khalf said:

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

اعتذر استخدم هذا 

"Is Null OR Like ""????"""

بدل

"####"

 

[Hamdi Edlbi-khalf]

أعتذر مجدداً أستاذ

@Shivan Rekany

يبدو أنني لم أتمكن من إيضاح سؤالي.

لقد طبقت الكود الذي قدمته حضرتك ، كما في السؤال :

منذ ساعه, Khalf said:

If me.combo.value = "تحويلة"  then 
Me.field.validationrule =" Len ([field])=4"
Elseif me.combo.value = "رقم" then
Me.field.validationrule=" Len ([field])=4 or len([field]) = 7"

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

كيف استطيع دمج الدالة

Len()

مع الخاصية 

Validationrule 

لتحديد طول النص الذي أرغب بإدخاله 

لقد جربت الكود الذي قدمته حضرتك 

و لكنه يعمل على تحديد النص بذاته لا طول النص 

أعتذر مجدداً لعدم إيضاحي

[Shivan Rekany]

12 ساعات مضت, Khalf said:

كيف استطيع دمج الدالة

Len()

مع الخاصية 

Validationrule 

لتحديد طول النص الذي أرغب بإدخاله 

لقد جربت الكود الذي قدمته حضرتك 

و لكنه يعمل على تحديد النص بذاته لا طول النص 

حسب ما افهم من قصدك حضرتك تريد
عند اختيار قيمة تحويلة في كومبوبوكس 
تريد ان يكون طول النص في حقل فايلد ان يكون اربع مثل (de98)

واذا تختار في كومبوبوكس قيمة ر قم حينئذ طول في حقل فايلد يكون اربع خانات او سبعة او ثمانية مثل (1234) او (gftr123) او (rt456781)

اذا راح تستخدم هذا الكود بعد تحيديث كومبوبوكس

If me.combo.value = "تحويلة"  then 
Me.field.validationrule ="Is Null OR Like ""????""" 
Elseif me.combo.value = "رقم" then
Me.field.validationrule="Is Null OR Like ""????"" OR Like ""???????""  OR Like ""????????"""
End if 

 

[Hamdi Edlbi-khalf]

شكراً جزيلاً و بارك الله بك