To set validation for a text box in UserForm

**majid_mx4** · 2017/02/21, 01:08

با سلام

لطفل فایل ضمیمه را بررسی نمایید.

خلاصه: کنترل و مقایسه ساعت های وارد شده در تکست باکس

توضیح : میتوانید ساعت را بصورت عدد چهار رقمی وارد کنید بطور اتوماتیک اصلاح میشود .

با کلید های Alt + F4 میتوانید کد ها را مشاهد نمایید.

پایدار باشید میر

فایل های پیوست شده

Check hours.rar (11.9 کیلو بایت, مشاهدات 32)

**mortezataheri** · 2017/02/21, 17:56

سلام دوست عزیز .
ضمن تشکر از لطف شما چند نکته وجود داره که از خدمتتون سئوال می پرسم
1 تو فرم من بیش از 20 تکست باکس هست که باید فرمت تایم داشته باشند ، ایا میشه بجای اعمال کد مورد نظر شما بر روی تک تک هر باکس، کدی داشت که هر باکسی رو خواستیم فرمت تایم داشته باشه درون اون کد ذکر کنیم؟

2- مقدار تایم در بعضی از باکسها بیش از 23:59 است من حالت

[h]:mm

رو انتخاب کردم اما جواب نداد.

3- با اعمال این کد

کد:

 If Not IsNumeric(Me.txtProductionHours.Value) Then
        MsgBox "The Production Hours box must contain a Number.", vbExclamation, "R & D Engineering Staff Amar1"
        Me.txtProductionHours.SetFocus
        Exit Sub
    End If

از خالی رها نشدن باکس مطمئن میشیم اما IsNumeric برای فرمت عدد هست نه تایم

سپاس

فایل های پیوست شده