کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )
به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )
به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجیدرباره من
This topic is a little part of programming in access , We have reached to this goal just with efforts and more exercises also studying the Microsoft Office Documents and their various forums
ادامه...
تنظیم کوئری بر اساس عبارت Sql کاربر
خدا را شاکریم که در ایران امنیت وجود دارد و سربازان گمنام امام زمان هشیار و بیدار !
امنیت ما نقض شده است
اشعار تشییع جنازه اسماعیل هنیه در دانشگاه تهران مرداد ۱۴۰۳
مرگ بر سه ابلیس آمریکا اسرائیل و انگلیس
Public Sub SetQuery(query_name As String, query_string As String)
Application.CurrentDb.QueryDefs(query_name).SQL = query_string
End Subمی توان یک کوئری با نام دلخواه در دیتابیس ایجاد کرد و هر بار در کد Vba عبارت Sql را به آن ارسال کرد مثل کد بالا البته اگر به زبان Sql و Join زدن مسلط هستید وگرنه کوئری بسازید.
می توان یک کوئری موقت ساخت که در دیتابیس ذخیره نشود در کد زیر یک کوئری با نام qdfNew ساخته و بعد حذف میشود.
With db
Set qdfNew = .CreateQueryDef("NewQueryDef", _ "SELECT * FROM Categories")
' Open Recordset and print report.
' Delete new QueryDef because this is a demonstration. .QueryDefs.Delete qdfNew.Name
End With
برای مراجعه به شئ QueryDef در یک مجموعه با استفاده از تنظیم شماره ترتیبی خودش یا با ویژگی نام آن ، یکی از روش های نوشتاری زیر را استفاده کنید :
QueryDefs(0)
QueryDefs("name")
QueryDefs![name]
می توانید با استفاده از متغیرهای شئ که به آنها اشاره کرده اید به اشیاء QueryDef موقت مراجعه کنید.
آخرین روز عمر شهید اسماعیل هنیه در تهران مراسم سوگند پزشکیان در مجلس شورای اسلامی ... بهارستان ... ایشان حدود ۲ بامداد روز بعدش با موشک هدایت شونده در اقامتگاه ویژه جانبازان ( شمالغرب تهران ) دعوت حق را لبیک گفت و همچنان سپاه و دستگاه های ا منیتی شگفت زده از این حمله نابهنگام و غافلگیر کننده !!!
اولین جزئیات از ترور اسماعیل هنیه در تهران: ترور حدود ساعت ۲ نیمه شب اتفاق افتاد / هنیه در یکی از اقامتگاه‌های ویژه جانبازان در شمال تهران مستقر بودکه با اصابت پرتابه‌ای از هوا ترور شد
دیدبان ایران
۵ ساعت پیش
گزارش اقتصادنیوز به نقل از مهر، رضا کارگر مدیر روابط‌عمومی شرکت فرودگاه‌ها و ناوبری هوایی ایران ضمن تکذیب شایعه ممنوعیت پروازی در تهران به دلیل برگزاری مراسم تشییع پیکر شهید «اسماعیل هنیه»، گفت: هیچ‌گونه محدودیتی برای برقراری پروازهای ورودی و خروجی فرودگاه مهرآباد نداریم.
وی افزود: این محدودیت‌های تنها برای پروازهای آموزشی، هلیکوپتر و باشگاه‌های هوانوردی وجود دارد.
بنا به روایت رسانه های خارجی موشک NLOS ضد تانک از داخل ایران شلیک شده و دقیقاً هدف ، اتاق محل اقامت وی بوده که یکی بر پیکر ایشان اصابت کرده .
نیویورک تایمز مدعی شده بمبی از چند ماه پیش در اتاق و زیر تخت جاسازی شده یعنی اگر واقعیت داشته باشد که احتمالش کم است از کجا می دانستند که ایشان در طبقه چهارم اقامت خواهند داشت ؟؟؟؟
به برخی روایت ها مقصر تیم حفاظتی اسماعیل هنیه است که ناخواسته منجر به ردیابی گوشی ها و پیدا کردن محل شده ، یاد هفت سر اژدها افتادم که نفر اصلی سریال که همش در حال کشیدن سیگار و مشروبات آبی بود چقدر برای ردیابی نشدن از نرم افزارهای پیشرفته خارجی استفاده کرده بود ولی بالاخره نفوذ کار دستش داد !!! ... در آخر گفته شد بد افزار از طریق واتساپشان که در ایران فیلتر است گوشی ایشان را آلوده کرده و نهایتاً ردیابی مکان و ارسال موقعیت برای شلیک پرتابه
برخی منابع خارجی و داخلی از جمله سید حسن نصرالله، روش ردزنی اسماعیل هنیه را نفوذ به گوشی موبایل او اعلام کردند. در تصاویری که به تازگی از هنیه در کنار نوه‌هایش منتشر شده مشخص است که هنیه از گوشی آیفون استفاده می‌کرده که یک بی‌احتیاطی بزرگ برای شخصی همچون هنیه است. آیفون پیش از این به سفارش اف بی آی برای رصد یک متهم، توسط یک شرکت اسرائیلی هک شده بود و اسرائیل دسترسی قابل توجهی به این نوع گوشی تلفن همراه دارد.
۱۵ مرداد ۱۴۰۳
تشدید احتمال حمله ایران به اسرائیل به دنبال ناکامی تلاش‌ها برای آرام کردن اوضاع/ ترامپ: شنیده‌ام که امشب حمله‌ای از سوی ایران علیه اسرائیل انجام خواهد شد/ العربیه: ایران قرار است برای اولین بار موشک قدرتمند خرمشهر راعملیاتی و علیه اسرائیل استفاده کند / وزیر امور خارجه مجارستان روز دوشنبه در تماس تلفنی با کاتز وزیر امور خارجه اسرائیل به وی گفت که ایران اوایل امروز به مجارستان اطلاع داده است که در پاسخ به ترور اسماعیل هنیه، رئیس دفتر سیاسی حماس در تهران، به اسرائیل حمله خواهد کرد.
ساعت صفر (آلمانی: Stunde Null ، تلفظ [ˈʃtʊndə nʊl]) اصطلاحی است که به کاپیتولاسیون در نیمه‌شب ۸ مهٔ ۱۹۴۵ و هفته‌های بلافاصله پس از آن در آلمان اشاره دارد. برنامه‌های سیاسی آدولف هیتلر، رهبر آلمان نازی، یک جنگ جهانی به بار آورد و اروپای شرقی و مرکزی را ویران و فرسوده به جا گذاشت.
خاخام «ماتیت‌یاهو گلازرسون» ۸۲ ساله که بیش از ۳۰ کتاب مذهبی نوشته و به پیشگویی از روی کدهای مخفی تورات شهره است، در مدعی شده بود بر اساس خوانش کدهای رمزی که در آیات تورات وجود دارد، ایران به اسراییل حمله و این کشور را نابود خواهد کرد.
۱۶ مرداد ۱۴۰۳ ( سه شنبه )
به گزارش رکنا، مدیرعامل شهر فرودگاهی امام خمینی(ره) گفت: امروز (سه‌شنبه، ۱۶ مردادماه) خبر صدور نوتام هشدار امنیت پروازی برای غرب ایران توسط سازمان هواپیمایی کشور شایعه شده که چنین هشدار وجود ندارد.
طبق اطلاعات منتشر شده از منابع روسی، سیستم‌های هواپیمای جنگنده F-35 نیروی هوایی آمریکا به دلیل تداخل ایجاد شده توسط سیستم‌های جنگ الکترونیک مورمانسک BN از کار خواهد افتاد. با توجه به اینکه اسرائیل تنها کشور جهان به جز ایالات متحده آمریکا است که از این جنگنده فوق پیشرفته با حداکثر دسترسی نظامی بهره می‌برد، بنابراین کاملا مشخص است که یکی از اهداف درخواست احتمالی ایران برای به خدمت گرفتن مورمانسک، تقابل با سیستم جنگ الکترونیک جنگنده F-35 است.
رئیس مجلس نمایندگان آمریکا گفت: بایدن باید فوراً تمام تسلیحاتی که از ارسال آنها خودداری کرده یا به تأخیر انداخته است، در اختیار اسرائیل قرار دهد تا بتواند از مردم خود دفاع کند و ایران را بازدارد و روشن کند که اگر ایران در هر گونه حمله ای شرکت کند یا از آن حمایت کند، پیامدهای اقتصادی، نظامی و بین المللی مشخص و قاطعی خواهد داشت.
درخواست مکرون از پزشکیان درباره پاسخ به اسرائیل/پزشکیان : هرگز در مقابل تعدی به منافع و امنیت خود سکوت نخواهیم کرد.
گزارش «انتخاب»؛ وزارت هوانوردی مصر اعلام کرد: ایران برای همه شرکت‌های هواپیمایی غیرنظامی که از حریم هوایی این کشور عبور می‌کنند، در مورد انجام رزمایش‌های نظامی در روزهای ۷ و ۸ ( چهارشنبه و پنج شنبه ۱۸ مرد اد ۱۴۰۳ ) اوت هشدار داده است.
حسن بهشتی پور درباره نحوه بهترین پاسخ برای ترور اخیر اسماعیل هنیه، بهترین راهبرد را زدن ضربه ای کاری به یکی از سران اصلی و مسئولین جنایتکار رژیم صهیونستی دانست و اضافه کرد: دقیقا به همان شکلی که رژیم صهیونستی عملیات خود را انجام داد ما هم باید بتوانیم عملیات مشابهی را انجام بدهیم.
۱۹ مرداد ۱۴۰۳ : ترور عضو ارشد حماس در لبنان
حماس اعلام کرد که سامر الحاج در جریان حمله ددمنشانه رژیم صهیونیستی به شهر صیدا در جنوب لبنان که عصر امروز انجام شد، به شهادت رسیده است.
«سعدالله زارعی» کارشناس مسائل منطقه در پیش از خطبه‌های نماز جمعه این هفته تهران، اظهار داشت: اگر اسرائیل بتواند عملیات ترور را همانند تخریب بیمارستان‌های غزه عادی سازی کند، شاهد تکرار عملیات‌های ترور در سطح جهان اسلام علیه رهبران مقاومت خواهیم بود، لذا پاسخ به عملیات ترور رژیم اسرائیل یک الزام و اجبار برای سر جا نشاندن رژیم صهیونیستی است.
۲۰ مرداد ۱۴۰۳
همه تأسیسات حیاتی و استراتژیک اسرائیل توسط ایران و برای پاسخ شناسایی شده؛ زمان نهایی حمله با نظر مقامات سیاسی و نظامی تعیین خواهد شد ؛ اعتمادآنلاین ۴ ساعت پیش
هدف : کوچاندن اجباری
در کشتار جدید رژیم صهیونیستی در مرکز شهر غزه در بامداد امروز شنبه بیش از ۱۰۰ نفر شهید و ده‌ها نفر زخمی شدند.
«انس الشریف»، خبرنگار الجزیره در غزه گزارش داد که اشغالگران مدرسه «التابعین» در محله الدرج را بعد از نماز صبح بمباران کردند که با توجه به حضور بین ۴۰۰۰ تا ۵۰۰۰ نفر در مدرسه واقع در خیابان النفق ممکن است تعداد تلفات افزایش یابد.
اسرائیل در هراس !!!
«سیما کادمون» تحلیلگر روزنامه صهیونیستی «یدیعوت آحارنوت» در گزارشی نوشت: در طول جنگ خلیج فارس، یک تحقیق نشان داد که ۴۴ درصد ساکنان تل آویو، شب‌ها در خانه خود نمی‌خوابند.
۲۱ مرداد ۱۴۰۳
آرمان ملی با اشاره به شایعات استعفای ظریف در شبکه اجتماعی ایکس نوشت: به نظر میرسد که اگر استفعا یا حتی قهری در کار باشد در اعتراض به لیست وزرای پزشکیان است چرا که برخی کاربران با هشتک ظریف نباشه ما هم نیستیم، توییت و به لیست مورد بحث اعتراض کرده‌اند.
نمایندگی ایران در سازمان ملل افزود: «امنیت و حاکمیت ملی ما در اقدام تروریستی اخیر رژیم اسرائیل نقض شده است. ما حق دفاع مشروع داریم و این ارتباطی با آتش‌بس غزه ندارد؛ اما امیدواریم پاسخ ما در زمان و به‌گونه‌ای صورت گیرد که لطمه‌ای به آتش‌بس احتمالی نزند.»
۲۲ مرداد ماه ۱۴۰۳ و همچنان منتظر زمان صفر حمله نه تنها ایران بلکه کل دنیا
سفر خارجی ممنوع!
سخنگوی ارتش رژیم صهیونیستی گفت: بر پایه ارزیابی‌های اطلاعاتی سفر کلیه اعضای نیروهای مسلح اسرائیل به خارج از کشور ممنوع شد.
روزنامه عبری‌زبان «یدیعوت آحارونوت» اخیرا در گزارشی اعتراف کرده که صهیونیستها منتظر حملات ایران و حزب الله هستند، و «این دوره انتظار برای اسرائیل ویران‌کننده و ناامیدکننده است».
از سوی دیگر و در بحبوبه گزارش‌ها از بیم و هراس رژیم صهیونیستی از احتمال پاسخ تلافی‌جویانه ایران و حزب‌الله به دلیل ترور شهیدان اسماعیل هنیه و فواد شکر، «یوآو گالانت»، وزیر جنگ این رژیم در سخنانی مدعی شد: «اسرائیل تواناییهای زیادی دارد
قیمت پایه و مالیات و عوارض همین مالیات و عوارض رو اگر جمهوری اسلامی از عبور پروازهای خارجی از آسمان ایران بگیره ۹۰ درصد فقرای ایران ثروتمند خواهند شد
ارتش اسرائیل از ترس انتقام‌جویی ایران با صدور دستور جدیدی از ماندن تمامی سربازان عادی در گرجستان و آذربایجان که نزدیک به ایران هستند، جلوگیری کرد.
پایگاه خبری «العربیه» در این‌باره نوشت: فرمانده نیروی هوایی اسرائیل، با پیش‌بینی حمله ایران، سفر خلبانان نیروی هوایی به خارج از کشور را لغو کرد.
پس از جنایت رژیم صهیونیستی در غزه در اتفاق ناگوار مدرسه التابعین نیروهای امدادی هر 70 کیلو گرم از بدن اجساد را بدلیل نامشخص بودن افراد یک شهید در نظر گرفتند.
۲۳ مرداد ۱۴۰۳
در حالی که رهبران اسرائیل بر سر شکاف های شدید با هم اختلافاتی بنیادین دارند و در اظهارات خود با هم درگیر می شوند؛ حمله انتقام جویانه ایران در حال نزدیک شدن است و جامعه اسرائیلی هم روزهای دوشنبه و سه شنبه (دیروز و امروز) برای شوم ترین روز تاریخ یهود روزه می گیرند.
بزالل اسموتریچ» وزیر دارایی کابینه رژیم صهیونیستی خواستار رد مذاکرات برای برقراری آتش بس شده و گفته است: نباید در دام کشورهای میانجی بیفتیم که می‌خواهند توافقنامه تسلیم شدن را بر ما تحمیل کنند.
او افزوده است: از نتانیاهو می‌خواهم با توافق پیشنهادی جدید درباره مبادله اسرا موافقت نکند چرا که زمان توقف جنگ فرا نرسیده و برقراری هرگونه آتش بس باید منوط به نابودی حماس باشد.
اسرائیل: به خاک ایران حمله میکنیم حتی اگر حمله جمهوری اسلامی تلفاتی نداشته باشد/ ایران اینترنشنال/ ۲۰ ساعت پیش
عباس: احتمال حمله تلافی‌جویانه ایران به اسرائیل در ساعات آینده وجود دارد/ایرنا/۱۴ ساعت پیش ...... این پیش بینی هم غلط بود.
واقعاً ما ایرانیها هم منتظریم شب حمله چه زمانیست فقط دلهره نداریم 
از شهادت هنیه چندین هفته می گذرد . لامصب بزن و خیال همه رو راحت کن مرگ یکبار شیون هم یکبار !!!
صهیونیسم آینده تاریک و اقتصاد وحشتناکی را تجربه خواهد کرد . صهیونیست در آستانه فروپاشی است.
میگن اسرائیل با سر نوشت و واقعیتی روبرو خواهند شد که هیچ روزی انتظارش را نداشته.
شهرک های موشکی چند شعبه در دل کوه های لبنان
عبدالسلام، فرزند اسماعیل هنیه به العربیه فارسی گفت: موشک، تلفن همراه پدرم را ردیابی کرده بود؛ این موشک هدایت‌شونده از طریق دنبال‌کردن تلفن همراهی که در اتاق پدرم و در نزدیکی سر او قرار داشت، هدایت شد.
وی افزود: پدرم در آن روز، مدام از تلفن خود تماس می‌گرفت و تا ساعت ۲۲.۱۵ شبی که شهید شد، از آن استفاده می‌کرد.
۲۶ مرداد ماه ۱۴۰۳
اسرائیل: انتظار داریم غرب هم در دفاع هم در حمله به ایران به ما کمک کند / ایران اینترنشنال / ۵ ساعت پیش
فرمانده پیشین نیروهای آمریکایی در منطقه (سنتکام) می‌گوید حمله ایران برای مجازات اسرائیل قطعی است اما این بار بر خلاف عملیات ماه آوریل احتمالاً متحدان ایران هم در عملیات انتقامی شرکت خواهند کرد.
۳۱ مرداد ۱۴۰۳
۲ شهریور ۱۴۰۳
فرماندهی مشترک عملیات عراق با صدور بیانیه‌ای، ضمن تأیید خبر درگیری میان نیروهای ارتش و گروه مسلح «جند الامام»، از گروههای ائتلاف حشد الشعبی، تأکید کرد که این درگیری «مراسم زیارت اربعین را دچار مشکل نمی‌کند».
خبرگزاری فرانسه هم گزارش داده است که درگیری در میان جمع بزرگی از زائران در نزدیکی یکی از ایست‌های بازرسی ارتش عراق روی داد و طی آن دست‌کم شش تن از نیروهای حشد الشعبی دخیل در واقعه بازداشت شدند.
«سابرینا سینگ» معاون سخنگوی وزارت دفاع آمریکا با اشاره به ورود ناوگروه‌های این کشور به خاورمیانه، گفت که حضور دو ناو هواپیمابر آمریکا در منطقه، پیامی قوی درباره بازدارندگی به ایران در صورت حمله به اسرائیل ارسال می‌کند.
بالاخره فواد شکر هم در دام ترور افتاد. ( بعد از ترور نافرجام چندین رو ز قبل ) - از ترور اسماعیل هنیه و هک گوشی ایشان حزب الله درس نگرفتند !!!
گفتنی است که صبح امروز یکشنبه ۲۵ آگوست ۲۰۲۴ ( اربعین - ۴ شهریور ۱۴۰۳ ) حزب الله از واکنش اولیه به حمله ددمنشانه به ضاحیه بیروت که طی آن فواد شکر فرمانده بارز حزب الله به شهادت رسید، خبر داد.
نتانیاهو: آمادگی حزب الله برای حمله به اسرائیل را رصد کرده بودیم / ارتش هزاران موشک که به سمت شمال اسرائیل هدایت شده بود، منهدم کرد / بر بازگرداندن ساکنان شمال اسرائیل به منازلشان اصرار داریم / هر کس که به ما حمله کند، به او حمله خواهیم کرد
ساویت تاکید کرد: طبق دستورات بایدن، مقامات آمریکایی با همتایان اسرائیلی خود به طور مداوم رایزنی می‌کنند و از حق اسرائیل در دفاع از خود حمایت خواهیم کرد و در راستای ثبات منطقه حرکت خواهیم کرد.
خب مشخص شد که حمله به اسرائیل بخاطر مسائل امنیتی زائران مسیر کربلا بعد از اربعین اتفاق خواهد افتاد ( بخاطر حمایت آمریکا در مشارکت دفاع از اسراعیل که حتمیست) ولی زودتر از ۲۸ صفر نخواهد بود.... باید از زمان شروع حمله تمهیدات لغو پروازهای داخلی بمدت ۲۴ ساعت و پرواز جنگنده های فانتوم بر فراز مرزها جهت بررسی هر گونه اقدام سوء از طرف اسرائیل و هم پیمانانش انجام گیرد تا درگیری به داخل ایران کشیده نشود. چیزی که از شواهد و قرائن و کری خوانی ها مشخص شده در صورت موشک باران اسرائیل حمله به ایران دور از انتظار نخواهد بود!!!
۸ شهریور ۱۴۰۳
In Iran, the method of assassination was the subject of rumor and dispute. The Tasnim News Agency, the media outlet for the Guards, reported that witnesses said an object like a missile had hit the window of Mr. Haniyeh’s room and exploded.
But the two Iranian officials, the members of the Guards briefed on the attack, confirmed that the explosion had taken place inside Mr. Haniyeh’s room, and said that an initial investigation showed that the explosives had been placed there sometime in advance.
They described the attack’s precision and sophistication as similar in tactic to the remote controlled A.I. robot weapon that Israel used to assassinate Iran’s top nuclear scientist Mohsen Fakhrizadeh in 2020.
۱۵ مرداد ۱۴۰۳
به گزارش تابناک؛ یک منبع ارشد در شورای عالی امنیت ملی ایران به الجریده فاش کرده که یک هیئت امنیتی آمریکایی با میانجیگری عمان به ایران سفر کرده تا پیام «آرامش و هشدار» را به تهران برساند تا از جنگ بزرگی که نخست وزیر اسرائیل برنامه‌ریزی کرده جلوگیری شود.
در عجیب‌ترین بخش این گزارش الجریده آمده است: این هیئت فهرستی حاوی «اسامی ۱۰ نفر از عوامل موساد» در داخل ایران را که آمریکایی‌ها معتقدند مستقیم یا غیرمستقیم در این ترور دست داشته‌اند، به عنوان حسن نیت به طرف ایرانی ارائه کرده است.
Spike
امام علی(ع) در خبطه سی و چهارم نهج البلاغه می فرماید: دشمن به شما حمله مى کند و شهرها را از دستتان خارج می سازد و شما به خشم نمی آئید! دیده دشمن براى حمله به شما خواب ندارد، ولى شما در غفلت و بى خبرى به سر می برید، شکست از آن آنانى است که دست از یارى یکدیگر برمی دارند.
رئیس پیشین ستاد مشترک سپاه پاسداران انقلاب اسلامی به جماران گفت: قطعا آمریکا در برنامه ترور اسماعیل هنیه همکاری نزدیکی را با رژیم صهیونیستی هم در حوزه عملیاتی و هم اطلاعاتی انجام داده است.
رژیم صهیونیستی با انجام این ترور می خواهد به گروههای فلسطینی نشان دهد که در هیچ جای دنیا مکان امنی برای حضور و زندگی ندارند و همانطور که نوار غزه برای مردم آن ناامن است، سایر کشورها هم برای کسانی که مخالف اشغال هستند، نا امن است.
فیلتر در اکسس
در تصویر زیر سه Toggle Button در OptionGroup با نام Frame5 قرار گرفته و ولیوی آنهای به ترتیب 0 تا 2 است با کلیک روی اولین باتن ، تمام رکوردهایی که فیلد chk آنها تیک خورده یا نخورده در سابفرم آورده میشود Forms!Form1!Frame5=0 ، کلیک روی باتن دوم رکوردهایی که فیلد chk آنها غیر صفر است در سابفرم لیست میشود و باتن آخر هم لیست رکوردهایی است که فیلد chk آنها صفر یا تیک ندارند 
در تصویر زیر فرمی Simulate شده که سه کنترل CheckBox برای فیلتر کردن گرید A تا B ( فیلد Grade ) و دو کنترل CheckBox دیگر برای فیلتر کردن تیک خورده ها یا نخورده ها ( فیلد chk )، دارد چنانچه هیچکدام از ۵ چک باکس تیک نخورده باشند کل داده نمایان خواهد شد.( تعداد کل ورودی در تصویر ۹ رکورد بوده )
سمت راست تصویر چهار رکورد نمایش داده شده دقیقا تیک چک باکس گرید A و تیک چک باکس ( Unchecked مربوط به فیلد chk ) در فرم زده شده ... طبق عبارت Sql کوئری شامل رکوردهایی با گرید A که تیک Chk آنها نخورده باشد.
بین هر فیلد از عملگر منطقی AND استفاده میشود و برای لیست کردن چند آیتم خاص از یک فیلد OR کاربرد دارد.
?'A' AND FALSE=FALSE
?'A' AND TRUE=NULL
'A' OR TRUE=TRUE
'A' OR FALSE=0
'A' OR TRUE=1
FALSE OR TRUE=TRUE
TRUE OR FALSE=TRUE
TRUE AND FALSE=FALSE
FALSE AND FALSE=FALSE
FALSE OR FALSE=FALSE
NULL AND FALSE=FALSE
NULL AND TRUE=NULL
NULL AND NULL=NULL
برای ارسال داده ها به اکسل نام کوئری را در دستور DOCMD.OUTPUTTO قرار می دهید.
Method vba/api/access.docmd.outputto
در تصویر زیر ، تصویر اول تمام رکوردهای جدول t نمایش داده شده شامل ۹ رکورد ایجاد شده با INSERT INTO ، تصویر سوم که فیلد DATE دارد شامل رکوردهایی است که کوچکت مساوی یک تاریخ خاص و نیز کوچکتر مساوی عدد 105 است ، تصویر چهارم یا آخر در تصویر زیر ، از رکوردهای داخل تصویر سوم آنهایی که تیک چک فیلد CHK آنها زده شده ( یا باصطلاح غیر صفر است ) را نمایش میدهد که شامل دو رکورد است .
در لینک زیر روش بیان شده ، البته هزینه بر است (کلا در چند خط خیلی کوتاه و شامل 4 تصویر که بعد از اعمال کد SQL جدول فیلترشده) . برای ارسال داکیومنت آن درخواست دهید و بعد از واریز مبلغ ده هزار تومان به ایمیل شخصی ارسال خواهدشد.
Multi Filter Select-Query-Access-
در تصویر زیر ، رکوردهایی که نام محصول به les ختم می شود لیست شده البته در SQL بجای علامت * در اکسس از % استفاده شده.اگر در اکسس عبارت جستجو بین دو * قرار بگیرد تمام رکوردهایی که نام محصول شامل آن عبارت است را می آورد چه آخر باشد چه هر جای دیگر رشته در فیلد نام محصول.
MULTIFILTER IN ACCESS :
در تصویر زیر اینطور تصور شده که فرمی با دو چک باکس برای فیلتر کردن فیلد Available و یک کنترل تکست باکس برای فیلتر کردن محتویات فیلد GradeNo موجود است.
در تصویر در صورت تیک داشتن یا نداشتن جفت تکست باکس کل رکوردها که 11 رکورد با Insert Into ایجاد شده در سابفرم نمایش داده میشود. در صورت تیک چک باکس اول رکوردهای دارای مقدار صفر یا False فیلد Available و تیک چک باکس دوم مقادیر غیر صفر یا True لیست میشوند . البته سابفرم باید Requery شود تا نتیجه فیلترشدن را ببینید.
برای اینکه در سابفرم تمام رکوردهای False و True فیلد Available نمایش داده شود می بایست :
Available=False Or Available=True
حال اگر قرار باشد فیلد Available در کوئری بیلدر مقادیر ولیوی چک باکس ها در فرم را بگیرد میشود :( در صورتیکه جفت چک باکس ها تیک نخورده باشند = False )
Available=False Or Available=False
و در اینصورت فقط مقادیر صفر یا False ها نمایش داده میشود ولی ما می خواهیم در صورت تیک نداشتن دو چک باکس و داشتن ولیوی صفر دو مقدار False و True را مشاهده بنمائیم.پس باید یکی از طرفین مخاف False شود.
FALSE OR <>FALSE=TRUE نمایش همه
TRUE OR <>FALSE = هاTRUE نمایش
FALSE OR <>TRUE= ها FALSE نمایش
TRUE OR <>TRUE=TRUE نمایش همه
در تصویر زیر دو تکست باکس تصور شده که در صورت تایپ عدد در این دو باکس اعدادی بین این دو که در جدول باشد نمایش داده میشود ، در صورتیکه یک باکس یا هر دو خالی بود از فیلتر در می آید . البته بدین شکل که اگر باکس دوم خالی باشد همه ی رکوردها و اگر باکس اول خالی باشد رکوردها تا مقدار باکس دوم مشاهده میشود در این دو تکست باکس چک میشود که اگر PartNo در جدول نباشد ارور بدهد در رویداد LOST FOCUS می توان با DlookUp چک کرد اگر نبود پراپرتی OldValue مقدار Value تکست باکسی شود که در حال Exit از آن هستید از رویداد Exit هم میشود بهره برد.
حال در تصویر زیر تکست باکس اول در فرم Null و تکست باکس دوم 1003 است ( جدول کلا 11 رکورد دارد )
(GradeNo>='' Or True) And (GradeNo<='1003' Or False)
عبارت بالا برای زمانی نیست که در دو تکست باکس اعدادی تایپ شود که در جدول وجود ندارد یا حتی در آنها کاراکتر غیر عددی وارد شود اگر صحت موجود بودن مقادیر در جدول چک نشود این عبارت False را بر می گرداند و هیچ رکوردی نمایش داده نخواهد شد.
(GradeNo='123' Or False) AND (GradeNo='896' Or False)
False And False=False ' No Record
بررسی عبارات زیر :
(GradeNo Between '458' And '678' Or False Or False)
458 , 678 Not Exist in Above Table
FALSE AND FALSE OR FALSE OR FALSE=FALSE
پس چون نتیجه FALSE است رکوردی نمایش داده نخواهدشد.
(GradeNo Between Null And '678' Or True Or False)
678 Not Exist in Above Table
NULL AND FALSE OR TRUE OR FALSE=TRUE
پس چون نتیجه TRUE است تمام رکوردها نمایش داده خواهدشد.
(GradeNo Between Null And Null Or True Or True)
Two Boxes Are Null
NULL AND NULL OR TRUE OR TRUE=TRUE
پس چون نتیجه TRUE است تمام رکوردها نمایش داده خواهدشد.
برای اینکه مقادیر وارد شده در دو تکست باکس را صحت سنجی نکنیم و در صورت تایپ مقداری خارج از جدول می بایست یک عبارت دیگر به شرط اضافع کرد مثل
OR (TRUE AND FALSE)
که در صورت پر بودن تکست باکس ها ،دو TRUE و FALSE داخل پرانتز TRUE شوند و در نتیجه کل رکوردها نمایش داده شوند و در اینجا جستجو کننده پی خواهد برد که یکی از مقادیر تایپ شده یا هر دو در جدول وجود ندارد البته جلوگیری از تایپ عددی یا تاریخی خارج از محتویات فیلد کار خوب و استانداردی است ولی خوب کوئری نویسی آسان بنظر میرسد ولی می بینید به همین سادگی که گفته شد نیست مگر اینکه عملگرهای منطقی را کاملا فرا بگیرید.
>>>>>> nullguide-oper
اگر دو تکست باکس پر باشند ولی در جدول ناموجود می توانید عبارت بالا را اضافه کنید . ( ... BETWEEN....AND...OR...OR)
(NULL(FALSE) AND NULL(FALSE) OR TRUE OR TRUE )OR (TRUE AND TRUE)=TRUE (NULL OR TRUE=TRUE)
تکست باکس اول NULL است و تکست باکس دوم مقداری که در فیلد GRADENO وجود ندارد یا حاوی کاراکتر غیر عددیست.
(NULL(FALSE) AND FALSE OR FALSE OR TRUE) OR (TRUE AND FALSE)=TRUE
NULL AND FALSE=FALSE
FALSE OR FALSE OR TRUE=TRUE
TRUE OR (TRUE AND FALSE)=TRUE OR FALSE=TRUE
جستجو بین دو تاریخ :
دو کنترل تکست باکس به نام های TXTDATEFROM و TXTDATETO . ( سعی کنید دو تا باکس را چک کنید اگر تاریخ اولی از باکس دومی بزرگتر بود خطائی صادر کرده یا باکس را NULL در نظر بگیرد.
BETWEEN TXTDATEFROM AND TXTDATETO OR FORMS!FORM1!TXTDATEFROM IS NULL OR FORMS!FORM1!TXTDATETO IS NULL
فرضا در جدول تاریخ های 1397/01/30 و 1398/02/01 نداریم تکست باکس ها را با این دو رشته پر می کنیم بعد از خروج از تکست باکس ها پراپرتی VALUE میشود مقادیری که گفته شد.چون دو تاریخ در جدول نیست پس برای هر کدام FALSE را بر می گرداند و نتیجه آخر FALSE است و هیچ رکوردی نمایش داده نخواهد شد.
(FALSE AND FALSE OR FALSE OR FALSE) =FALSE OR FALSE=FALSE ' NO RESULT
اگر تکست باکس اول NULL باشد و تکست باکس دوم دارای رشته ای باشد که داخل جدول نباشد( =FALSE) و بالعکس تمام رکوردها لیست خواهند شد :
(NULL AND FALSE OR TRUE OR FALSE)=FALSE OR TRUE OR FALSE=TRUE 'SHOW ALL RECORDS
تصویر زیر ، خود گویای توضیحات ارائه شده بالا است . جدول شامل کلا ۱۱ رکورد است یکی از تکست باکس ها خالیست و برابر NULL و در دیگری عددی خارج از اعداد جدول ، زمان اجرای کوئری تمام ۱۱ رکورد نمایش داده شده.
دوستان فراگیر ، مطالبی که در این یادداشت ها قرار داده میشود کاملا توضیح داده شده از کپی کاری پرهیز و سعی کنید برای خواندن مطالب وقت گذاشته ، به داکیومنت آفیس که مرجع است مراجعه کنید . لطفا در نظر سنجی هم شرکت کنید ( از انتخاب منو گوشه راست بالا ). بنده برنامه نویس نیستم فقط یادداشت هایی که از سایتهای خارجی استخراج کرده را برای خودم و شما به اشتراک خواهم گذاشت انشاءا... .کلام آخر ، کد آماده به درد تازه واردها نخواهد خورد سعی کنید مطالب را از همین بلاگ یاد بگیرید.
نظرات باز است در زیر همین یادداشت هم می توانید اعلام نظر بفرمائید و نظرسنجی فراموش نشود !!!
ران کردن کوئری ها یا اجرای عبارات Sql ( با سرعت خوب )
مثل RunSql هشدار نمیدهد ولی سرعت خوبی دارد اگر dbFailOnError استفاده شود در صورت خطا طبق گفته ی داکیومنت در زیر Roll Back میشود .
CurrentDB.Execute
شرط ساده در کوئری
جدول titles :
title _id type price-------- --------- -----T01 history 21.99T02 history 19.95T06 biography 19.95T13 history 29.99T12 biography 12.9
SELECT title_id, type, priceFROM titles('WHERE (type = 'history('OR type = 'biographyAND price < 20;
در Sql بالا شرط بدین شکل است تنها رکوردهائی را نمایش میدهد که فیلد type شان history یا biography و قیمت شان هم کوچکتر از 20 باشد و نتیجه :
title_id type price-------- --------- -----T06 biography 19.95T02 history 19.95T12 biography 12.99
فیلتر پیشرفته ( شرط کوئری )
فرض کنید کنترل چک باکسی در فرم ساخته اید به نام Check2 که در فرم اصلی با نام Form3 قرار گرفته میخواهید آن چک باکس را به رکوردسورس فرم وصل کنید به این منظور که هر زمان باتنی با نام فیلتر را فشردید بر حسب تگ آن چک باکس فیلتر در دیتیل اعمال گردد.
در تگ چک باکس مقدار را وارد کنید ( فرض می کنیم میخواهیم فیلد تحصیلات در دیتیل با مقدار چک باکس فیلترشود پس مقدار تگ را دیپلم قرار می دهیم ) سپس به دیزاین فرم رفته و در رکورد سورس به کوئری بیلدر می رویم ( با زدن سه نقطه کنار باکس رکوردسورس) .
در قسمت Criteria فیلد Education تایپ میکنیم
Forms!Form3!Check2.Tag
حتما در رویداد باتن فیلتر منبع فرم را ریکوئری کنید
Me.Requery
زمانیکه فرم باز شود دیتیل فرم طبق مقداری که در پراپرتی تگ ( Tag ) چک باکس گذاشتید فیلتر میشود و امکان حذف فیلتر را ندارید. (مگر ساخت باتن دیگر و نوشتن Me.FilterOn=False )
اگر بخواهید زمان بازشدن فرم کل رکوردها نمایش داده شود و زمانیکه بر روی باتن فیلتر فشردیدآنوقت فیلترانجام شودباید دریک ستون دیگرفیلدEducation را انتخاب و توتالزرا Where کنید و سپس در کریتریای آن بنویسید
(iif(Forms!Form3!Check2=True,Forms!Form3!Check2.Tag,False
موردبالا بعد از برداشتن تیک دیتیل را خالی نمایش میدهد که برای اینکار از Is Null آن چک باکس و false در iff ذکرشده استفاده می کنیم.
فیلتر کردن تاریخ :
- دو تکست باکس به نام های Text12 و Text14در فرم دارید و می خواهید رکوردهای بین دو تاریخ درج شده در دو تکست باکس فیلترشود در همان کوئری بیلدر در شرط فیلد تاریخ می نویسید
Between Forms!Form3!Text12 And
Forms!Form3!Text14
*** Null معادل هیچ مقداری نیست جمع مقادیر با Null همان Null میشود پس برای فیلد رکوردی که Null است یا کنترلی که Null است باید صفر در نظرگرفته شود تا جواب جمع Null نشود و ارور دریافت نکنید !!!
اگر یکی از تکست باکس ها یا جفت خالی باشند چه اتفاقی خواهد افتاد به رفتار عملگرها مراجعه کنید ) ؟!!!
طبق داکیومنت اکسس بولین مقدار ندارد ولی برای فالز صفر و برای ترو هر عددی غیر از ترو می تواند باشد
Between True And Null=Null
Between Null And True=Null
Between Null And Null=Null
( یکسری از دوستان فقط بلدن کپی کنن !!! در عبارت بالا فاصله
رعایت شود )
نکته !!! اگر در تکست باکسها الگوی ورودی یا Input Mask استفاده کردید برای تاریخ حتما باید مثل Input Mask فیلد تاریخ باشد یعنی اگر در فیلد تاریخ جدول از 0 ;0000/00/00 استفادا کردید که اسلش ها هم درنظر گرفته میشود اگر Inpust Mask تکست باکس ها را فقط 0000/00/00 در نظر بگیرید چون مچ نمی شود خالی نمایش میدهد و یا اگر اینپوت ماسک شما در جدول بصورت 0000/00/00 ( که اسلش ها در نظر گرفته نمی شود ) باشد و در تکست باکس از اینپوت ماسک استفاده نکرده باشید و خودتان تاریخ را با اسلش تایپ کنید باز هم مچ نمیشود چون در جدول فرضا 13980120 ثبت شده ولی شما در تکست باکس 1398/01/20 وارد کرده اید . ( پس خالی بودن دیتیل فرم بدین معنیست که مچ نشده چه تاریخ مورد نظر در مقدار فیلد جدول نباشد یا اینکه الگوی شما با تکست باکس نخواند )
پس اول چک کنید که الگوها یکی باشند !!! بعد از تطبیق دادن اگر شما یکی از تکست باکس ها را خالی رها کنید زمانیکه باتن فیلتر را کلیک می کنید باز هم دیتیل را خالی نمایش می دهد برای اینکه اگر یکی از آنها خالی بود از حالت فیلتر خارج شود کافیست با آن آدرس تکست باکس عبارت Is Null را بکار ببرید ( بافاصله !!! ). اشتباه نکنید در محیط وی بی تابع IsNull وجود دارد.
Between (Forms!Form3!Text12 Or Forms!Form3!Text12 is Null) And
(Forms!Form3!Text14 Or Forms!Form3!Text14 is Null)
برای درک عبارت بالا بهتر است حتما عملکرد عملگرها را بدانیم
Boolean Operation
notNULL=NULLNULLorfalse=NULLNULLortrue=trueNULLorNULL=NULLNULLandfalse=falseNULLandtrue=NULLNULLandNULL=NULL
The Microsoft Access IsNull function returns TRUE if the expression is a null value. Otherwise, it returns FALSE.
فرضا در Text12 هیچ مقداری وجود ندارد ( Null ) یعنی Null است و is Null برابر True ( چون در اینجا تکست 12 Null است پس True را بر می گرداند ) پس طبق بالا داریم
Null Or True=True
| A | β | AND(&&) | OR(| |) | NOT(exclA) |
|---|---|---|---|---|
| FALSE | FALSE | FALSE | FALSE | TRUE |
| FALSE | TRUE | FALSE | TRUE | TRUE |
| TRUE | FALSE | FALSE | TRUE | FALSE |
| TRUE | TRUE | TRUE | TRUE | FALSE |
Type Conversions
When Visual Basic converts numeric data type values to Boolean, 0 becomes False and all other values become True. When Visual Basic converts Boolean values to numeric types, False becomes 0 and True becomes -1.
در مورد Between...And :
If expr, value1, or value2 is Null, Between...Andreturns a Null value.
برای شرط تاریخ میتوان با Iif شرطی نوشت که اگر تکست باکس شروع خالی بودبرای عملگر بزرگتر ( برای تکست باکس شروع ) First یا Min ( بهتر است استفاده شود ) فیلد تاریخ اعمال شود و برای عملگر کوچکتر ( برای تکست باکس خاتمه ) اگر تکست باکس خاتمه خالی بود Last یا Max فیلد تاریخ ( که بهتر است ) 