[ تمت الإجابة ]أذا كانت قيمة الحقل عدد فردي , أو عدد زوجي , أو عدد صحيح , أو عدد كسري

بســم الله الـرحمــن الرحيــم

نفترض ان الحقل اسمه NumFld

هذا هو الكود مع ملا حظة أنه يوجد تداخل فتكون البدائل هي..

1 - عدد زوجي كسري

2 - عدد زوجي صحيح

3 - عدد فردي كسري

4 - عدد فردي صحيح

وهذا هو الكود

If NumFld - Int([NumFld]) <> 0 And Int([NumFld]) / 2 - Int(Int([NumFld]) / 2) = 0 Then
MsgBox "زوجي كسري"
Else
If NumFld - Int([NumFld]) = 0 And Int([NumFld]) / 2 - Int(Int([NumFld]) / 2) = 0 Then
MsgBox "زوجي صحيح"
Else
If NumFld - Int([NumFld]) <> 0 And Int([NumFld]) / 2 - Int(Int([NumFld]) / 2) <> 0 Then
MsgBox "فردي كسري"
Else
If NumFld - Int([NumFld]) = 0 And Int([NumFld]) / 2 - Int(Int([NumFld]) / 2) <> 0 Then
MsgBox "فردي صحيح"
End If
End If
End If
End If

ومرفق مثال كذلك..

طبتم واهتديتم

Odd.rar

بارك الله فيك ياأخي أيهاب , ودمت ذخراً لنشر العلم .