[Ahmed_Mansoor]

أهلا أخي الكريم , عرف متغير نصي لحمل القيمة إما m أو f  , وأعمل شرط يتحقق من قيمة الكومبو قبل عملية الحفظ , وبالنسبة للتقرير أضف حقلين للجنس واحد تحفظ فيه نوع الجنس بالعربي بشكل عادي والآخر تحفظ فيه القيمة m أو f , وأدرج أيضا الحقلين الخاصه بنوع الجنس في التقرير ولكن إجعل الحقل الثاني الذي يحمل قيمة إما m أو f  إجعله في التقرير مخفي وهو الذي سيطبق عليه الشروط في   الـ Cirteria ,

كود :

Dim zGender as String

If Trim$(Combo1.Text) = "ذكر" Then
   zGender ="m"
Else
  zGender ="f"
End IF

RS![Gender1] = Trim$(Combo1.Text)
RS![Gender2] = zGender

RS.Update