شی 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 استفاده می کنید، اکسس پرس و جو را بدون بستن و بارگذاری مجدد اجرا می کند.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

TempVars در اکسس ( تعریف متغیرهای موقت برای استفاده در تمام رویه ها )

طبق کتاب Access programming 2021 

چنانچه دیتابیس ( پایگاه داده ) با فرمت ACCDB است ، بجای استفاده از جدول پایگاه داده یا متغیرهای global ، می توان از مجموعه TempVars برای ذخیره داده های گوناگون که تمایل دارید دوباره بکار ببرید بهره برد.

TempVars مخفف متغیرهای موقت است.این متغیرها global هستند.می توان در ماژول های VBA یا کوئری ها ( پرس و جو ها ) ، رویدادها ( Events ) ، عبارات ( Expressions ) ، ... و هر پایگاه داده ارجاعی به آنها اشاره کرد.دیتابیس های اکسس ACCDB اجازه تعریف تا 255 متغیر موقت را در لحظه می دهند . این متغیرها در حافظه تا زمان بسته شدن پایگاه داده حفظ می شوند ( جز حذف آنها زمان اتمام و عدم نیاز).برخلاف متغیرهای Public ، متغیر موقت هنگام بروز خطا پاک نمی شوند.

ایجاد یک متغیر موقت با شئ مجموعه TempVars :

در محیط VBA وارد شوید و پنجره Immediate Window را باز کنید با کلید میانبر Ctrl+G هم می توانید این کار را انجام دهید.هر کدام از عبارات زیر را وارد کنید

TempVars("gtvUserName").Value = "John Smith"

TempVars("gtvUserFolder").Value = Environ("HOMEPATH")

TempVars("gtvEndDate").Value = Format(now(),"mm/dd/yyyy")

توجه کنید که برای ایجاد متغیر موقت ، تمام چیزی که شما باید انجام بدهید مشخص کردن مقدار آن است.اگر متغیر از قبل موجود نباشد ، اکسس آنرا به مجموعه TempVars اضافه می نماید در غیر اینصورت اکسس آنرا ( مقدار جدید ) جایگزین می کند یا بعبارتی اصلاح ( Modify ) .با استفاده از متد Add می توان متغیر را اضافه کرد:

TempVars.Add "gtvCompleted", "true"

هر شئ TempVar در این مجموعه ویژگی های Name و Value دارد که می توان برای دسترسی  به متغیر و خواندن مقدار از هر Procedure ( رویه ) بهره برد.آیتم ها بصورت پیش فرض در این مجموعه از 0 شماره گذاری شده است یعنی اولین آیتم 0 و دومین آیتم 1  ، سومین 2 و همینطور... بنابراین برای پیدا کردن مقدار متغیر دوم در TempVars که وارد کرده اید ( gtvUserFolder ) ، در پنجره Immediate عبارت زیر را وارد کنید : 

?TempVars(1).Value

برای بازیابی مقدار متغیر می توان از نام آن نیز استفاده کرد :

?TempVars("gtvUserFolder").Value

می توان با تکرار  از طریق مجموعه TempVars،  نام و مقادیر تمام متغیرهای global که در آن قرار داده اید را مشاهد کنید. ( دو پراپرتی Name و Value فراموش نشود !!! )

For Each gtv in TempVars

'Your Code 

Next

می توان کدهای هر خط بالا را پشت سرهم نوشت ولی باید بین هرکدام از جداکننده : استفاده کرد

استفاده از متغیرهای موقت global در عبارات ( Expressions ) :

در هر جایی از Expresdions می توان استفاده کرد.برای مثال می توان مقدار کنترل تکست باکس Unbound ( محدود به جایی نیست مثل جدول یا کوئری ) را در فرم  تنظیم کنید تا با فعال کردن Property sheet و تایپ موارد زیر در ویژگی ControlSource تکست باکس ، مقدار متغیر global نمایش داده شود :

