مطلوب كود لوضع معيار فى الاستعلام

ابذل مجهوداً وضع مثالا لنتمكن من مساعتك

الاخ الفاضل

يوجد نموذجين فى المرفق والاستعلام واحد

مطلوب وضع المعيار فى كود عند فتح النموذج

المعيار.rar

اخي الفاضل

اذا كان لديك فقط استعلام واحد وتريد استخدامه لعدة نماذج وكل نموذج له معيار خاص فإتبع هذه الطريقة

1. قم بوضع المعيار المطلوب في الإستعلام والذي تريده للنموذج المطلوب

2. تأكد اولا من عمل المعيار وذلك بتشغيل الإستعلام ثم ضع المعيار فإذا فتح الإستعلام على المعيار المطلوب فهذا يعني ان كل شيء تمام

3. الآن قم بعرض الإستعلام في وضع SQL ثم انسخ الجملة كاملة لأن بها المعيار المطلوب للنموذج

4. اذاهب الآن الى النموذج المطلوب ثم في حدث عند الفتح قم بجعل مصدر السجلات هو جملة SQL بهذه الطريقة

Private Sub Form_Open(Cancel As Integer)
Dim strSQL As String
strSQL = "SELECT Trabet.ID, Trabet.Farh, Trabet.Name, Trabet.Tel, Trabet.Tel1, Trabet.Nember, Trabet.Adrees, Trabet.Date1, Trabet.Ne1, Trabet.Ne2, Trabet.Bolk, Trabet.Metr, Trabet.price, Trabet.Mokdm, Trabet.Month, Trabet.Dofa, Trabet.Start, Trabet.End, [Metr]*[price] AS [All], [all]-[mokdm] AS Bakey, [Bakey]/[Month] AS PriceMonth, [PriceMonth]*[Dofa] AS PriceDofa, [month]/[dofa] AS CountDofa, Trabet.Scc " & _
"FROM Trabet " & _
"WHERE (((Trabet.ID)=[Forms]![trabet1]![id]))"

Me.RecordSource = strSQL
End Sub

5. الآن توجه الى خصائص النماذج وفي تبويب الكل قم بإزالة مصدر السجلات للنموذج ( لأن مصدر السجلات قد وضعناه اساسا بالكود عند حدث فتح النموذج )

6 . اذهب الى الإستعلام الآن وقم بحذف المعيار ليصبح استعلام عادي بدون معايير ثم ضع معيارك الخاص بالنموذج الآخر ثم انسخ جملة الإستعلام وضعها في حدث عند فتح النموذج المطلوب وكرر هذه الخطوات لبقية النماذج وحتى لو كانت 100 نموذج

za-المعيار.rar

بالتوفيق

الاخت الفاضلة الاستاذة زهرة

بارك الله فيكى وجعلة فى ميزان حسناتك

وارجوا الا اكون اثقل عليكم فى طلباتى