شرط في حقل بناء على حقل آخر

[احمد القباري]

If [d] >= 10   And d <= 100Then

dd=  اريد هنا ان يكتب المسخدم  ما يريد من الارقام اجعله حقل حر فما هو الكود؟
Else If (dd > 100) Then

[dd] = 100

End If

كيف اكتب كود يعبر عن ذلك

 

db1.mdb

تم تعديل يوليو 23, 2018 بواسطه احمد القباري

[ابوخليل]

اهلا اخونا احمد

شوف الفكرة في المثال 

اذا اعجبتك  انظر في خصائص الحقل في الجدول

db2.mdb

[احمد القباري]

جزيت خيرا ولكن الشروط كثيره 

 هنالك من 101 الي 200

 و من 201  الي 300   

[ابوخليل]

اكتب  الصيغة التي تريد كاملة  بكلمات عربية 

وسأطبقها لك

[احمد القباري]

اريد   ان يكون كود اكبر من واقل من في الحقل الاول d   وبنا عليه يكون الحقل الثاني dd

اريد اذا كا ن الحقل d اكبر 10 واقل من او يساوي 100     ان لا يتجاوز  الحق dd   هذا النطاق    

 ولكن كان حقل  d   اكبر من 101  واقل او يساوي 200    ان لا يتجاوز  الحق dd   هذا النطاق 

 ولكن كان حقل  d   اكبر من 201  واقل او يساوي 300ان لا يتجاوز  الحق dd   هذا النطاق  

تم تعديل يوليو 23, 2018 بواسطه احمد القباري

[ابوخليل]

تفضل

Private Sub txt2_Exit(Cancel As Integer)
Dim i As Integer
i = txt1
If i >= 10 And i <= 100 Then
If txt2 > 100 Then
Undo
txt2 = 100
End If
ElseIf i > 100 And i <= 200 Then
If txt2 > 200 Then
Undo
txt2 = 200
End If
ElseIf i > 200 And i <= 300 Then
If txt2 > 300 Then
Undo
txt2 = 300
End If
End If
End Sub

 

db3.mdb

[احمد القباري]

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

[ابوخليل]

لن يعمل لان بعد التحديث يكون المؤشر  والتركيز خرج

 

[احمد القباري]

والله لا اعلم ماذ اقول   لكن جزيت عنا خير   وذادك الله من علمه     وجلعك الله ممن تعلم العلم وعلمه 

 استاذي

[ابوخليل]

آمين ولك بمثله