=[TempVars]![gtvCompleted]

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

SELECT * FROM Orders WHERE Order_Date = TempVars!gtvEndDate

حذف متغیر موقت از شئ مجموعه TempVars : 

زمان انجام کار با متغیر و اتمام کار می توان آن را از این مجموعه با متد Remove  پاک کرد : 

TempVars.Remove "gtvUserFolder"

برای بررسی تعداد اشیاء TempVar در مجموعه TempVars از ویژگی Count استفاده کنید ، در پنجره Immediate : 

?TempVars.Count

نهایتاً برای حذف سریع تمام متغیرهای global از متد RemoveAll استفاده کنید : 

?TempVars.RemoveAll

15 اسفند ۱۴۰۱ : 

به گزارش هاآرتص، طی هفت سال گذشته ۹۲ پرواز باری میان یک پایگاه هوایی اسرائیل و باکو برای صادرات تسلیحات صورت گرفته است. اسرائیل در ازای دریافت نفت و نزدیکی به ایران، میلیاردها دلار تسلیحات به آذربایجان تحویل می‌دهد.

آگهی فروش تیگو ۸ پرو را در یک بیلبورد تبلیغاتی بغداد می‌بینید. قیمت نقدی این خودرو در بغداد ۲.۵ میلیون دینار معادل ۹۶۰ میلیون تومان است. در حالی که این خودروی چینی در ایران به قیمت ۳.۳ میلیارد تومان به فروش می‌رسد!

البته با دینار ۴۳۵ ریال محاسبه کنیم ۹۶۰ میلیون نمیشه 

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

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

سخنگوی فراجا با بیان اینکه افراد دستگیر شده دو مرد ۵۰ و ۲۲ ساله و سه  خانم  که یکی از آنان دانش آموز مردودی ۲۱ ساله بوده اند، تصریح کرد: این افراد به صورت تیمی اقدامات خود را انجام می داده اند و طی روزهای اخیر با پرتاب گاز نیتروژن به داخل ۷ مدرسه در شهرستان لارستان باعث مسمومیت ۵۳ نفر از دانش آموزان شده بودند.

بازیگر سریال شهباز ( امنیتی - تخیلی )

۱۸ اسفند ۱۴۰۱ : پخش زنده در مترو بعلت تست دستگاه ها و نقص فنی

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

در سال ۱۳۵۳ زمان محمدرضاشاه پهلوی

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

۲۰ اسفند ۱۴۰۱ : 

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

اسفندماه ۱۴۰۱ : دلار ۴۳ هزار تومان و حقوق کارگرساده حداقل ۵ میلیون

TempVars یا تعریف متغیر و استفاده در سایر فرم ها

Tempvar متغیری است که می تواند در Vba مورد استفاده قرار گیرد.

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

برای ارجاع به شی Tempvar در یک مجموعه با شماره اختصاصی یا با خصوصیت نامش می توانید شکل نوشتاری زیر را تنظیم نمائید.

• TempVar![name]

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

دوستان لطفا نظر سنجی فراموش نشودمطالب فقط طبق استاندارد داکیومنت اکسس است و نه فراتر از آن ، اگر مطلب Magic از آن انتظار دارید لطفا این ذهنیت اشتباه را پاک کنید و یا سراغ برنامه های قدرتمندتر بروید.در صورتیکه مطلبی جا مانده یا بیان نشده لطفا ارائه کنید تا بیان شود.البته بنده هم طبق داکیومنت آفیس مطلب خواهم گذاشت و نه بیشتر.

اکسس فقط یک دیتابیس است

ماکرو Before Change و SetLocalVar

ساخت   متغیر ( Variable ) موقتی  و تنظیم آن به مقدار مشخص شده  

Remarks

The SetField action cannot be used outside of an CreateRecord or EditRecord data block

The CreateRecord data block can only be used in the After Insert, After Update, and After Update data macro events