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

RecordSet مع إستعلام


واضح2002

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

السلام عليكم .....

أخواني جربت RecordSet مع الجداول ومع الإستعلامات

وماشيه معي تمام ........... ولكن ؟؟؟

عندي الآن إستعلام وأحد حقوله يطلب قيمة من الواجهه اللي أنا شغال عليها

وعندما أردت أن أعمل

Set B = CurrentDb.OpenRecordset("Last_Perioud")

ظهرت لي رسالة (Too Few Parameter. Expected 1)

أرجو المساعدة إذا أمكن على وجه السرعة

ولكم جزيل الشكر

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

اذا كان الاستعلام فيه متغير براميتير ( اي يطلب ادخال قيمة معلمه ) لن يقبله و كذلك اذا كان الاستعلام نفسه معتمد على استعلام آخر فيه براميتر , لذا عليك

اما الاستغناء عن البراميتر , أو وضع شرط بقيمه لحقل الاستعلام

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

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

[Forms]![Form1]![Number]

حيث Number الحقل الذي في الواجهه (النموذج)

و Form1 اسم النموذج الذي يوجد به الحقل الواجهه

هذا ما فهمته من سؤالك وشوف المثال

F12.rar

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

الأخ FORCE

شكراً على المثال لكن هذه الطريق لاتستخدم RecordSet

لو وضعت RecordSet في مثالك السابق مع الأمر ستظهر لك نفس المشكلة

في السطر Set B = CurrentDb.OpenRecordset("Last_Perioud

لا يفتح وتظهر نفس الرسالة السابقة

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

ممكن أن تستخدم كود لوضع المعيار الذي تريده من داخل الكود نفسه و ذلك بعد ازالته من الاستعلام أي لاتضع في الاستعلام اي معيار مطلوب قيمته

Dim Re, fe As dao.Recordset
Set fe = CurrentDb.OpenRecordset("LastPeriod")
fe.Filter = "[EntryID] = " & Me.Number1
fe.Requery
Set Re = fe.OpenRecordset

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

  • 12 years later...

الحل الخامس

هو المذكور فى مشاركة الأخ رضوان

وهو بفلترة ال recordset

الحلول التى توصلت لمعرفتها من البحث فى الشبكة فى الملفات التالية

انظر إلى البارامتر فى الاستعلام و البارامتر فى الكود فى حدث الحالى للفورم

https://drive.google.com/folderview?id=1Kz0GHr3zRO5ycXYalkvFJiEwcCtnbT1l

 

 

سأقوم بشرح الطرق إن شاء الله

عند فتح الكمبيوتر

ربما تفيدنا الصور فى شرح بعض الطرق

 

Sol1.png.f2cbfc7fdf8cbe14f446e1675a08e70a.png

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

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