اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

السلام عليكم
كل الشكر لهذا المنتدى الرائع و القائمين عليه و رمضان كريم
عندي هذا الفورم
لدي 2 
TextBox
 Text2 , Text3 من نوع Date
عندما تكون
Text2 >=8.30 AM And Text2 <= 8.30 AM
أي أن النطاق نصف ساعة , من الساعة الثامنة إلى الساعة الثامنة و النصف
حينئذ 
Text3 = 8.30 AM
غير ذلك
Text3=Text2
 

انا حاولت على الشكل التالي :
Private Sub Text2_Exit(Cancel As Integer)
On Error Resume Next
Dim t1 As Date
For t1 = #8:00:00 AM# To #8:30:00 AM#
If Text2 = t1 Then
Text3 = #8:03:00 AM#
Else
Text3 = Text2
End If
Next t1
End Sub
و دون جدوى
و حاولت أيضا

Private Sub Text2_Exit(Cancel As Integer)
On Error Resume Next
If Text2 >= 8.00.00 AM And Text2 <= 8.30.00 AM Then
Text3 = #8:03:00 AM#
Else
Text3 = Text2
End If
End Sub

و أيضا بلا فائدة
و لكم جزيل الشكر

Database1.rar

رابط هذا التعليق
شارك

16 hours ago, ابوخليل said:

هذا الكود يعمل 


If Text2 >= #8:00:00 AM# And Text2 <= #8:30:00 AM# Then
Text3 = #8:30:00 AM#
Else
Text3 = Text2
End If

 

db2.rar

ألف شكر لإهتمامك أستاذ أبو خليل الله يجعلها في ميزان حسناتك
بالمناسبة جربت هذا الكود , و ضبط معي

On Error Resume Next
If (Text2 > #8:30:00 AM#) Then
Text3 = Text2
ElseIf (Text2 < #8:00:00 AM#) Then
Text3 = Text2
ElseIf (Text2 >= #8:00:00 AM#) Then
Text3 = #8:30:00 AM#
ElseIf (Text2 <= #8:30:00 AM#) Then
Text3 = #8:30:00 AM#
End If
ألف شكر لك مرة أخرى

بصراحة لا أعرف برمجيا كيف يمكن التعبير عن هذه الجملة :
"إذا كان المربع النصي, ينتمي إلى المجال العددي , افعل كذا, وإذا لا ,افعل غير ذلك ."

ألف شكر إلك مرة أخرى

 

رابط هذا التعليق
شارك

22 hours ago, بسملة جمال said:

If IsNumeric(Text1) = True Then
MsgBox "قيمة رقمية"
Else
MsgBox "قيمة غير رقمية"
End If

 

شكرا لمرورك الطيب و رمضان كريم
أنا قصدي من النطاق :
مثلاّ عندي  إثنان من ال TEXTBOX
TEXT1 , TEXT2
فإذا كان 
TEXT1 ينتمي إلى المجال العددي 
من  50 حتى100 
عندئذ يكون ال TEXT2 يساوي 80
و إذا كان ال TEXT1 خارج هذا المجال
يكون ال TEXT2 يساوي10 
هنا كيف يمكن التعبير برمجيا 
أن ال TEXT1 ينتمي إلى المجال العددي
ليس المطلوب إظهار MsgBox
و شكرا

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information