اذهب الي المحتوي
أوفيسنا

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


waheidi2005
إذهب إلى أفضل إجابة Solved by دروب مبرمج,

الردود الموصى بها

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

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

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

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

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

ودمتم

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information