خطا در دستور openrecordest

[mhamedm2008]

با سلام
من از دستور زیر استفاده می کنم و اکسس خطا میگره

Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset(" select * from gh_Q_person_v WHERE ((personid)=1)")
Text9 = rst.Fields(2)

پیغام خطا : Too few parameters. Expected <number>. (Error 3061)

نکته مهم اینه که gh_Q_person_v نام یک Query هست.اگر نام تیبل باشه مشکلی نیست ولی می خوام توی یک Query جتجو کنه این مشکل پیش میاد
ممنون

[mazoolagh]

select خود query چی هست؟

[mhamedm2008]

select خود query چی هست؟



SELECT gh_person_v.personid, gh_person_v.person_kodmeli, gh_person_v.check_last, gh_person_v.person_kod_goruh
FROM gh_person_v
WHERE (((gh_person_v.person_kod_goruh)=(SELECT gh_Q_grouh_makan.kod_ghoruh1 FROM gh_Q_grouh_makan) Or (gh_person_v.person_kod_goruh)=(SELECT gh_Q_grouh_makan.kod_ghoruh2 FROM gh_Q_grouh_makan) Or (gh_person_v.person_kod_goruh)=(SELECT gh_Q_grouh_makan.kod_ghoruh3 FROM gh_Q_grouh_makan) Or (gh_person_v.person_kod_goruh)=(SELECT gh_Q_grouh_makan.kod_ghoruh4 FROM gh_Q_grouh_makan) Or (gh_person_v.person_kod_goruh)=(SELECT gh_Q_grouh_makan.kod_ghoruh5 FROM gh_Q_grouh_makan) Or (gh_person_v.person_kod_goruh)=(SELECT gh_Q_grouh_makan.kod_ghoruh6 FROM gh_Q_grouh_makan) Or (gh_person_v.person_kod_goruh)=(SELECT gh_Q_grouh_makan.kod_ghoruh7 FROM gh_Q_grouh_makan)));

این کوئری جواب هاش درسته و بدون اشتباه.ولی وقتی توی دستور بالا اسم این کوئری را می نویسیم اررور Too few parameters. Expected <number> را می گیره
با تشکر

[mazoolagh]

شرط personid رو هم به متن همین کوئری اضافه و در openrecordset این select جدید رو استفاده کنین. احتمالا در openrecordset فرمت کوئری یک محدودیت هایی داشته باشه.

ضمنا بنظر میاد این شرط where فعلی رو هم بتونین ساده تر کنین:
where person_kod_grouh in (select ....)

[mhamedm2008]

سلام
بازم نشد

آیا مشکل از تعریف پارامتر ها هست؟



Dim db As Database
Dim rst As Recordset
Set db = CurrentDb



وقتی یک کوئری ساده هم تعریف می کنم بازم هم همین خطا رو می گیره
می تونید یه نمونه ساده خودتون بزارید

[Abbas Amiri]

سلام
بازم نشد

آیا مشکل از تعریف پارامتر ها هست؟



Dim db As Database
Dim rst As Recordset
Set db = CurrentDb



وقتی یک کوئری ساده هم تعریف می کنم بازم هم همین خطا رو می گیره
می تونید یه نمونه ساده خودتون بزارید

بهتره شما نمونه خودتون رو بذارید تا سریعتر به جواب برسید . فقط جداول و کوئری مربوطه

[mhamedm2008]

این ربطی به فایل اصلیم نداره و یک کوئری ساده ساختم
ولی باز هم همون مشکل رو داره
ممنون

[Abbas Amiri]

این ربطی به فایل اصلیم نداره و یک کوئری ساده ساختم
ولی باز هم همون مشکل رو داره
ممنون

از روش زیر استفاده کنید:
ضمنا برای کار با متغیرهای رشته به پست زیر هم رجوع کنید:
http://barnamenevis.org/showthread.php?420681-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%DA%A9%D8%A7%D8%B1%D8%A7%DA%A9%D8%AA%D8%B1%D9%87%D 8%A7&p=1884609&viewfull=1#post1884609

[mhamedm2008]

ضمنا بنظر میاد این شرط where فعلی رو هم بتونین ساده تر کنین:
where person_kod_grouh in (select ....)
میشه بگین دقیقا چه جوری باید سادش کنم؟
ممنون

[mazoolagh]

مقادیری رو که or کردین در in معرفی کنین

[mhamedm2008]

با عرض پوزش
دستور in رو بلد نیستم
اگه ممکنه یه نمونه بزارین
ممنون

[mazoolagh]

select * from gh_person_v where person_kod_grouh in (1,3,9)