صح استاذي العزيز "" نناقش هذا لاحقا وفي موضوع جديد بحول الله"
بالنسبة للكود الم تلاحظ انه ينقصه شيئا للتصفية الصحيحة في المشاركة قبل هذه
Private Sub Etar_AfterUpdate()
If Etar = 2 Then
Me.frmTB_Ath6rary.SourceObject = "frmTB_Ath6rary2"
Else
Me.frmTB_Ath6rary.SourceObject = "frmTB_Ath6rary"
End If
Me.Requery
End Sub