کلینیک فوق تخصصی اکسس ( کاربرد 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
ادامه...
شئ لیست باکس و پراپرتی های کاربردی
سرنگونی بشار اسد یعنی تهدید بزرگ اسرائیل برای ایران و عراق توسط تروریست های تکفیری
فرار بشار اسد یا مقاومت !!!
بنابر قوانین دربار، پادشاه یئونگجو نمی‌توانست با دستان خود پسرش را بکشد؛ بنابراین به سادو دستور داده شد تا در یک روز گرم از ماه ژوئیه ۱۷۶۲ ( ۴ ژوئیه سال ۱۷۶۲) در داخل یک مخزن برنج بزرگ چوبی قرار بگیرد سپس آن مخزن را قفل و زنجیر کردند و بعد از هشت روز و در تاریخ ۱۲ ژوئیه ۱۷۶۲ ولیعهد سادو بر اثر خفگی فوت کرد. ( قتل پسر بدست پدر )
لیست باکس را می توان به جدول متصل کرد یا با استفاده از Vba و متدهای AddItem بصورت Unbound آیتم هایی را اضافه نمود.
از پراپرتی RowSourceType ( بهمراه پراپرتی RowSource ) برای چگونگی ارتباط داده با شئ مورد نظر استفاده میشود که ۳ نوع دارد Table/Query ، Value List ، Field List حتماً یکی از این ها باید مشخص گردند.
Use the RowSourceType property (along with the RowSource property) to tell Microsoft Access how to provide data to the specified object. Read/write String.
Forms!Employees
cmboNames.RowSourceType = "Table/Query"
Forms!Employees!cmboNames.RowSource = "EmployeeList"
از پراپرتی ListCount برای تعیین تعداد ردیف ها در یک لیست باکس استفاده میشود و مبنای آن صفر است.
Use the ListCount property to determine the number of rows in a list box. Read/write Long.
می توانید در یک لیست باکس با استفاده از همین پراپرتی لوپ زده و مقادیر را بگیرید.
پراپرتی ListIndex برای تعیین اینکه کدام آیتم در لیست باکس انتخاب شده استفاده می شود.
Use the ListIndex property to determine which item is selected in a list box. Read/write Long.
از پراپرتی Selected در ویژوال بیسیک برای تعیین اینکه آیا یک آیتم در لیست باکس انتخاب شده استفاده می شود.
Use the Selected property in Visual Basic to determine if an item in a list box is selected. Read/write Long.
expression.Selected(row)
از پراپرتی ColumnCount برای مشخص کردن تعداد ستون های قابل رویت در یک لیست باکس یا در قسمت لیست باکس یک کمبوباکس استفاده میشود.
Use the ColumnCount property to specify the number of columns displayed in a list box or in the list box portion of a combo box, or sent to OLE objects in a chart control or unbound object frame. Read/write Integer.
expression.ColumnCount
از پراپرتی Column برای ارجاع به یک ستون معین یا ترکیبی از ستون و ردیف در یک لیست باکس یا کمبوباکس چند ستونه استفاده میشود.
Use the Column property to refer to a specific column or column and row combination in a multiple-column combo box or list box. Read-only Variant.
expression.Column (Index, Row)
زمان انتخاب از یک لیست باکس پراپرتی BoundColumn تعیین میکند که کدام مقادیر ستون بعنوان مقدار کنترل استفاده شود اگر به یک فیلد محدود شود مقدار در ستون مشخص شده توسط پراپرتی BoundColumn در فیلدی که در پراپرتیControlSource نامگذاری شده ذخیره میشود.
When you make a selection from a list box, the BoundColumn property tells Microsoft Access which column's values to use as the value of the control. If the control is bound to a field, the value in the column specified by the BoundColumn property is stored in the field named in the ControlSource property. Read/write Long.
expression.BoundColumn
پراپرتی ItemData داده در ستون باندی برای ردیف مشخص شده در یک لیست باکس را باز می گرداند
The ItemData property returns the data in the bound column for the specified row in a list box. Read-only Variant.
expression.ItemData (Index)
از پراپرتی ItemsSelected زمانی استفاده میشود که بخواهید لوپی در موارد انتخابی و بازیابی مقادیر با پراپرتی ItemData بزنید.
For Each ObjItm In ctl.ItemsSelected
Use the ItemsSelected collection in conjunction with the Column property or the ItemData property to retrieve data from selected rows in a list box or combo box. You can list the ItemsSelected collection by using the For Each...Next statement.
برای Clear ( خارج شدن از انتخاب ) کردن انتخاب ها از پراپرتی Selected که در بالا گفته شد باید استفاده شود و مقدار آن به False طبق هر ایندکس انتخابی تنظیم شود .برای حالت چند انتخاب و خارج شدن از انتخابشان مجبورید در لیست باکس لوپ بزنید!!!
strx = strx & ",'" & lst1.ItemData(Itemm) & "'"
strSQL = "INSERT INTO tblNamesSelected(ContactID,FirstName,LastName) " & _ "SELECT ContactID,FirstName,LastName " & _ "FROM tblNames " & _ "WHERE ContactID = " & ctrl.ItemData(Itemm)
If List9.ItemsSelected.Count = 0 Then
در شکل زیر تمام داده های موجود در کمبو باکسی که فهرست نام جداول را دارد به لیست باکس کپی میشود همینطور کپی تمام داده های ستون دوم کمبوباکس با نام customer name به لیست باکس.
نکته تنظیم RowSourceType به Table/Query
برای کپی کردن از لوپ زدن با استفاده از پراپرتی listCount-1 استفاده میشود و برای اضافه کردن از پراپرتی AddItem ... پراپرتی لیست باکس نیز به Value List تغییر می یابد.
به دیزاین فرم نگاه کنید همانطور که می بینید در برگه پراپرتی کمبوباکس ، ۳ ستون از جدول گفته که آورده شود منتهی چرا ستون اول را نمی بینید ؟ چون عرض ستون را صفر تنظیم شده
List1.AddItem (cbo1.Column(1, i))
شماره ستون ها از صفر شروع میشود.صفر بمنزله ستون اول است
Use the Column property to refer to a specific column or column and row combination in a multiple-column combo box or list box. Read-only Variant.
expression.Column (Index, Row)
AddItem Method
Adds a new item to the list of values displayed by the specified list box control.
expression.AddItem (Item, Index)
۱۲ آذر ۱۴۰۳
خبرنگار شبکه خبری العالم گفت که گروه های تروریستی مسلح قصد دارند با تخلیه برخی مناطق از اهالی اش و جایگزین سازی اهالی مناطق دیگر به جای آنان بافت جمعیتی منطقه حلب را تغییر دهند.
خبرنگار العالم خاطرنشان کرد که این در حالی است که تجاوز به زنان و سرقت خانه های مردم توسط گروههای تروریستی ادامه دارد.
بنا به این گزارش ارتش سوریه روز گذشته موفق شد بیش از ۳۰۰ جنگجوی مجهز و آموزش دیده تروریستی موسوم به "کلاه قرمزها" را که به نزدیکی قمحانه و المجدل در اطراف حماه رسیده بودند در یک کمین به دام انداخته و همه آنان را به قتل برساند.
حمص محل پالایشگاه نفتی اصلی سوریه بوده و تصرف آن راه ارتباطی پایتخت به ساحل مدیترانه را قطع خواهد کرد؛ جایی که پایگاه دریایی مهم روسیه در طرطوس قرار دارد. هزاران نفر از هم‌مذهبی‌های علوی بشار اسد از حمص فرار کرده و بیشتر آنها به سمت کوه‌های علوی در ساحل رفتند. تسلیحات ضدهوایی نیز برای دفع پهپادها بر فراز شهر به صدا درآمده‌اند. یکی از کارکنان عمومی شهر گفت: «مردم احساس امنیت نمی‌کنند. جاده‌ها به سمت ساحل پر از ترافیک است».
رسول سلیمی: پس از عقب‌نشینی ارتش سوریه از حما، در حالی که نیروهای بشاراسد تجهیزات نظامی سنگین خود را در پادگان ها به جا گذاشتند، مسیر مخالفان اسد برای حرکت به سوی شهرهای بعدی سوریه آسان شد. حمله نیروهای تحریرالشام برای تصرف حما تنها دو روز پیش آغاز شده بود و آنها امروز توانستند کنترل شهر را به دست آورند. به گفته رامی عبدالرحمان، مدیر دیده بان حقوق بشر، «تصرف حما تهدیدی برای اقلیت علوی حامی رئیس جمهور بشار اسد خواهد بود که در حومه غربی آن سکونت دارند.»
در همین راستا الجولانی فرمانده نیروهای تحریرالشام در ویدیوی کوتاهی که تلگرام منتشر شد، خطاب به ساکنان شهر گفت: «من به شما قول می دهم که برادران انقلابیون مجاهدین شما برای پاکسازی زخمی که در سوریه به مدت ۴۰ سال ادامه داشت، وارد شهر حما شده اند.»
عقب نشینی تاکتیکی ارتش سوریه برای به دام انداختن تروریست ها
۱۷ آذر ۱۴۰۳ عصرایران - جنگ داخلی در سوریه ادامه دارد. گروه های مسلح و مخالفان مسلح از طیف های گوناگون تلاش می کنند با تصرف شهرها و مناطق مختلف به شهر دمشق برسند و حکومت بشار اسد رئیس جمهوری سوریه را سرنگون کنند.
یک فروند هواپیمای شکاری آموزشی متعلق به وزارت دفاع و پشتیبانی نیروهای مسلح حین پرواز آزمایشی ساعت ۱۴:۴۵ امروز، ۱۴ آذرماه ۱۴۰۳ پس از بازآماد در ارتفاعات بین کوه‌های شهرستان‌های فیروزآباد و قیر استان فارس دچار سانحه شد و با ارتفاعات منطقه برخورد کرد.
در این حادثه سرهنگ حمیدرضا رنجبر و سرهنگ منوچهر پیرزاده خلبانان هواپیمای مذکور به شهادت رسیدند.
۱۷ آذر ۱۴۰۳ ارتش سوریه در حال بازپس گیری حمص و حماه
اسرائیل منتظر سقوط حمص است
الیجاه مگنایر، روزنامه نگار و تحلیلگر حوزه خاورمیانه نوشت: اسرائیل منتظر است تا حمص سقوط کند تا جنوب سوریه را ضمیمه کند !!! و آن را به عنوان "منطقه حائل برای حفاظت در برابر جهادی‌ها" معرفی کند، همان چیزی که سال‌ها به دنبال آن بوده.
و سرانجام با این هجمه تبلیغاتی بشار اسد سقوط و فراری شد و این نیز در تاریخ ماند البته ماندگار نخواهد بود
سربازان سوری به عراق پناهنده شدند
به گزارش ایسنا، یک منبع امنیتی بلندپایه روز شنبه اعلام کرد که عراق امروز شنبه میزبان بیش از هزار نفر از سربازان ارتش سوریه بود.
او به خبرگزاری عراق گفت که این سربازان از طریق گذرگاه مرزی القائم در استان الانبار وارد عراق شدند.
این منبع اشاره کرد که این تعداد سرباز خواستار ورود به عراق شدند که از آنها استقبال و نیازهایشان تامین شد.
تصویر زیر فوتبال زنان عربی اسلامیست مگر اینها به حجاب مثل بانوان فوتبالیست ایرانی پایبند نیستند؟!!!
۱۹ آذر ۱۴۰۳
نتانیاهو در حال شادی و مسرور از شکست بشاراسد فراری در حال بمباران انبارهای مهمات و تاسیسات نظامی مهم و الکترونیکی سوریه
مقبره حافظ اسد ... به مرده هم رحم نکردند
بنابر گزارش ایرنا، روز گذشته ( آذر ۱۴۰۳ ) خودروی حامل سه معلم که از شهرستان خوی به سمت قطور در حال حرکت بود، درحادثه‌ای از پل و جاده خارج و در نهایت واژگون شد. این سه معلم در این حادثه جان خود را از دست دادند.
روز شنبه متن کامل قانون عفاف و حجاب در رسانه ها منتشر شد. بر این اساس، طبق ماده یکم از تبصره دوم ماده ۳۲، «مهاجرین یا اتباع بیگانه‌ای» که «مجوز اقامت رسمی از وزارت کشور» دارند، امکان امر به معروف و نهی از منکر را دارا هستند.
مثلاً افغانستانی به ایرانی می تونه درمورد حجاب تذکر بده ببینید مجلس رو کیا اداره می کنن!!!
استعمارِ انگلیس نبود «فارسی» زبان اولِ دنیا بود؛ پادشاهان هند به فارسی شعر می‌گفتند
علیرضا قزوه می‌گوید اگر استعمار انگلیس نبود، امروز زبان اول دنیا «فارسی» بود و ما گویش‌ور اصلی در هند بودیم. انگلیس برای نابودی زبان فارسی در هند ۳۰۰ سال کار کرده و از ما جلوتر است
رسول‌اف در کنار امین صدرائی، مانی تیلگنر، رزیتا هندیجانیان و ژان کریستوف سیمون تهیه کنندگی این فیلم را برعهده داشت. شرکت‌های تولیدی درگیر ران وی پیکچرز از آلمان و پارالل۴۵ از فرانسه بودند. این فیلم توسط آرته فرانسه با حمایت موین فیلم فوردرونگ هامبورگ شلسویگ هولشتاین تهیه شده است. شرکت فیلمس بوتیک مستقر در برلین حقوق فروش جهانی را در دست دارد.
فرمان 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.
۲۱ اسفند ۱۴۰۲
اسفند ۱۴۰۲ :
ایشان طی نامه ای به دادستان تهران که در رسانه ها هم منتشر شده، توضیحاتی در این باره داده و نوشته است که امضای او و دیگران را "برای ثبت موسسه" جعل کرده اند ولی توضیحی درباره نحوه تملک باغ توسط این موسسه نداد.
۳ فروردین ۱۴۰۳ :
حوزه علمیه امام خمینی بیانیه جدید داد: صدیقی شخصا سند انتقال باغ را امضا کرده است اما نمی دانست دارد به خود و پسرانش منتقل می کند. مراحل اداری برگشت به حوزه در حال انجام است .
عباس عبدی، فعال سیاسی اصلاح طلب در شبکه اجتماعی ایکس نوشت: «حوزه آقای صدیقی در بیانیه دوم، دوباره بر جعل امضا تاکید کرده است. اگر این ادعا درست باشد به منزله تخلف دفترخانه رسمی نیز هست. ولی عجیبه که سازمان ثبت سکوت کرده و از خود هیچ دفاعی نمی‌کند. اگر کس دیگری چنین اتهامی را علیه آنان می‌زد فوری واکنش نشان می‌دادند.»
کارگران ایران با شش سال ثابت ماندن حداقل دستمزد در دوران سخت جنگ تحمیلی هزینه اقتصادی قابل توجهی پرداخت کردند؛ اگرچه قرار بود فاصله بین مزد و افزایش سرسام‌آور هزینه‌های زندگی در دوران جنگ، طی مدت کوتاهی پس از آن جبران شود، اما تمام دولت‌های پس از جنگ به وسع خود به این فاصله افزودند؛ بطوری که امروز جبران فاصله بین حداقل دستمزد و هزینه‌های زندگی، صرفاً با معیار قرار دادن نرخ تورم عملاً ممکن نیست.
متولد سال ۱۲۶۷ شمسی بود و نامش «میرزا احمد عابد نهاوندی» بود و چون با مردم به زبان شعر و اندرز سخن می‌گفت و اهل‌دل بود به «حاج مرشد» مشهور بود و چون یکی از قدیمی‌ترین چلوکبابی‌های تهران را داشت به «مرشد چلویی» مشهور بود و شاعر هم بود و تخلصش «ساعی» بود و شعرش این بود که: «کو آن کسی که کار برای خدا کند؟/ بر جای بی‌وفایی مردم وفا کند/ هر چند خلق سنگ ملامت بر او زنند/ بر جای سنگ نیمه شب‌ها دعا کند».
هرگاه کودک یتیمی گریه کند اشک‌های او در کف پر مهر و محبّت خداوند رحمان می‌ریزد و خدای تعالی می‌فرماید: چه کسی این یتیمی که پدرش را از دست داده (و اکنون زیر خاک آرمیده) به گریه درآورده است؟ هر کس او را آرام کند بهشت از آن اوست
خداى متعال در آیه 22 سوره اعراف مى فرماید: «همین که آدم و همسرش از آن درخت ممنوع چشیدند، بلافاصله لباس هایشان از تنشان فرو ریخت و اندامشان آشکار گشت». از این آیه به خوبى استفاده مى شود که آنها قبل از ارتکاب این خلاف، برهنه نبودند بلکه پوششى داشتند که نشانه اى براى شخصیت آدم و حوا و احترام آنها محسوب مى شده که با نافرمانى از اندامشان فرو ریخته است.
