چطوری میتونیم کوئری اکسس رو از طریق کومبوباکس انتخاب کرده و به اکسل منتقل کنیم

توی دوره آموزش مقدماتی اکسس که قبلا تو وبسایت آفیس باز منتشر کرده بودیم مفصل در مورد ساختن انواع کوئریها صحبت کردیم و و تو آموزش انتقال داده ها بین اکسل و اکسس هم بحث کاملی در مورد انتقال اطلاعات بین اکسل و اکسس داشتیم و حالا می خوایم کاری کنیم که ماربر بتونه از کومبوباکس نام کوئری رو انتخاب کنه و با یک کلیک اون رو رو به اکسل انتقال بده .

فایل تمرینی انتخاب کوئری توسط کاربر و انتقال به اکسل

• جدولی داریم حاوی ده رکورد که شامل نام و نام خانوداگی و سایر اطلاعات دانش آموزان می باشد
• اطلاعات حاوی سن و نام پدر بوده و از دو مدرسه جداگانه می باشد.
• پنج کوئری با شروط مختلف ساخته ایم که در تصویر مشخص است.
• حالا می خواهیم فرمی مانند تصویر بعدی بسازیم که در آن کومبوباکسی حاوی نام کوئری ها وجود داشته باشد.
• وقتی کاربر روی دکمه قرار داده شده کلیک کرد ، کوئری که نام آن در کومبوباکس انتخاب شده است به اکسل منقل شود .

مراحل انجام کار برای نمایش نام کوئریهای اکسس در کومبوباکس

1- روی قسمتی که نام آجکتها را نمایش می دهد (Navigation Pan ) کلیک راست کرده و گزینه Navigation Option را انتخاب می کنیم.

2- تیک گزینه Show System Objects را می زنیم .

3- جداول سیستمی اکسس نمایش داده می شود.

4- فیلد Name در جدول MSysObjects که در تصویر زیر می بینید حاوی نام آبجکتها می باشد .

5- از منوهای بالای اکسس روی گزینه Create کلیک کرده و گزینه Blank Form را انتخاب می کنیم.

6- فرم را به حالت طراحی برده و یک کمبوباکس و یک دکمه در آن قرار می دهیم .

7- کومبوباکس را انتخاب کرده و از لیست سمت چپ Property sheet از تب Data روی سه نقطه مقابل Row Source کلیک میکنیم .

8- وارد نمای طراحی کوئری شده ایم ، جدول MSysObjects را انتخاب کرده و فیلد Name آن را به قسمت Field منتقل می کنیم .

9- در قسمت شرط کوئری عبارت زیر را می نویسیم.

Like “*qr*”

نکته : در این مثال نام همه کوئریهای ما با qr شروع شده است .

10 – ذخیره کرده و می بندیم ، کار تمام است و کومبوباکس حاوی نام کوئریها شده است .

انتقال کوئری انتخاب شده در کومبوباکس به اکسل

1- دکمه ایجاد شده در فرم را انتخاب کرده و از لیست سمت چپ Property sheet از تب Event روی سه نقطه مقابل OnClick  کلیک میکنیم .

2- وارد محیط کد نویسی شده ایم و با فرض اینکه نام کومبوباکس ما Text1 می باشد کد زیر را قرار می دهیم.

DoCmd.OutputTo acOutputQuery, Me.Text1, “xlsx”, , True

توضیح کد بالا به صورت کامل در ویدیو آموزشی داده شده است.

[aparat id=”J2QyC” width=”720″]

دانلود فایل استفاده شده در ویدئو

[sdfile url=”https://officebaz.ir/wp-content/uploads/2018/10/OfficebazQueryList.zip”]

[wp-review id=”23852″]