غیر فعال کردن ویژگی AllowByassKey یا دور زدن برای ورودبه اکسس و غیر فعال کردنF11 برای ورود به ویژوال اکسس با AllowSpecialKeys

No To ghalibaf

زمانیکه این ویژگی فعال باشد یا True شما می توانید با زدن کلیدهای ترکیبی Shift+Enter به اکسس دسترسی داشته باشید ( البته اگر برای اکسس پسورد تعیین کرده باشید باید بعد از ورود صحیح رمز این کلیدهای ترکیبی را فشار دهید )  این دسترسی شامل دسترسی به باتن Options ، جداول و سایر آبجکت هاست .

نوع داده : Boolean

با استفاده از ویژگی AllowBypassKey می توان تعیین نمود که آیا کلید SHIFT برای دور زدن ویژگیهای Startup و AutoExec فعال شود . برای مثال با تنظبم این پراپرتی به False می توان از این دور زدن یا Bypassing حفاظت کرد 

کاربرد ویژگی AllowSpecialKeys برای تعیین اینکه آیا ترتیب کلیدهای خاص ((ALT+F1 (F11 و CTRL+F11 و CTRL+BREAK و CTRL+G یا پنجره immadiate window ) غیر فعال یا فعال هستند یا خیر . برای مثال می توان از این ویژگی برای عدم نمایش database window توسط کاربر با فشردن کلید F11 ، ورود به ویژوال بیسیک با فشردن کلیدهای ترکیبی  CTRL+BREAK یا نمایش پنجره immediate window با زدن کلیدهای ترکیبی CTRL+G استفاده نمود.

بعضی از ویژگیهای مهّم دیگر عبارتند از : 

AllowBypasskey

AllowFullMenus

StartUpShowStatusBar

AllowBuiltInToolbars

AllowShortcutMenus

AllowToolbarChanges

AllowSpecialKeys

StartUpShowDBWindow

البته افراد حرفه ای با ورود با استفاده از دیتابیس دیگر و کانکت شدن به برنامه اکسس که کلید شیفت آن بسته است می توانند کلید شیفت را فعال نمایند 

اجرای ماکرو با نام AutoExec قبل از اجرای هر ماکرو دیگر

AutoExec Macro

An AutoExec macro is just a macro that is named AutoExec. When a database starts, Access runs the AutoExec macro before it runs any other macros or VBA code.

۱۷ خرداد ۱۴۰۳ ( مصداق مال نامشروع )

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

بنا بر گزارش مهر، وی افزود: این مال از راه حرام کسب می‌شود و خانواده‌ها باید در رابطه با تبلیغات فریبنده دشمنان نهایت دقت را داشته باشند.

اردوگاه آوارگان نصیرات شلیک کرده است. ارتش اسرائیل اعلام کرد که یک حمله «دقیق» را به یک «مقر حماس» در این مدرسه انجام داده است ... البته با کمک کاماندوهای آمریکایی

ساعاتی پیش یک مسئول آمریکایی به پایگاه خبری آکسیوس گفت که یگان آمریکایی مسئول امور اسرای اسرائیلی در عملیات بازگرداندن چهار اسیر صهیونیست از اردوگاه النصیرات به رژیم صهیونیستی کمک کرده است.

همچنین تلویزیون رسمی رژیم صهیونیستی گزارش داد که «افراد مسلح، خودرویی که حامل چهار اسیر بوده را تعقیب کرده و به سمت آن تیراندازی کرده‌اند و این خودرو مورد اصابت قرار گرفته است».

رد صلاحیت های ۱۴۰۰

در بین ۴۱ نامزد سرشناس که برای انتخابات ریاست‌جمهوری ایران (۱۴۰۰) نام‌نویسی کرده بودند، شورای نگهبان صلاحیت ۷ نفر را تایید کرد.رد صلاحیت محمود احمدی‌نژاد، رییس‌جمهور اسبق، علی لاریجانی، رییس سابق مجلس و اسحاق جهانگیری، معاون اول رییس جمهور، بحث‌انگیزترین رد صلاحیت‌های این دوره بود که واکنش‌هایی در پی داشت. در این دوره از انتخابات هیچ چهره سرشناس اصلاح‌طلب و اعتدال‌گرایی توسط شورای نگهبان تأیید نشد.

نتایج نهایی شمارش آرای انتخابات ریاست‌جمهوری اعلام شد.

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

میزان آرای اخذشده و تعداد آرای هر کاندیدا را در جدول زیر ببینید.

ردیف	نام کاندیدا	میزان رأی	درصد
1	سید ابراهیم رئیسی	17 میلیون و 926 هزار و 345	61.95
2	محسن رضایی	3 میلیون و 412 هزار و 712	11.79
3	عبدالناصر همتی	2میلیون و 427 هزار و 201	8.38
4	سید امیرحسین قاضی‌زاده هاشمی	999هزار و 718	3.45
آراء سفید و باطله		3 میلیون و 726 هزار و 870	12.88
کل آراء مأخوذه		28میلیون و 933 هزار و 4 نفر	48.8

در ۲۶ خرداد ۱۴۰۰، در فاصله دو روز مانده به انتخابات، علیرضا زاکانی در نامه ای از ادامه حضور در رقابت‌های انتخاباتی ۱۴۰۰ به‌نفع سید ابراهیم رئیسی انصراف داد.

سربازان  سپاه در مرزها و جاهایی که تردد واقعاً سخته و همیشه ممکنه احتمال درگیری با ضدانقلاب باشه تا حالا فکر کردید تفاوت غذاهایی که بهتون داده میشه با سربازانی که در بیت رهبری هستند چیه آیا به اونا بیشتر میرسن که نزدیک رهبرند یا به شما ؟ آیا مثل فیلمهای اکشن و جنایی درگیری بین اعضای سپاه در بیت رهبری وجود داره مثل رخنه کردن و همدیگر رو به ملکوت اعلی  بفرستند ؟!! کلی سوال تو ذهنمه 

تیرماه ۱۴۰۳ ( بحبوحه انتخابات ریاست جمهوری در شهادت ناباورانه شهید جمهور : رئیسی ) 

ظریف : 

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

 

*تحریم انتخابات باعث حاکم شدن خالص سازان می شود تا عده دیگری را خانه نشین کنند.

به گزارش خبرگزاری خبرآنلاین، محمد جواد ظریف، وزیر امور خارجه دولت دوازدهم در گردهمایی روحانیون حامی مسعود پزشکیان با حضور در حسینیه جماران گفت: طلا، زمین و گوشت در خانه را قول دادند. مرحوم ترکان می گفت اینها حساب نمی فهمند. ۲۰ گرم طلا برای هر خانواده سه نفره می شود چند تن طلا؟ از کجا می خواهید بیاورید؟ اینها دروغ است دیگر، اینها یعنی صادق نبودند. عدم صداقت کشنده است، عدم صداقت مرگبار است، نه برای من و شما، برای بیچاره ای که به نان شب محتاج است.

۵ تیر ۱۴۰۳ 

شعار مردم کرمان ( فرودگاه ) در بدو ورود نامزد ریاست جمهوری ۱۴۰۳ جناب آقای سعید جلیلی ( بعد از شرکت در راهپیمایی غدیر )

صلِّ علی محمد بوی رئیسی آمد

در نامه همکاران و دانشجویان و فاغ التحصیلان‌ دانشگاه امام صادق خطاب به جلیلی آمده است؛

باسمه تعالی

جناب آقای دکتر سعید جلیلی

کاندیدای محترم انتخابات ریاست جمهوری

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

مستحضرید که در سال ۱۳۹۲ آقای حسن روحانی انتخابات را با دو درصد اقبال آرا شروع و در روز انتخابات با پنجاه و یک درصد به نتیجه رساند.

عضو مجمع محققین و مدرسین حوزه علمیه قم در توئیتی نوشت: دوستان هر گونه اختلافی را کنار گذارند و برای موفقیت آقای پزشکیان تلاش کنند.

GHALIBAF.IR

سه‌سال مسکن رایگان به زوج های جوان

زمین رایگان به خانوارهای بی‌مسکن

دیوار انسداد مرز شرقی کشور

رشد حقوق با تورم

واردات خودرو

ضمانت:کارنامه من

بالاخره انصراف کتبی دو نامزد پوششی دکاتیر  قاضی زاده و زاکانی توسط وزارت کشور واصل شد ، البته از قبل هم مشخص بود این دو بزرگوار کنار خواهند کشید و ماندنشان فقط برای این بود که مردم را آگاه نمایند که به دولت روحانی رای ندهند !!!

۷ تیر ۱۴۰۳ یکروز قبل از برگزاری انتخابات و روز سکوت انتخاباتی

او ( حضرت قالیباف ) در این توییت نوشت: از برادران عزیز آقایان زاکانی و قاضی‌زاده هاشمی که مطالبات نیروهای انقلاب در راستای ایجاد ائتلاف و وحدت را لبیک گفتند، تشکر می‌کنم.

روشنگری در خصوص پروژهٔ بازگشت به دههٔ نود و دفاع از میراث شهید رئیسی جز با مجاهدت آنها ممکن نمی‌شد. ‏تا آخر ایستاده‌ایم تا دولتی کارآمد و انقلابی تشکیل شود.

جمعه ۸ تیر ۱۴۰۳ روز انتخابات

محمدجواد ظریف در حسینیه جماران پس از انداختن رأی خود به صندوق در جمع خبرنگاران گفت: اگر حضور مردم گسترده باشد، مشخص می‌شود اقلیت و اکثریت چه کسانی هستند.

به گزارش ایسنا،‌ با مرور اخبار انتخاباتی شنبه - نهم تیر ۱۴۰۳ می‌خوانیم:

سخنگوی ستاد انتخابات کشور نتایج نهمین مرحله از شمارش آرای انتخابات چهاردهمین دوره‌ ریاست‌جمهوری را اعلام کرد و افزود: ۲۴ میلیون و ۵۳۵ هزار و ۱۸۵رای شمارش شده است که ترتیب آرا به شرح زیر است:

* مسعود پزشکیان: ۱۰ میلیون و ۴۱۵ هزار و۹۹۱ رای

* سعید جلیلی: ۹ میلیون و ۴۷۳ هزار و ۲۹۸رای

* محمدباقر قالیباف: ۳ میلیون و ۳۸۳ هزار و ۳۴۰رای

* مصطفی پورمحمدی: ۲۰۶ هزار و ۳۹۷رای

از جمع آراء تایید شده؛ پزشکیان ۴۲.۶ درصد، جلیلی ۳۸.۸ درصد، قالییاف ۱۳.۸ درصد پورمحمدی ۰.۸ درصد آرا را کسب کردند و میزان مشارکت در این دوره از انتخابات ۴۰ درصد بوده است.

و آقایان جلیلی و پزشکیان به دور دوم راه یافتند 

در مناظره اول دور دوم دوشنبه ۱۱ تیر ۱۴۰۳ ساعت ۹:۳۰ تا ۱۱:۳۰

پزشکیان گفته بود: نمی‌توان کشور را در قفس کرد و با دنیا رابطه نداشت، زندگی در قفس زندگی بخور و نمیر است، نمی‌توانیم مدام ارزان بفروشیم و گران بخریم. ما چاره ای غیر از ایجاد رابطه با خارج نداریم

مصاحبه با خانم باقرزاده سالیان خیلی پیش 

لطفا نظراتتان را در مورد حجاب اسلامی برای خوانندگان ما بفرمایید.

به نظر من «بهترین پوشش برای خارج از منزل ،چادر، است». البته شرعا پوشیدن انواع دیگر پوشش در صورتی که بدن را کامل بپوشاند و جذب و تنگ نباشد اشکالی ندارد.اما به طور کلی چادر ترجیح دارد.برای درون خانه کاملا متفاوت است.البته پوشش در هر شرایطی باید مطابق عفت اسلامی باشد.

۱۲ تیر ۱۴۰۳

نظر همسر شهید مهدی باکری درباره پزشکیان - جهان نیوز

 www.jahannews.com

۹ ساعت پیش · همسر شهید مهدی باکری: اگر آقامهدی امروز زنده بود، امکان نداشت به امثال پزشکیان رأی دهد

به گزارش سایت دیده‌بان ایران؛ فرشته روح‌افزا، استاد دانشگاه تهران و نماینده زنان ستاد انتخاباتی سعید جلیلی، گفت: در دولت پزشکیان مردان در ظاهر نهج البلاغه می‌خوانند و زنان ظاهرا محجبه هستند، اما باطن آن کاملا آمیخته با فرهنگ غربی است؛ رییس جمهور شدن پزشکیان نه تنها حجاب بلکه کل دین را مورد خطر جدی قرار می‌دهد.

وی افزود: با موفقیت پزشکیان در انتخابات پیش رو، مذهب از بین خواهد رفت. رییس جمهور شدن پزشکیان نه تنها حجاب بلکه کل دین را مورد خطر جدی قرار می‌دهد.

او ادامه داد: فرهنگ در موضوع خانواده و روابط زن و مرد بیچاره شده است و ۲۰ میلیون نفر در غرب پدر خود را نمی‌شناسند! در صورتی که ۴ سال پزشکیان در مسند قدرت قرار گیرد وضعیت خانواده و روابط نامشروع مانند غرب می‌شود

به گزارش خبرگزاری خبرآنلاین، این توئیت امیر حسین ثابتی ، نماینده مجلس و مشاور سعید جلیلی است که زنان بدون روسری را بدتر از "فاحشه" ها می داند و نگاه واقعی جریان پایداری را درباره پوشش زنان بیان می کند. او همچنین آنها را متهم کرده که پول می گیرند تا روسری بردارند و جامعه را به لجن بکشند!

نماینده جلیلی: اگر به زنی تعرض شد بخاطر حجاب اوست - تجارت نیوز

سیاسی ‹ tejaratnews.com

۵ روز پیش · مریم اشرفی گودرزی، نماینده ستاد جلیلی گفته اگر بی حجاب باشی و پسری به تو تعرض کرد تقصیر خود زن است

پراپرتی AppIcon

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

ویژگی AppIcon یک عبارت رشته ای است که نام فایل معتبر بیتمپ یا آیکون است ( شامل مسیر )

آسان ترین مسیر برای تنظیم این ویژگی استفاده از آپشن یا انتخاب Application Icon در باکس محاوره ای Access Options است . می توان با استفاده از ماکرو یا ویژوال بیسیک نیز تنظیم نمود.

ساخت پراپرتی  : 

expression .CreateProperty(Name, Type, Value, DDL)

Type : 

Constant	Value	Description
dbBigInt	16	Big Integer
dbBinary	9	Binary
dbBoolean	1	Boolean
dbByte	2	Byte
dbChar	18	Char
dbCurrency	5	Currency
dbDate	8	Date/Time
dbDecimal	20	Decimal
dbDouble	7	Double
dbFloat	21	Float
dbGUID	15	GUID
dbInteger	3	Integer
dbLong	4	Long
dbLongBinary	11	Long Binary (OLE Object)
dbMemo	12	Memo
dbNumeric	19	Numeric
dbSingle	6	Single
dbText	10	Text
dbTime	22	Time
dbTimeStamp	23	Time Stamp
dbVarBinary	17	VarBinary

Value : 

Sets or returns the value of an object. Read/write Variant

DDL :

A Variant (Boolean subtype) that indicates whether or not the Property is a DDL object. The default is False. If DDL is True, users can't change or delete this Property object unless they have dbSecWriteDef permission.

۵ تیر ۱۴۰۳ 

شعار مردم کرمان ( فرودگاه ) در بدو ورود نامزد ریاست جمهوری ۱۴۰۳ جناب آقای سعید جلیلی ( بعد از شرکت در راهپیمایی غدیر )

صلِّ علی محمد بوی رئیسی آمد

GHALIBAF.IR

سه‌سال مسکن رایگان به زوج های جوان

زمین رایگان به خانوارهای بی‌مسکن

دیوار انسداد مرز شرقی کشور

رشد حقوق با تورم

واردات خودرو

ضمانت:کارنامه من

UseAppIconForFrmRpt

فیلد از نوع تاریخ

Rapid Response Team

اگر فیلد را روی date/time تنظیم کنید فقط در آن بازه میشود وارد کرد نه ساعت 37:52 دقیقه برای اینکار دیتا تایپ فیلد را روی text قراردهید و برای ورود فقط عدد اجباری یا انتخابی از ویژگی input mask فیلد استفاده نمایید 

More Fields در اکسس 2013

Time24hour

اگر قالب ۲۴ ساعته در اکسس نمایان نشد به Setting خود سیستم مراجعه کنید مثل شکل زیر که اگر در زمان h کوچک بود  H بزرگ را جای آن تایپ می کنید.

اردیبهشت سال ۱۴۰۳ 

وی با اشاره به اینکه بعد از تشکیل پرونده و اخذ دستور قضایی، دستگاه کارت‌خوان و شماره‌حساب بانکی دست‌فروش مسدود شد، افزود: پس از دستگیری متهم، با بررسی کارت‌خوان و پرینت عملکرد فروشنده متهم که اقدام به فروش هندزفری می‌کرد، مشخص شد از اول فروردین ماه تا ۲۲ اردیبهشت‌ماه ۱۴۰۳ از کارت‌های بانکی حدودا ۳۷ مشتری مترو که بیشتر افراد سالخورده و ناتوان و اتباع خارجی بودند، مبلغ اضافه برداشت شده است.

به گفته سرهنگ کرمی راد، متهم به کلاهبرداری، در هر فقره مبلغ ۸۰۰ تا یک میلیون تومان از یک کارت عابربانک برداشت کرده که حدوداً مبلغ ۱۲۰ میلیون تومان شده است.

رییس پلیس مترو تهران اضافه کرد: متهم سابقه‌دار بود و پس از تکمیل پرونده جهت شناسایی سایر شاکیان به دادسرای ناحیه ۱۲ ارجاع داده شد.

وی با توصیه به شهروندان گفت: بهتر است مسافران تا حد امکان از دست‌فروشان مترو خرید نکنند و اگر خرید کردند در هنگام استفاده از کارت عابربانک، رمز خود را در اختیار فروشنده قرار ندهند و الزاما رسید تراکنش را از فروشنده دریافت کرده و نزد خود نگهداری کنند.

۳۰ اردیبهشت ۱۴۰۳ 

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

سانحه فرودسخت هلی کوپتر حامل رئیس جمهور در منطقه آذربایجان شرقی ( ۳۰ اردیبهشت ۱۴۰۳ ) ... اعزام نیروهای واکنش سریع یا به اجنوی RRT

تصویر دسته جمعی هیات عالی رتبه قبل از وقوع سانحه

برخورد با مانع : احتمالا هلی کوپترها در یک لاین پشت سرهم نبودند یا اینکه هلی کوپتر وسط ارتفاع کمتری داشته و یا شیفت به چپ داشته نسبت به جلویی و عقبی خودش ... روحشان شاد 

فرمانده سپاه عاشورا در خصوص تماس امام جمعه تبریز پس از سانحه بالگرد رئیسی گفت: حدود ساعت ۱۵:۳۰ ( سی ام اردیبهشت ۰۳ )  آیت‌الله آل‌هاشم تماس گرفت و گفت ما سانحه دیدیم کمک برسانید.وی افزود: در آن نزدیکی فقط یک BTS ( ایستگاه گیرنده و فرستنده پایه ) وجود دارد و نقطۀ تماس را باید در شعاع ۱۰ کیلومتری بیابیم.

یقینا عندربهم یرزقون اند، مردانی که در راه خدمت مردم و عزت جمهوری اسلامی ایران و مردم سربلند آن شبانه روز جهاد کردند. #شهید_جمهور

تاریخ شهادت ۱۴۰۳/۰۲/۳۱

مرگ در یک قدمی ماست و هر روز به ما سر می زند

مردم نیکوکار به نیکوترین پاداش عمل خود و زیادتیی (از لطف خدا) نایل شوند و هرگز بر رخسار آنها گرد خجلت و ذلت ننشیند، آنانند اهل بهشت و در آنجا تا ابد متنعّمند.

محل آرامگرفتن در مشهدا الرضا رواق دارالسلام 

از عجائب روزگار این که همان روز، سید ابراهیم رئیسی، پیام تسلیتی برای درگذشت "علامه علی کورانی" نوشته بود و این پیام، زمانی در سایت رئیسی و سپس در سایر رسانه ها منتشر شد که خود او نیز در سقوط بالگرد جان سپرده و پیکرش سوخته بود و کسی خبر نداشت.

بر اساس ادعای برخی صفحات مجازی، معاون اورژانس کشور گفته است: «ساعت دو بعد از ظهر یکشنبه همکاران ما چند بار از سمت یک سیگنال مشخص و ثابت تماس هایی داشتند از فردی که ادعا می کرده رئیس جمهور ایران است و بالگردش سقوط کرده اما همکاران ما گمان کردند او مزاحم تلفنی است و جواب او را ندادند». پیگیری ها از روابط عمومی اورژانس کشور مشخص کرد ادعای صفحات مجازی مبنی بر مصاحبه معاون این سازمان صحت نداشته و نقل قول منتشره ساختگی است.

 شهید سردار موسوی سرتیم حفاظت رئیس جمهور بعد از این ماجرا به من گفت اگر می شود به رهبر انقلاب بگویید به آقای رئیسی امر کند مقداری استراحت کند. او حتی فرصت در آمدن خستگی از بدن را نداشت. ما با شخصیتی مواجه بودیم که خستگی را خسته کرده بود..... تلاش به چه قیمتی ؟!!!

ساخت ایالات متحده

تصاویر بدون شهدای کادر پروازی 

انتخابات زود هنگام ریاست جمهوری بعد از شهادت حاج آقا رئیسی 

در نظر داشته باشیم کار شورای نگهبان هم در این دوره برای قلع و قمع نامزدها دشوار است چون در ۱۴۰۰ قرار بود هر که قابلیت رقابت با مرحوم حجت‌الاسلام رییسی را دارد حذف شود و تفاوتی نمی‌کرد آن شخص علی لاریجانی باشد با سابقهٔ ۱۲ سال ریاست مجلس شورای اسلامی و ۱۰ سال ریاست سازمان صدا وسیما و یک بار کاندیداتوری انتخابات در سال ۱۳۸۴ یا اسحاق جهانگیری معاون اول رییس جمهوری در همان زمان برگزاری انتخابات با سابقه نامزدی یا مسعود پزشکیان و علی مطهری که برای مجلس تأیید شده بودند.

مدیران بانک سرمایه 

براساس کیفرخواست دادستانی، بازگردانده نشدن ۹۴ درصد تسهیلات پرداخت شده، اتلاف نزدیک به سه هزار میلیارد تومان، ثبت ده‌ها شرکت کاغذی و پرداخت وام به نام آن‌ها، دریافت غیرقانونی ۶۰۰ میلیارد تومان تسهیلات بانکی به نام کارتن‌خواب‌ها، و بیش از ۲۵۰ میلیارد تومان به نام مستخدم منزل و کارگر مغازه، گران نمایی وثیقه‌ها، حق مأموریت ۴۸۰ میلیون تومانی، دستمزد ۱٫۵ میلیارد تومانی از جمله موارد بررسی این پرونده است. متهمان بانک سرمایه شرایط دریافت وام به اسم برخی کارتن خواب‌ها را فراهم می‌کردند. 

خرداد ۱۴۰۳ 

زیار افزود: متاسفانه در هنگام ورود خانواده‌ها برای انجام مراسم خاکسپاری، تعدادی از دلالان در کنار اطراف بهشت زهرا(س) مستقر هستند و با دلال‌بازی هزینه‌های بسیار زیادی را از خانواده‌ها جهت انجام مراسم دریافت می‌کنند. به عنوان مثال این دلال‌ها صندلی‌ها را از بهشت زهرا(س) با هزینه ۹ هزار تومان رزرو و از خانواده‌ها ۱۵ هزار تومان دریافت می‌کنند.

وی افزود: خانواده‌ها می‌توانند از طریق سامانه ۱۸۸۸ و شماره تماس [phone] موضوعات را پیگیری کنند.

اجرای زوم در پیش نمایش گزارش در اکسس

Dim stDocName As String

    stDocName = "rptEmployees"
    DoCmd.OpenReport stDocName, acPreview
    DoCmd.Maximize
    DoCmd.RunCommand acCmdZoom25

اسفندماه ۱۴۰۲ 

بازنشسته محترم

سلام

احتراماً؛ کانون عالی کارگران بازنشسته و مستمری بگیران تامین اجتماعی کشور با هدف تقویت توان مالی بازنشستگان گرامی، فرآیند ایجاد شرکت تعاونی بازنشستگان و سرمایه گذاری در سهام شرکتهای ارزشمند را در دست اقدام دارد. فرآیند مزبور از طریق شرکت در مزایده سهام با اعطای حداکثر 15 میلیون تومان تسهیلات بانکی در دو نوبت و خرید قسطی به ترتیب 2 و 5 ساله با نرخ مصوب شورا پول و اعتبار به اعضاء و یک میلیون تومان آورده نقدی قابل کسر ازمستمری اسفند ماه محقق خواهد شد.در صورت عدم موافقت با عضویت در شرکت تعاونی در حال تشکیل و سرمایه گذاری عنوان شده عدد 11را به شماره 9207772026 پیامک نمائید.

کانون عالی کارگران بازنشسته و مستمری بگیران تامین اجتماعی کشور

اجرای جعبه زوم در اکسس

RunCommand acCmdZoomBox

اگر طول کاراکتر وارد شده در تکست باکس بیشتر از ۱۰ شد این باکس اجرا شود ( رویداد GotFocus )

خطر دیابت را کم می‌کند

نوشیدن هر روزه چای سیاه می‌تواند خطر دیابت نوع ۲ را با کمک به کنترل قند خون بعد از خوردن غذا کم کند. بر اساس مطالعه‌ای که در مجله تغذیه بالینی آسیا و اقیانوسیه منتشر شده است، چای سیاه می‌تواند قند خون را به خصوص بعد از خوردن غذاهای حاوی ساکارز پایین بیاورد.

دندان‌ها را قوی‌تر می‌کند

وقتی چای می‌نوشید، ممکن است دندان‌هایتان کمی زرد شود، اما ارزشش را دارد. بر اساس مطالعاتی که در مجله آسیب‌شناسی دهان و فک و صورت منتشر شده است، چای سبز تأثیرات آنتی باکتریال دارد که می‌تواند باعث کاهش تشکیل حفره باکتریایی در دهان شما شود. نوشیدن هر روزه چای سبز می‌تواند از تشکیل این حفره‌ها جلوگیری کند.

قلبتان از شما تشکر می‌کند

خواص ضد التهابی چای می‌تواند رگ‌های خونی را پاک کند تا فشار کم‌تری به قلب وارد شود. دکتر کائوری می‌گوید کاتچین التهاب را کاهش می‌دهد و در نتیجه تشکیل پلاک در شریان‌های حیاتی را مهار می‌کند. او نوشیدن ۳ فنجان چای سیاه در روز را برای فوایدش برای قلب توصیه می‌کند

چک کردن کنترل های یک فرم و تغییر رنگ تکست باکس موجود

Use the ForeColor property to specify the color for text in a control. Read/write Long.

For intI = 0 To Forms("Employes").Controls.Count - 1

 Set ctl = Forms("Employes").Controls(intI)

 If TypeOf ctl Is TextBox Then

 ctl.ForeColor = vbRed

 ctl.FontItalic = True

 ctl.FontBold = True

 End If

Next intI

تغییر قالب تاریخ و ساعت در تکست باکس اکسس

=Format(Now(), "dd/mm/yyyy hh:nn:ss")

شئ Screen

that's not surprising to me

فروردین ماه ۱۳۹۳ خبری در رسانه‌ها منتشر شد که بر اساس آن اعضای هیئت مدیرهٔ بانک گردشگری در آخرین جلسه مجمع عمومی خود، مبلغ ۲۰۰ میلیون تومان به اعضای مجمع پاداش داده‌اند. در صورتجلسهٔ مجمع عمومی شرکت بانک گردشگری که در تاریخ ۱۹ فروردین ماه آن سال ( ۹۳ ) برگزار شد، آمده بود: مقرر گردید دو میلیارد ریال به عنوان پاداش به اعضای هیئت مدیره پرداخت شود. همچنین در این صورتجلسه که به امضای محمدصادق طاهری به عنوان رئیس‌هیئت مدیره و همچنین مهدی جهانگیری و علی زیرک نژاد به عنوان ناظر نیز رسیده، مقرر گردیده ماهانه ده میلیون ریال به اعضای هیئت‌مدیره به عنوان حق حضور در جلسه پرداخت شود.

تُف به این مملکت بی ناظر

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

Properties 

• ActiveControl
• ActiveDatasheet
• ActiveForm
• ActiveReport
• Application
• MousePointer
• Parent
• PreviousControl

MsgBox Screen.ActiveForm.Name

                                                                        .Caption

۲۱ دی ۱۴۰۲ · آموزش و پرورش در آزمون استخدامی به هیچ عنوان مدرک دیپلم جذب نمی‌کند اما در کنکور فرهنگیان یعنی کنکور تخصصی تعلیم و تربیت، دانشجومعلم با مدرک ...

۲۶ فروردین ۱۴۰۳ 

( حمله ایران به اسرائیل )

مسکو- ایرنا- رئیس مرکز خاورمیانه موسسه مطالعات استراتژیک روسیه گفت: هرچند اسرائیل می‌گوید که به حمله ایران پاسخ خواهد داد اما به نظر من، ماجراجویی‌های تل‌آویو توسط ایالات متحده که مطلقا به جنگ جدیدی نیاز ندارد،‌ مهار خواهدشد چرا که به انتخاب مجدد جوبایدن به ریاست‌جمهوری آمریکاآسیب می‌زند.

اطلاعیه فوری فرودگاه بین المللی امام خمینی (ره)

رکنا اقتصادی: مدیرعامل شرکت شهر فرودگاهی امام خمینی (ره) گفت: تا ۶ صبح فردا ( دوشنبه ) کلیه پروازها لغو شده است.

شی TempVars برای ذخیره داده بصورت موقت و استفاده در سایر آبجکت ها

در دیدار تشکلات دانشجویی قضیه قرارگیری افراد در  اسکافُلد اول و دوم و جمعیت عادی در پشت آنها چیست ... روسای تشکیلات در اسکافُلد اول قرار میگیرند یا آقازاده های دانشجو

.

مجموعه TempVars می تواند تا 255 شی TempVar را ذخیره کند. اگر یک شی TempVar را حذف نکنید، تا زمانی که پایگاه داده را ببندید در حافظه باقی می ماند. این یک تمرین خوب برای حذف متغیرهای شی TempVar پس از پایان استفاده از آنها است.

User Form
Button : Command1
Event : OnClick
Dim TempLogin As TempVars
TempVars!TempLogin=txtUser.Value


Main Form
Event : OnLoad
Text : txtLogin
Me.txtLogin=TempVars!TempLogin


strSearch=Me.txtSearch.Value
task="Select * From tbl_Search Where CustomerName Like '*" & strSearch & "*'"
Me.RecordSource=task

Temporary variables are global. Once a temporary variable has been created, you can refer to it in an event procedure, a Visual Basic for Applications (VBA) module, a query, or an expression. For example, if you created a temporary variable named MyVar, you could use the variable as the control source for a text box by using the following syntax:

=[TempVars]![MyVar]

ماکرو SetTempVar

-Condition : -

-Action : SetTempVar

-Arguments : 

--Name : MyVar

--Expression : InputBox("Enter a non-zero number:")

-Condition : [TempVars]![MyVar]<>0

-Action : MsgBox

-Arguments :

--Message  : "You entered " & [TempVars]![MyVar] & "."

--Beep : Yes

--Type : Information

-Condition : -

-Action : RemoveTempVar

-Arguments : 

--Name : MyVar

روش Requery داده‌های زیر یک فرم یا کنترل را به‌روزرسانی می‌کند تا سوابقی را که از آخرین بار درخواست شده در منبع رکورد جدید هستند یا از آن حذف شده‌اند، منعکس کند. روش Refresh فقط تغییراتی را نشان می دهد که در مجموعه رکوردهای فعلی ایجاد شده است. رکوردهای جدید یا حذف شده را در منبع رکورد منعکس نمی کند. روش Repaint به سادگی فرم مشخص شده و کنترل های آن را دوباره رنگ می کند.

روش Requery کنترل را به سیستم عامل نمی دهد تا به ویندوز اجازه دهد به پردازش پیام ها ادامه دهد. در صورت نیاز به واگذاری کنترل موقت به سیستم عامل از عملکرد DoEvents استفاده کنید.

فرمان Requery سریعتر از عمل Requery است. هنگامی که از عملکرد Requery استفاده می کنید، مایکروسافت اکسس پرس و جو را می بندد و آن را دوباره از پایگاه داده بارگیری می کند. هنگامی که از فرمان Requery استفاده می کنید، اکسس پرس و جو را بدون بستن و بارگذاری مجدد اجرا می کند.

مهدی رفسنجانی - تاجر ایرانی 

در سال ۲۰۰۷ مدیرعامل و چند کارمند شرکت نفتی توتال توسط مقامات قضایی فرانسوی به اتهام پرداخت حدود ۶۰ میلیون یورو رشوه به مقامات ایرانی برای مشارکت در احداث میدان گازی پارس جنوبی بازداشت شدند و نام مهدی هاشمی به عنوان فردی که بخشی از این مبلغ را دریافت کرده مطرح شد. توتال در سال ۱۹۹۷ به همراه شرکت گازپروم روسیه و پتروناس مالزی در مناقصه احداث این میدان گازی پیروز شده‌بود و در سال ۲۰۰۴ پلیس سوئیس متوجه شده بود که حدود ۷٫۸ میلیون یورو از اموال شرکت توتال به حساب یک ایرانی مقیم سوئیس واریز شده که به گفته رسانه‌های فرانسوی از کارمندان مهدی هاشمی رفسنجانی است.

چند ثانیه ۲۴-۱-۱۴۰۳

۲۱ دی ۱۴۰۲ · آموزش و پرورش در آزمون استخدامی به هیچ عنوان مدرک دیپلم جذب نمی‌کند اما در کنکور فرهنگیان یعنی کنکور تخصصی تعلیم و تربیت، دانشجومعلم با مدرک ...

۲۶ فروردین ۱۴۰۳ 

( حمله ایران به اسرائیل )

مسکو- ایرنا- رئیس مرکز خاورمیانه موسسه مطالعات استراتژیک روسیه گفت: هرچند اسرائیل می‌گوید که به حمله ایران پاسخ خواهد داد اما به نظر من، ماجراجویی‌های تل‌آویو توسط ایالات متحده که مطلقا به جنگ جدیدی نیاز ندارد،‌ مهار خواهدشد چرا که به انتخاب مجدد جوبایدن به ریاست‌جمهوری آمریکاآسیب می‌زند.

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

۲۷ فروردین ۱۴۰۳ 

ژیلا صادقی مجری سرشناس تلویزیون که در روزهای گذشته حاشیه‌های زیادی درباره نحوه پوشش او در برنامه های تلویزیونی مطرح بود اعلام کرد: شهروند آمریکا هستم.

تخمه آفتابگردان سرشار از مواد مغذی است که قلب شما دوست دارد. این شامل فیبر، ویتامین ها، چربی های سالم و مواد معدنی است. تحقیقات نشان می‌دهد که رژیم غذایی سرشار از دانه‌ها می‌تواند به سلامت قلب شما کمک کند و ممکن است ( نه حتمی ) از بیماری‌های قلبی محافظت کند.

زقوم، خوراک گناهکاران است که مثل فلز گداخته در درون آنان جوشان است، همچون جوشیدن آب داغ.

إِنَّهَا شَجَرَةٌ تَخْرُجُ فِی أَصْلِ الْجَحِیمِ

آن درختى است که از قعر آتش سوزان مى ‏روید (۶۴)

طَلْعُهَا کَأَنَّهُ رُءُوسُ الشَّیَاطِینِ

میوه‏ اش گویى چون کله ‏هاى شیاطین است (۶۵)

فَإِنَّهُمْ لَآکِلُونَ مِنْهَا فَمَالِئُونَ مِنْهَا الْبُطُونَ

پس [دوزخیان] حتما از آن مى ‏خورند و شکمها را از آن پر مى کنند (۶۶)

فرمان SetOrderBy

پیامبر گفت: خداوند، آدم را آفرید که قامتش، شصت ذراع(٣۰ متر) بود

Humans are always changing

برای انجام مرتب سازی در دیتاشیت ، فرم ، گزارش یا جدول فعال 

نوشتاری : 

expression.SetOrderBy (OrderBy, ControlName)

OrderBy

A string expression that includes the name of the field or fields on which to sort records and the optional ASC or DESC keywords.

ControlName

If provided and the active object is a form or report, the name of the control that corresponds to the subform or subreport that will be sorted. If empty and the active object is a form or report, the parent form or report is sorted.

۲۱ اسفند ۱۴۰۲ 

چند روز قبل عنوان شد که مسعود درستی مدیرعامل این شرکت وابسته به شهرداری تهران پس از آنکه نامش به علت برخورد با زنان بی‌حجاب در مترو وارد فهرست تحریم‌های کانادا شده، از سمت خود استعفا داده است.

شایعات همچنین حاکی از بگومگوی وی با زاکانی و اعتراض متقابل شهردار انقلابی به این مدیر مترو بود که اوضاع اسفناک حوادث و سوانح در مترو باعث اعتراضات گسترده به زاکانی در شورا، محافل سیاسی و رسانه‌ها شده است.

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

اسفند ۱۴۰۲ : 

طبق آنچه در سایت یاشار سلطانی آمده، حوزه علمیه امام خمینی در منطقه ازگل تهران که تحت تولیت آیت الله صدیقی اداره می شود، باغی به مساحت 4200 متر داشته است که قیمت روز آن، حدود 1000 میلیارد تومان برآورد می شود.

اما آبان امسال، شرکتی به نام "موسسه غیر تجاری پیروان اندیشه های قائم" ثبت می شود و بعد از آن، اسناد مالکیت این باغ گرانبها به نام این شرکت می شود.

مالکان این شرکت آیت الله صدیقی و چند تن از پسران و دوستان او هستند و عروسش نیز بازرس شرکت است.

ایشان طی نامه ای به دادستان تهران که در رسانه ها هم منتشر شده، توضیحاتی در این باره  داده و نوشته است که امضای او و دیگران را "برای ثبت موسسه"  جعل کرده اند ولی توضیحی درباره نحوه تملک باغ توسط این موسسه نداد.

عبدالله گنجی در شبکه ایکس و در واکنش به نامه کاظم صدیقی به دادستان تهران نوشت:

«نامه حاج آقا صدیقی را حمل بر صحت می‌گذارم علت‌اش این است که پذیرفته است که مدیریت خودش اشکال دارد و آماده پاسخگویی قضایی است و به توجیه و جدل در موضوع روی نیاورده است؛ لذا افشاکننده با هر نیت که سوت زده باشد باید اول توسط خود صدیقی مورد تقدیر قرار گیرد.»

۳ فروردین ۱۴۰۳ : 

حوزه علمیه امام خمینی بیانیه جدید داد: صدیقی شخصا سند انتقال باغ را امضا کرده است اما نمی دانست دارد به خود و پسرانش منتقل می کند. مراحل اداری برگشت به حوزه در حال انجام است .

عباس عبدی، فعال سیاسی اصلاح طلب در شبکه اجتماعی ایکس نوشت: «حوزه آقای صدیقی در بیانیه دوم، دوباره بر جعل امضا تاکید کرده است. اگر این ادعا درست باشد به منزله تخلف دفترخانه رسمی نیز هست. ولی عجیبه که سازمان ثبت سکوت کرده و از خود هیچ دفاعی نمی‌کند. اگر کس دیگری چنین اتهامی را علیه آنان می‌زد فوری واکنش نشان می‌دادند.»

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

متولد سال ۱۲۶۷ شمسی بود و نامش «میرزا احمد عابد نهاوندی» بود و چون با مردم به زبان شعر و اندرز سخن می‌گفت و اهل‌دل بود به «حاج مرشد» مشهور بود و چون یکی از قدیمی‌ترین چلوکبابی‌های تهران را داشت به «مرشد چلویی» مشهور بود و شاعر هم بود و تخلصش «ساعی» بود و شعرش این بود که: «کو آن کسی که کار برای خدا کند؟/ بر جای بی‌وفایی مردم وفا کند/ هر چند خلق سنگ ملامت بر او زنند/ بر جای سنگ نیمه‌ شب‌ها دعا کند».

هرگاه کودک یتیمی گریه کند اشک‌های او در کف پر مهر و محبّت خداوند رحمان می‌ریزد و خدای تعالی می‌فرماید: چه کسی این یتیمی که پدرش را از دست داده (و اکنون زیر خاک آرمیده) به گریه درآورده است؟ هر کس او را آرام کند بهشت از آن اوست

خداى متعال در آیه 22 سوره اعراف مى فرماید: «همین که آدم و همسرش از آن درخت ممنوع چشیدند، بلافاصله لباس هایشان از تنشان فرو ریخت و اندامشان آشکار گشت». از این آیه به خوبى استفاده مى شود که آنها قبل از ارتکاب این خلاف، برهنه نبودند بلکه پوششى داشتند که نشانه اى براى شخصیت آدم و حوا و احترام آنها محسوب مى شده که با نافرمانى از اندامشان فرو ریخته است. 

Microsoft Office Object Library refrences

There is an alternate location where the MSO.dll file can be found:

C:\Program Files (x86)\Common Files\microsoft shared\oFFICE11

ویژگی IsLoaded برای بررسی لود شدن شئ AccessObject

رائفی پور به قالیباف: چرا پسرتان (اسحاق) به دنبال اقامت کانادا است؟ /میزان سرمایه گذاری فرزندتان در کانادا و هزینه های دریافت اقامت دائم را اعلام کنید

نوشتاری : 

expression.IsLoaded

expression A variable that represents an AccessObject object.

توضیحات : 

The IsLoaded property uses the following settings.

Yes/True(VB) : 

The specified AccessObject is loaded.

No/False(VB) : 

The specified AccessObject is not loaded.

 بخشی از اشیاء در AccessObject

Form                          AllForms                   Saved forms

Function             AllFunctions       Saved functions

Macro                   AllMacros            Saved macros

Madoule           AllModules          Saved Modules

Query                  AllQueries            Saved queries

Report               AllReports           Saved reports

The CurrentProject property setting contains a reference to the CurrentProject for the current code database.

This property is available only by using Visual Basic  and is read-only.

Remarks

Use the CurrentProject property to refer to one of the following current database collections together with one of its properties or methods.

AllForms

AllReports

AllMacros

AllDataAccessPages

AccessObjectProprties

AllModules

بهمن ۱۴۰۲ : پیگیری دادستانی منجر به برداشتن طرح شد

منظور : لیوان شخصی است Don't touch

نکته‌ی قابل تامل در میان پاسخ‌های دریافتی، نگاه بیش‌تر مثبت آن‌ها بود؛ پاسخی که به نظر می‌رسد امروز متفاوت باشد، هرچند که برای اطمینان حتما باید یک نظرسنجی دوباره انجام داد.

 

به هر روی مرد از نگاه زنان جوان دهه‌ی ۴۰ این‌گونه بود:

 

اقدس یسیری، خانه‌دار، اصفهان: مرد موجودی است دوست‌داشتنی، البته اگر عصبانی نشود، عیاشی نکند و به حرف مادرش گوش ندهد.

 

رباب علایی،‌خانه‌دار، تهران: مرد خوب، نعمت بهشت است و مرد بد عذاب جهنم.

 

فتانه توصیفیان، خانه‌دار، اصفهان: مرد مانند خورشید است؛ نور می‌دهد، حرارت می‌بخشد و می‌سوزاند.

مهین امیرعظیمی، دانشجو، تهران: خداوندا، هیچ زنی را در این دنیای سرگردان بدون مرد سرگردان نکن.

عزت سروری، خانه‌دار، تهران: مرد بد در دنیا وجود ندارد، زنان مهربان و خوب بهتر می‌توانند این حقیقت را درک کنند.

 

نصرت طلاچی، خانه‌دار، تهران: مرد موجودی است که نه دوستی‌اش معلوم است، نه دشمنی‌اش. از دوری زن رنج می‌برد و از نزدیکی‌اش عذاب.

 

زری رحمانی،‌ خانه‌دار، شیراز: مرد افتخار خلقت بشری است، زیرا از موجودات دیگر استوارتر، کوشاتر، صبورتر، باگذشت‌تر و قابل اعتمادتر است.

 

اقدس شهیدی، آموزگار، اصفهان: مرد چون آب پاکی است که در هر ظرف به رنگ آن درمی‌آید.

بهمن ۱۴۰۲

محسن نجفی خواه معاون هماهنگی و برنامه‌ریزی امور حقوقی دستگاه‌های اجرایی موضوع تلاش دولت برای حل مشکلات ناترازی صندوق های بازنشستگی را پیش کشید و با اشاره به کاهش باروری و افزایش امید به زندگی،‌ چنین گفت: سبک زندگی و شرایط حاکم بر کشور به گونه ای است که سن امید به زندگی در جامعه افزایش یافته است.

البته باید بگم امید به زندگی مجلسیا با این درآمداشون زیاد شده با بهترین بیمه تکمیلی و مزایای دولتی

با سلام و احترام

مشتری عزیز مجموعه دیجی کالا همواره از بازخوردهای مشتریان استقبال و در جهت بهبود عملکرد شرکت استفاده میکند.
نظراتی که در مورد یک کالا ثبت می‌کنید بر اساس قوانین ""ثبت نظر"" بررسی، تایید و یا رد می‌شوند.
توجه فرمایید بخش نظرات کاربران به اشتراک گذاشتن تجربه استفاده از آن محصول می باشد، که مشتریان دیگر بتوانند از تجربه سایر مشتریان در راستای انتخاب درست کالا استفاده کنند.
در صورتی‌که کالا ایراد ظاهری یا فنی و مغایرتی داشته باشد طبق قوانین امکان مرجوعی وجود دارد.

اسفند ۱۴۰۲

۱-عباس ایروانی

 عباس ایروانی در این پرونده به اتهام اخلال عمده در نظام اقتصادی کشور با توسل به قاچاق سازمان یافته و حرفه‌ای قطعات خودرو به صورت عمده و کلان به میزان بیش از ۶۶۴ میلیون دلار و رهبری گروه مجرمانه سازمان یافته قاچاق قطعات خودرو به تحمل ۲۵ سال حبس و ضبط کلیه اموالی که متهم از طریق خلاف قانون به دست آورده، محکوم شده است و به اتهام معاونت در جعل اسناد به تحمل ۸ ماه حبس و جبران خسارت وارده، به اتهام معاونت در استفاده از اسناد مجعول به تحمل ۲ سال و ۱ ماه حبس، به اتهام معاونت در پرداخت رشوه به تحمل ۲ سال و ۱ ماه حبس و به اتهام مشارکت در فرار دادن حامد خاتمی‌پور به تحمل ۱ سال و ۱ ماه حبس محکوم کرده است.

۲۶ فروردین ۱۴۰۳ 

( حمله ایران به اسرائیل )

مسکو- ایرنا- رئیس مرکز خاورمیانه موسسه مطالعات استراتژیک روسیه گفت: هرچند اسرائیل می‌گوید که به حمله ایران پاسخ خواهد داد اما به نظر من، ماجراجویی‌های تل‌آویو توسط ایالات متحده که مطلقا به جنگ جدیدی نیاز ندارد،‌ مهار خواهدشد چرا که به انتخاب مجدد جوبایدن به ریاست‌جمهوری آمریکاآسیب می‌زند.

Option Group در اکسس ( انتقال فوکس به کنترل تکست باکس )

اسفند ۱۴۰۲  درمانگاه قم  ( درگیری یک خانم با روان ناسالم با یک آخوند بعلت عکس گرفتن از وی )  از وی بعنوان هنجارشکن گستاخ یاد شده !!!

رائفی پور به قالیباف: چرا پسرتان (اسحاق) به دنبال اقامت کانادا است؟ /میزان سرمایه گذاری فرزندتان در کانادا و هزینه های دریافت اقامت دائم را اعلام کنید

یک Option Group در یک فرم یا گزارش یک مجموعه محدودی از انتخاب ها را نمایش می دهد . باعث می شود انتخاب راحتی داشته باشید ( با تعریف انتخاب های مد نظر ) چرا که آنچه را می خواهید می توانید انتخاب کنید.تنها یک Option یا گزینه در هر گروه قابل انتخاب است . 

توضیحات : 

یک Oprtion Group شامل یک قالب گروه و مجموعه ای از CheckBox ها ، toggle button ها و یا option button هاست.

اگر یک Option Group به یک فیلد محدود ( مرتبط ) شود ، تنها قالب گروه ( frame ) به تنهایی به فیلد محدود می شود نه به باتن های داخل قالب . بجای تنظیم پراپرتی ControlSource برای هر کنترل در Option Group ، پراپرتی OptionValue هر کنترل را به شماره هدفمند برای فیلدی که frame به آن محدود شده است تنظیم کنید. زمان انتخاب یک گزینه ( Option ) در گروه ، مایکروسافت اکسس مقدار فیلد 

وقتی گزینه ای را در یک گروه  انتخاب می کنید، مایکروسافت اکسس مقدار فیلدی را که گروه به مقدار پراپرتی OptionValue گزینه انتخاب شده محدود شده است را تعیین می کند.

تبصره : 

ویژگی یا پراپرتی Option Value به شماره ای  مختص می شود بدلیل اینکه مقدار گروه گزینه یا option group باید فقط یک شماره باشد نه متن ( text ) . اکسس این شماره را در جدول مرتبط ذخیره می کند.

یک option group همچنین می تواند به یک عبارت یا expression تنظیم شود . یک گروه گزینه یا option group را در یک کادر محاوره ای برای پذیرش ورودی کاربر بکار برید و سپس یک عمل یا action روی ورودی انجام دهید.

در شکل زیر frame همان کپشن لیبل Gender ( جنسیت ) است ، همانطور که در شکل می بینید  برای گزینه آخر در تب یا برگه داده ( Data ) ویژگیهای مقدار گزینه ، فعال بودن یا نبودن و قفل کردن یا نکردن موجود است ( در Enabled حالت فعال بودن یا نبودن [ خاکستری ] را تنظیم می کنید ) 

در رویداد AfterUpdate این گروه گزینه ( option group [ با شماره مشخص شده که می توانید حتی آنرا عوض کنید ] )  می توانید بگوئید اگر فرضا پراپرتی OptionValue برابر عدد یک بود کرسر در تکست باکس مورد نظرتون فعال شود . ( متد SetFocus تکست باکس ) 

اگر برای هر گزینه داخل frame ، تکست باکس در فرم موجود باشد : 

OnAfterUpdate

C%=expr.OptionValue

Controls("txt" & C).SetFocus

آقازاده حضرت قالیباف 

..... تومان طلا و سکه ربوده شده است.

اقتصاد 24 همچنین نوشت ، این را هم مدنظر بگیرید که قیمت سکه در مهر ۱۴۰۰، ۱۱ میلیون تومان بوده و امروز ۳۲ میلیون تومان است. یعنی آن روز فقط یکی از فرزندان آقای قالیباف، صرفا در گاوصندوق منزل فرمانیه خود نزدیک به ۷ کیلوگرم طلا یا ۱۲۰۰ نیم سکه بهار آزادی داشته است.

شنیده شده پدر (رئیس مجلس) به محض اطلاع از ثبت شکایت پیگیر شده که به دلایل سیاسی، پرونده را از کلانتری و فراجا خارج کند که دیگر دیر شده و در سامانه ثبت شده بود.

الیاس قالیباف، پسر ارشد محمدباقر قالیباف ، فارغ التحصیل مدیریت بازرگانی در مقطع کارشناسی از یکی از دانشگاه‌های مالزی است.

الیاس قالیباف در سال ماه ۱۳۸۶ با دختر یکی از فرماندهان سپاه ازدواج کرد.

182 سیب را بین 3 نفر به نسبت های یک چهارم،دو سوم،سه پنجم تقسیم کردیم،به هریک چند سیب میرسد؟

۱-جمع نسبت ها

۲- عدد ۱۸۲ تقسیم بر جواب ۱

۳-عدد مرحله ۲ را به ترتیب در ۱/۴ و ۲/۳ و ۳/۵ ضرب می کنیم 

جمع اعداد بدست آمده باید ۱۸۲ شود.

۹ بهمن ۱۴۰۲ ( کاهش ساعات کاری کارمندان دولت )

حسینعلی حاجی دلیگانی در مخالفت با این درخواست بیان کرد: اولویت امروز کشور بحث معیشت مردم می‌باشد و بحث ساعت کار اداری از اولویت‌های بعدی است. تعیین و پیگیری دستمزد کارگران و اعتماد سازی اولویت امروز نظام است، نظام خدمات زیادی داشته است که برخی افراد در تلاش هستند تا به آن خدشه وارد کنند.

وی در ادامه اظهار کرد: افزایش قیمت گوشت و سایر کالاها از اولویت‌های دیگری است که ما باید به آن رسیدگی کنیم. همه کارکنان دولت شریف هستند اما آیا همه ملت ایران کارمندان دولت هستند که ما اکنون دو روز در هفته را تعطیل کرده و چهار ساعت از ساعت کاری را کاهش دهیم. آنگاه جواب کارگران را چه باید بدهیم؟ کشور امروز نیاز دارد که فرهنگ کار را تقویت کنیم چرا که همه کشورهای پیشرفته به این سمت رفته اند.

بهمن ۱۴۰۲ ( پنجشنبه مبعث رسول ، یکشنبه ۲۲ بهمن ) - چهارشنبه ساعت ۱۵ بازی قطر و ایران

بهمن ۱۴۰۲ : پیگیری دادستانی موجب برداشتن طرح از سایت دیجی کالا شد

بهمن ۱۴۰۲ 

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

وی توضیح داد: شهروندان می‌توانند هنگام خرید نوشیدنی‌ها، شماره ۱۰ رقمی ذیل نشان استاندارد را به سامانه ۱۰۰۰۱۵۱۷ پیامک کرده و از صحت و اعتبار نشان استاندارد آن اطمینان حاصل کنند.

بهمن ۱۴۰۲ 

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

به گزارش همشهری آنلاین، شریفیان گفت: در حال حاضر همه انگشت اتهامشان به سمت سلبریتی‌ها و تبلیغات چی‌ها دراز شده است. دولت تماس گرفته که باید برگردم و پول‌ها را به این افراد برگردانم. آیا پدیده شاندیز که بار‌ها صداوسیما تبلیغاتش را کرد، صداوسیما پول مردم را پس داد؟ ما در برابر امثال مدیرعامل چای دبش سر سوزنی هم شبیهشان نیستیم.
او گفت: تعداد سلبریتی‌هایی که تبلیغ کوروش کمپانی را کرده اند حدود ۴۰۰، ۵۰۰ نفر بوده اند و رقم‌هایی دریافتی برای تبلیغ از یک میلیون تومان بوده تا ۱۵، ۲۰ میلیون تومان! به عنوان مثال بازیکن تیم ملی ۲۰ میلیون تومان گرفته و تبلیغ کرده است. چون ما یک دوستی قدیمی با هم داشتیم. ولی به کسی اصلا ۲۰۰، ۳۰۰ میلیون تومان پولی نداده ایم.

خانم الهام حمیدی ، بازیگر برجسته کشورمان، ضمن عذرخواهی بابت اتفاقات اخیر، پیرامون کمپانی کلاهبردار کوروش کمپانی، اعلام داشت پول دریافتی از کمپانی که به خاطر تبلیغات گرفته بود را به شماره حسابی که مراجع قضایی اعلام داشت، واریز کرد.

کد خبر: ۲۲۹۲۱۷   تاریخ انتشار : ۱۴۰۲/۱۲/۰۱

آذر تا بهمن 1402 قرار بود حاجیها اعزام شوند ولی با کارشکنی  دولت عربستان (قاتل کودکان یمن )  و بهانه های امنیتی کنسل  و پول به حساب معترضین واریز شد

۱۸ اسفند ماه ۱۴۰۲ 

به گزارش خبرآنلابن به نقل از تاس، سفارت آمریکا در مسکو با انتشار بیانیه‌ای به شهروندان این کشور در روسیه هشدار داد که طی ۴۸ ساعت آینده از ورود به مراکز پرجمعیت و جمع‌شدن‌های غیرضروری خودداری کنند، زیرا «افراط‌گرایان» در حال برنامه‌ریزی برای انجام حمله‌هایی در شهر مسکو هستند.

در بیانیه سفارت آمریکا که در وب‌سایت این سفارت قرار گرفته آمده است که «سفارت در حال رصد گزارش‌هایی است که نشان می‌دهد افراط‌گرایان برنامه‌های قریب‌الوقوعی برای هدف قرار دادن تجمعات بزرگ در مسکو از جمله کنسرت‌ها دارند و باید به شهروندان آمریکایی توصیه شود که از حضور در تجمعات بزرگ در ۴۸ ساعت آینده خودداری کنند.»

لوپ در اکسل ( پر کردن اطلاعات در شیت گزارش )

در شکل بالا در تصویر اول در یک شیت مجزا اطلاعاتی از قبیل تاریخ ،شماره شناسایی مشتری و یک ستون پرداخت ( بصورت Yes و No ) پر شده ....  در تصویر زیر آن قرار است در ستون های عنوان هر شماره شناسایی مشتری طبق سالی که پرداخت کرده تعداد یا کانت Yes یا No درج گردد.

۱-گرفتن شماره ردیف آخرین داده واردشده در ستون ۱ ، اگر داده خالی وجود داشته باشد شماره ردیف ماقبل آنرا را باز می گرداند پس به این نکته دقت کنید تا ستونی را انتخاب کنید که حتما تمام ردیف های آن پر باشد.

lastRow=Sheets("Data").Cells(Rows.Count,1).End(xlUp).Row

۲-معرفی آرایه پویا :

Dim Arr() 

ReDim Arr(lastRow-2,1)

۳-شماره رکورد اول در آرایه :

Num=0

۴-ذخیره داده در آرایه :( شیت تصویر اول در شکل)

For L=2 To lastRow

If Sheets("Data").Range("C" & L)=Yes Then

Arr(Num,0)=Year(Sheets("Data").Range("A" & L)

Arr(Num,1)=Sheets("Data").Range("B" & L)

Num=Num+1

End If 

Next

کانت یا شمارش با لوپ زدن در آرایه :

Counter=0

For i=0 To Num-1

If Arr(i,0)=YEAR And Arr(i,1)=ID Then

Counter=Counter+1

Next

برای درج کانت یا شمارش Yes و No طبق ID  و سال Date در تصویر پائین شکل بالا باید لوپ های تودرتو ایجاد کرد.

For YEAR=2011 To 2026

For ID=1 TO 30

'here  use Counter

NEXT

'here display in cells ( Counter )

NEXT

لوپ اول در ردیف ها ( درج تعداد ) و لوپ دوم در ستون ها 

۷ دیماه ۱۴۰۲

۷ دیماه ۱۴۰۲ : 

سید محمد شفیعی در یادداشتی برای دیپلماسی ایرانی می نویسد: ایران نیازی به دخالت مستقیم خود ندارد و می‌تواند با استفاده از نیروهای نیابتی خود (هدف قرار دادن بلندی‌های جولان از طریق خاک سوریه، تقویت انصارالله برای مختل کردن تجارت دریایی اسرائیل و تقویت حماس برای ایجاد تغییر در موازنه جنگ)، شرایط را برای اسرائیل در ادامه جنگ سخت‌تر کند و با صبر راهبردی می‌تواند این ترور را تلافی کند

۱۳ دیماه ۱۴۰۲ : عملیات تروریستی

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

وی ادامه داد: در موکب مشغول خدمت‌رسانی بودیم که متأسفانه صدای بسیار مهیبی شنیده شد با سرعت خود را به سمت محل حادثه رساندم که زمین را از پیکر شهدا پوشیده دیدم.

دیماه ۱۴۰۲ 

رویا حشمتی براساس رأی شعبه ۲۶ دادگاه انقلاب با اتهام تبلیغ علیه نظام، به یک سال حبس محکوم شد و قرار بود که یک‌بیستم آن اجرا شود، اما در نهایت او دو روز هم بیشتر از حکم خود در زندان ماند.

رأی شعبه ۱۰۹۱ مجتمع قضائی ارشاد نیز چنین بوده است: «این دادگاه مجموعا خانم رویا حشمتی را به ۱۳ سال و ۹ حبس محکوم کرده بود. این شعبه، بابت اتهام حضور در معابر بدون حجاب شرعی، خانم حشمتی را به پرداخت یک میلیون و ۲۵۰ هزارتومان جزای نقدی، بابت اتهام تشویق به فساد و فحشا به تحمل ۱۲ سال و شش ماه حبس، بابت اتهام جریحه‌دارکردن عفت عمومی به تحمل ۷۴ ضربه شلاق تعزیری و بابت اتهام ساخت و انتشار آثاری که عفت عمومی را جریحه‌دار می‌کند، به تحمل یک سال و سه ماه حبس تعزیری، ۷۴ ضربه شلاق و ۱۰۰ میلیون ریال جزای نقدی محکوم کرد».

این حکم مورد اعتراض و تجدیدنظر خواهی قرار می‌گیرد و در نهایت با ارجاع به شعبه ۱۴ دادگاه تجدیدنظر استان تهران، رویا بابت اتهام تشویق به فساد و فحشا و ساخت و انتشار آثاری که عفت عمومی را جریحه‌دار کرده، تبرئه می‌شود. اما با اتهام حضور در معابر بدون حجاب شرعی، به پرداخت یک میلیون و ۲۵۰ هزار تومان جزای نقدی و به جهت اتهام جریحه‌دار کردن عفت عمومی به ۷۴ ضربه شلاق محکوم می‌شود و این حکم درست در روز مادر اجرا می‌شود.

تعداد روزهای بین دو تاریخ میلادی

دسترسی به سیستم فایل کامپیوتر با آبجکت FileSystemObject

موارد زیر به کراّت در این بلاگ یادآوری شده

Scripting.FileSystemObject

 پراپرتی یا ویژگیها

Properties

Drives

می توان در این مجموعه برای گرفتن درایوها لوپ زد  پراپرتی های شئ Drive را در پائینتر مشاهده کنید

'Returns a collection of all Drive objects on the computer.

Name

'Sets or returns the name of a specified file or folder.

Path

'Returns the path for a specified file, folder, or drive.

Size

'For files, returns the size, in bytes, of the specified file; for folders, returns the size, in bytes, of all files and subfolders contained in the folder.

Type

'Returns information about the type of a file or folder (for example, for files ending in .TXT, "Text Document" is returned).

Drive Object Properties : 

AvailableSpace
'Returns the amount of available space to a user on a specified drive or network share.
DriveLetter
'Returns one uppercase letter that identifies the local drive or a network share.
DriveType
'Returns the type of a specified drive.FileSystemReturns the file system in use for a specified drive.
FreeSpace
'Returns the amount of free space to a user on a specified drive or network share.
IsReady
'Returns true if the specified drive is ready, and false if not.
Path
'Returns an uppercase letter followed by a colon that indicates the path name for a specified drive.
RootFolder
'Returns a Folder object that represents the root folder of a specified drive.
SerialNumber
'Returns the serial number of a specified drive.
ShareName
'Returns the network share name for a specified drive.
TotalSize
'Returns the total size of a specified drive or network share.
VolumeName
'Sets or returns the volume name of a specified drive.

متدهای شئ FileSystemObject

Methods : 

CopyFile
CopyFolder
CreateFolder
CreateTextFile
DeleteFile
DeleteFolder
DriveExists
FileExists
FolderExists
GetAbsolutePathName
GetBaseName
'Returns the base name of a specified file or folder.
GetDrive
'Returns a Drive object corresponding to the drive in a specified path.
GetDriveName
'Returns the drive name of a specified path.
GetExtensionName
'Returns the file extension name for the last component in a specified path.
GetFile
'Returns a File object for a specified path.
GetFileName
'Returns the file name or folder name for the last component in a specified path.
GetFolder
'Returns a Folder object for a specified path.
GetParentFolderName
'Returns the name of the parent folder of the last component in a specified path.
GetSpecialFolder
'Returns the path to some of Windows' special folders.
Move
MoveFile
MoveFolder
OpenAsTextStream
'Opens a specified file and returns a TextStream object that can be used to read from, write to, or append to the file.
OpenTextFile
'Opens a file and returns a TextStream object that can be used to access the file.
WriteLine
'Writes a specified string and new-line character to a TextStream file.

در ابتدا با استفاده از متد CreateObject شئ FileSystemObject را ایجاد کنید و بعد از متدها و ویژگیهای آن استفاده کنید.

آذر سال ۱۴۰۲ :

MacAddress

کلاس Win32_NetworkAdapterConfiguration : 

MACAddress

Data type: string

Access type: Read-only

Qualifiers: MappingStrings ("Win32API|Device Input and Output Functions|DeviceIoControl")

Media Access Control (MAC) address of the network adapter. A MAC address is assigned by the manufacturer to uniquely identify the network adapter.

Example: "00:80:C7:8F:6C:96"

کلاس Win32_ComputerSystem و گرفتن UserName

باز کردن Windows Explorer

open Windows Explorer.

شئ WScript.Application

تابع CreateObject یک مرجع به یک شی

 اکتیو ایکس ایجاد و برمی گرداند.

عبارت Set : 

یک مرجع شی را به یک متغیر یا ویژگی اختصاص می دهد.

در زیر objApp یک متغیر است

objApp "\\Server64\folder1"

گرفتن ComputerName یا UserName در اکسس

فقط سیستم محلی 

Environ("COMPUTERNAME")

Environ("USERNAME")

Environ("PATH")

"Wscript.Network"  Object 

Properties:
UserName
UserDomain
ComputerName

Methods :
AddWindowsPrinterConnection
'Add a printer in Windows 2000 and higher
AddPrinterConnection
'Add a printer in older systems

EnumNetworkDrives

'List the mapped drives on the computer EnumPrinterConnections

'List the installed printers

MapNetworkDrive

'Map a network drive

RemoveNetworkDrive

'Remove a network drive

RemovePrinterConnection

'Remove a printer connection

SetDefaultPrinter

'Set the default printer 

Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1 WScript.Echo objArgs(I)
Next

تابع GetUserNameA : 

	Library : Advapi32.lib
	DLL : Advapi32.dll

BOOL GetUserNameA( [out] LPSTR lpBuffer, [in, out] LPDWORD pcbBuffer

lpBuffer : 

نشانگری به Buffer برای دریافت نام کاربر logon . اگر این Buffer به اندازه کافی  بزرگ نباشد که کل نام کاربری را در خود جای دهد ، این تابع از کار می افتد ( fail ) .

Len+1

pcbBuffer : 

این متغیر سایز Buffer را مشخص می کند 

در صورت نگرفتن پاسخ مناسب حتما یادداشت های این تابع را در سایت office مشاهده کنید

گرفتن یا تسخیر یک تصویر

می توان از یک Bitmap برای گرفتن یک تصویر استفاده  و تصویر گرفته شده را در حافظه ذخیره نموده ، آنرا در یک محل دیگر در پنجره اپلیکیشن یا سایر پنجره ها نمایش داد.

 در بعضی موارد ، ممکن است بخواهید اپلیکیشن تصاویر را گرفته  و موقت ذخیره کند. برای مثال زمانیکه به یک تصویر ایجاد شده در برنامه دراوینگ مقیاس می دهید یا زوم می کنید ، برنامه یا اپلیکیشن باید موقتاً یک ویوی نرمال از تصویر ذخیره کند و نمای زوم شده را نمایش دهد. بعد ، زمانیکه کاربر ویوی نرمال را نتخاب می کند ، برنامه می بایست تصویر زوم شده را با یک کپی از ویوی نرمال جایگزین کرده تا آنرا موقتاً ذخیره نماید.

برای ذخیره موقت یک تصویر ، برنامه شما باید CreateCompatibleDC را برای ایجاد یک DC سازگار با DC پنجره جاری یا فعال فراخوانی کند. بعد از ایجاد یک DC سازگار ، می توان یک bitmap با ابعاد متناسب با فراخوانی  تابع CreateCompatibleBitmap ایجاد کرد و سپس آنرا به داخل DC با فراخوانی تابع SelectObject انتخاب کرد.

بعد از ایجاد DC سازگار و bitmap متناسبی  که داخل آن انتخاب شده ، می توان تصویر را گرفت یا ثبت کرد . تابع BitBlt تصاویر را می گیرد . این تابع انتقال بلوک بیت را انجام می دهد ، یعنی داده ها از یک Bitmap منبع را در یک Bitmap مقصد کپی می کند. وقتی BitBlt انتقال را کامل کرد، تصویر در حافظه ذخیره می شود . برای نمایش مجدد تصویر برای باز دوم این تابع را فراخوانی کنید و DC سازگار را بعنوان منبع DC و یک پنجره ( یا چاپگر ) را بعنوان DC هدف مشخص کنید.

Device Context :

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

memDC = CreateCompatibleDC ( hDC );

memBM = CreateCompatibleBitmap ( hDC, nWidth, nHeight );

SelectObject ( memDC, memBM ); 

تابع EnumDisplayDevices این امکان را می دهد که اطلاعاتی در مورد دستگاه های نمایشگر به دست آورید.

ساختار DISPLAY_DEVICE :

const cchdevicename as long = 32

const cchformname as long = 32

Type display_device

cb as long

devicename as string * cchdevicename

devicestring as string * 128

stateflags as long

deviceid as string * 128

devicekey as string * 128

End Type

Dim indAdapter As Long

indDisplay As Long
Dim ddAdapters As DISPLAY_DEVICE

ddDisplays As DISPLAY_DEVICE
ddAdapters.cb = Len(ddAdapters)

ddDisplays.cb = Len(ddDisplays)

indAdapter = 0
Do Until EnumDisplayDevices(vbNullString, indAdapter, ddAdapters, 0) = 0




تابع EnumDisplaySettings اطلاعات مربوط به یکی از حالت های گرافیکی یک دستگاه نمایشگر را بازیابی می کند. برای بازیابی اطلاعات برای همه حالت های گرافیکی یک دستگاه نمایشگر ، یک سری فراخوانی با این عملکرد برقرار کنید.

یادداشت : برنامه هایی که برای هدف ویندوز ۸ و نسخه های جدیدتر طراحی می کنید ، دیگر نمی توانند پرس و جو کنند یا حالت های نمایش کمتر از ۳۲ بیت در هر پیکسل را تنظیم کنند.

Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
dmSize As Integer
dmYResolution As Integer
dmPelsWidth As Long
dmPelsHeight As Long
End Type

Dim dmode As DEVMODE

dmode.dmSize = Len(dmode)

EnumDisplaySettings DeviceName, ENUM_CURRENT_SETTINGS, dmode

MsgBox "Width: " & dmode.dmPelsWidth

MsgBox "Height: " & dmode.dmPelsHeight 

تابع CDbl برای تبدیل عبارت به دیتا تایپ عددی Double

تابعی که یک عبارت را به ( Double ( Number  تغییر می دهد

نوشتاری : 
      CDbl (expression)

در زیر به مقدار پوینت هایی که می تواند این دیتا تایپ در مقادیر منفی و مثبت ذخیره کند اشاره شده

The Double data type stores precision floating point numbers from -1.79769313486232E³⁰⁸ to -4.94065645841247E-³²⁴ for negative values or 1.79769313486232E³⁰⁸ to 4.94065645841247E-³²⁴ for positive values.

CDbl نمی توانو مقادیر Null را مدیریت کند لذا برای تبدیل Null ها به یک عدد معتبر از تابع Nz استفاده کنید

Examples

Dim dblDemo as Double

dblDemo = CDbl(12 * 0.000001)

تابع Nz یا Null Zero

تابع Nz برای عباراتی مفید است که می تواند حاوی مقادیر Null ( منظور بدون هیچ داده ای ) باشد. برای اجبار کردن یک عبارت برای ارزیابی به یک مقدار غیر Null حتی زمانیکه حاوی یک مقدار Null است از این تابع برای دادن بازگشتی تابع به صفر ، یک رشته با طول صفر یا یک مقدار بازگشتی سفارشی استفاده کنید

برای مثال عبارت VarX+2 زمانیکه varX با دیتا تایپ Variant نال است همیشه یک مقدار Null را بر می گرداند . هر چند ، ۲+(Nz(varX عدد ۲ را نتیجه می دهد.

می توان گاهی بعنوان یک جایگزین برای تابع IIf از تابع Nz بهره جست. برای مثال در کد زیر ، دو عبارت حاوی تابع IIf به بازگشت یک نتیجه معقول اجبار می شوند. اولین عبارت حاوی تابع IIf برای بررسی مقدار یک متغیر و تبدیل آن به صفر اگر Null باشد استفاده شده.

varTemp = IIf(IsNull(varFreight), 0, varFreight)
varResult = IIf(varTemp > 50, "High", "Low")

در مثال بعدی تابع Nz عملکرد مشابهی مثل عبارت اول را ارائه می دهد ولی نتیجه مطلوب به جای دو مرحله در یک مرحله بدست می آید.

varResult = IIf(Nz(varFreight) > 50, "High", "Low")

Sum(CDBL(Nz(YourField),0))) 

فیلتر بین دو تاریخ در پرس و جوی اکسس

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

پرس و جو با باکس های داده تهی :

برای انجام ، دو فیلد در پرس و جو اضافه کنید ، با نام های تکست باکس در آنها

[forms]![Menu].[txtStart]

[forms]![Menu].[txtEnd]

اکسس بطور خودکار اسمی را برای هر فیلد اضافه می کند ، Expr1 و Expr2. سپس در ردیف دوم شرط ( OR ) در هر یک از ستون های جدید Is Null را تایپ کنید. 

شرط های جدید را در همان ردیف شرط های موجود قرار ندهید ، در غیر اینصورت با Run کردن یا اجرای پرس و جو هیچ نتیجه ای دریافت نخواهید کرد.

براساس عملگرهای منطقی 

& : AND

|  : OR

x       y       x&y      x|y

true  true    true    true

true  false  false   true

true  null    null     true

false true   false   true

false false  false  false

false null    false  null

null   true   null     true

null  false  false   null

null  null    null     null

MS Access IsNull() Function

The IsNull() function checks whether an expression contains Null (no data). This function returns a Boolean value. TRUE (-1) indicates that the expression is a Null value, and FALSE (0) indicates that the expression is not a Null value.

IsNull - Test for a NULL expression.
Nz - Test for a NULL expression or Zero Length String.

روایت شده: وقتی ‌که ابراهیم(ع) را می‌خواستند در آتش افکنند، بدنش را برهنه کرده بودند. جبرئیل پیراهنى بهشتى آورد و به تن ابراهیم کرد. ابراهیم(ع) آن پیراهن را نزد خود داشت تا به اسحاق داد، اسحاق هم به یعقوب داد، یعقوب آن پیراهن را در «تمیمه»‌اى قرار داد و آن را به گردن یوسف انداخت. جبرئیل نزد یوسف آمد، آن پیراهن را از تمیمه خارج کرده و به تن او کرد. همین پیراهن بود که یعقوب بوى آن را از فاصله دور استشمام می‌کرد.

دیماه ۱۴۰۲ 

تصویر بهمراه متن در کامند باتن

ویژگی ترتیب کپشن و تصویر در کامند باتن

CommandButton.PictureCaptionArrangement property

acBottom

The caption appears below the picture.
acGeneral

The caption uses the General alignment setting
acLeft
The caption appears to the left of the picture
acNoPictureCaption
The caption is not displayed
acRight
The caption appears to the right of the picture
acTop
The caption appears above the picture.

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

۱۸ آبان ۱۴۰۲ : 

فارس: یک منبع آگاه در گفت‌وگو با فارس اظهار کرد: متولیان مسجد مکی در راستای کسب منافع نامتعارف و شخصی به صورت غیرقانونی با کمک عوامل خارجی، تعدادی ماینر وارد کشور کرده و با سوءاستفاده از برق رایگان مسجد و مدرسه مکی اقدام به استخراج رمز ارز کرد. این منبع آگاه افزود: تا قبل از مردادماه امسال برق مصرفی روند ثابتی داشته است لیکن در قبض مردادماه به طور جهشی مصرف برق بیش از ۱۶ هزار کیلووات (معادل ریالی تعرفه عادی، به مبلغ بیش از یک میلیارد تومان) افزایش داشته، این افزایش همزمان با راه‌اندازی تعداد۸۰ دستگاه ماینر در مکان فوق بوده است.