راهنمائی در خصوص اجرای کوئری

[محمد رضا بهبودی]

با سلام و احترام
لطفا اساتید محترم راهنمائی بفرمایند که چرا این کوئری اجرا نمی شود و در صورت امکان فایل را اصلاح بفرمایند . ممنون

[mazoolagh]

متد execute فقط برای action query معنی داره (یعنی insert/update/delete)

برای select باید نتیجه رو در یک recordset بریزین

[محمد رضا بهبودی]

با سلام و احترام
ممنون از پاسخ شما استاد گرامی
اگر امکان دارد لطفا فایل پیوست را اصلاح بفرمائید . ممنون

[mazoolagh]

خب چیزی برای اصلاح نیست!

خواسته تون رو بگین.

[محمد رضا بهبودی]

با سلام و احترام
استاد گرامی
من کد vba را برای درست کردن یک کوئری می خواهم . یعنی به جای ساخت کوئری ، بتوان با استفاده از دستورات vba یک سری اطلاعات را فراخوانی کرد. ممنون

[mazoolagh]

​برای فرم یا کنترل هایی مثل Listbox و combobox میتونین مستقیما یک select query رو به یکی از دو روش زیر استفاده کنین:
1- در فرم
set recordset=currentdb.openrecordset("SELECT … FROM … WHERE …")
recordsource="SELECT … FROM … WHERE …"
2- در ریپورت
recordsource="SELECT … FROM … WHERE …"
3- برای کنترل هایی مثل لیست باکس و کمبوباکس
listbox.rowsource="SELECT … FROM … WHERE …"
اگر قرار هست با کد یک سری عملیات روی رکوردها انجام بشه:
dim rs as recordset
set rs=currentdb.openrecordset("SELECT … FROM … WHERE …")

[mazoolagh]

روش ساخت کوئری با کد:
dim qd as querydef
set qd=currentdb.createquerydef("qry_name", "SELECT … FROM … WHERE …")

[محمد رضا بهبودی]

با سلام و احترام
ممنون از راهنمائی شما استاد گرامی