مساعدة في استعلام

[waheidi2005]

الزملاء الافاضل

ارجو منكم مساعدتي فيما يلي

عندما اقوم بفتح نموذج employee واختيار اسم ( سفيان رشيد)  وترك السنة الدراسية فارغا اريد ان يحضر جميع السجلات في جدول alaqat من خلال استعلام qry_alaqat

وعندما اقوم باختيار الاسم والسنة اريد ان يحضر سجلات السنة المختارة فقط

لقد حاولت وبحثت ولم استطع

ودمتم

السجل الاشرافي.rar

[waheidi2005]

للرفع

[waheidi2005]

للرفع

[دروب مبرمج]

استخدم هذا الكود

Dim SetSql As Variant, varFilter As Variant
SetSql = Null
varFilter = Null
'--------------- جزء فلترة النموذج حسب القائمة المسندلة ----------------
varFilter = (varFilter) & "[natnump] =" & Me.name1.Column(0)
 With Me.Form
 If Not IsNull(varFilter) Then
   .DataEntry = False: .Filter = varFilter: .FilterOn = True
 Else
  .FilterOn = False
 End If
  .Requery
End With

'--------------- جزء تغيير مصدر النموذج الفرعي ----------------
If Len(txtyear) = 0 Or IsNull(txtyear) Then
    Me.äãæÐÌ_ÝÑÚí_gadamat_ishraf2.SourceObject = "Table.alaqat"
Else
    Me.äãæÐÌ_ÝÑÚí_gadamat_ishraf2.SourceObject = "Query.qry_alaqat"
End If

 

السجل الاشرافي.rar