اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

[dd] = 100

End If

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

 

db1.mdb

تم تعديل بواسطه احمد القباري
رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه احمد القباري
رابط هذا التعليق
شارك

تفضل

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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information