السلام عليكم ورحمة الله وبركاته
ارجو من الاخوة الكرام مساعدتي في الاتي
لدي جدولين tabel_fam وجدول cod_sela الجدول الاول به حقوول وهي :
prn
name
date
sela
hos
الجدول الثاني به حقلين :
ramz
sela
عملت علاقه بينهما بالحقل sela
عملت نموذج استعلام يقراء من الجدول الاول الا انه اذا تم الاستعلام بالرقم prn وظهرت البيانات لا استطيع ان احدث فيها الا اذا حذفت العلاقه
ارجو المساعده
وان اكون اوضحت المطلوب
السؤال الثاني :
صممت نموذج به يقراء من جدول tabel_fa وبه الحقول
prn
name
sela
date_m
ag
mom
الخ
الحقل sela يعني صلة القرابه
هناك رسالة تظهر اذا تجاوز العمر 18 عاما
كالتالي:
______________
Private Sub age1_Exit(Cancel As Integer)
If (Me.age) > 18 Then
If MsgBox("يتجاوز العمر لـ " & vbCrLf _
& [employee_name ] & vbCrLf _
& " سن الثامنة عشر " & vbCrLf & "هل تريد قبوله" & vbCrLf _
& "أضغط (نعم) للإستمرار أو (لا) لإلغاء الأمر.", vbQuestion + vbYesNo _
+ vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه") = vbYes Then
Else
Me.Undo
'DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl ("[tamdeed]")
End If
End If
End Sub
____________-
المطلوب اريد اذا كانت صلة القرابه في حقل sela كالتالي:
نفسه- والده- والدته - زوجته - ابنته - لاينظر للرساله ويتجاوزها ويظهر في حقل mom يسمح لهم
اما اذا كان صلة القرابه ابن او ابنته زوجه يدقق في الرساله وينفذها
ماقمت بعمله كالتالي :
المشكله انه يعمل مره جيد ومره لايعترف
Private Sub mom_Enter()
mom = IIf([sela] = "نفسه", "يسمح له بالعلاج ", "غير مصرح له بالعلاج")
mom = IIf([sela] = "والده", "يسمح له بالعلاج ", "غير مصرح له بالعلاج")
mom = IIf([sela] = "والدته", "يسمح له بالعلاج ", "غير مصرح له بالعلاج")
mom = IIf([sela] = "زوجته", "يسمح له بالعلاج ", "غير مصرح له بالعلاج")
mom = IIf([sela] = "ابنته", "يسمح له بالعلاج ", "غير مصرح له بالعلاج")
mom = IIf(CDate(dat1) < CDate(date_y), "يسمح له بالعلاج ", "غير مصرح له بالعلاج")
نرجو ان نكون اوضحنا وناسف على الاطاله
