کلینیک فوق تخصصی اکسس ( کاربرد 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)
۱۲ آذر ۱۴۰۳
خبرنگار شبکه خبری العالم گفت که گروه های تروریستی مسلح قصد دارند با تخلیه برخی مناطق از اهالی اش و جایگزین سازی اهالی مناطق دیگر به جای آنان بافت جمعیتی منطقه حلب را تغییر دهند.
خبرنگار العالم خاطرنشان کرد که این در حالی است که تجاوز به زنان و سرقت خانه های مردم توسط گروههای تروریستی ادامه دارد.
بنا به این گزارش ارتش سوریه روز گذشته موفق شد بیش از ۳۰۰ جنگجوی مجهز و آموزش دیده تروریستی موسوم به "کلاه قرمزها" را که به نزدیکی قمحانه و المجدل در اطراف حماه رسیده بودند در یک کمین به دام انداخته و همه آنان را به قتل برساند.
حمص محل پالایشگاه نفتی اصلی سوریه بوده و تصرف آن راه ارتباطی پایتخت به ساحل مدیترانه را قطع خواهد کرد؛ جایی که پایگاه دریایی مهم روسیه در طرطوس قرار دارد. هزاران نفر از هم‌مذهبی‌های علوی بشار اسد از حمص فرار کرده و بیشتر آنها به سمت کوه‌های علوی در ساحل رفتند. تسلیحات ضدهوایی نیز برای دفع پهپادها بر فراز شهر به صدا درآمده‌اند. یکی از کارکنان عمومی شهر گفت: «مردم احساس امنیت نمی‌کنند. جاده‌ها به سمت ساحل پر از ترافیک است».
رسول سلیمی: پس از عقب‌نشینی ارتش سوریه از حما، در حالی که نیروهای بشاراسد تجهیزات نظامی سنگین خود را در پادگان ها به جا گذاشتند، مسیر مخالفان اسد برای حرکت به سوی شهرهای بعدی سوریه آسان شد. حمله نیروهای تحریرالشام برای تصرف حما تنها دو روز پیش آغاز شده بود و آنها امروز توانستند کنترل شهر را به دست آورند. به گفته رامی عبدالرحمان، مدیر دیده بان حقوق بشر، «تصرف حما تهدیدی برای اقلیت علوی حامی رئیس جمهور بشار اسد خواهد بود که در حومه غربی آن سکونت دارند.»
در همین راستا الجولانی فرمانده نیروهای تحریرالشام در ویدیوی کوتاهی که تلگرام منتشر شد، خطاب به ساکنان شهر گفت: «من به شما قول می دهم که برادران انقلابیون مجاهدین شما برای پاکسازی زخمی که در سوریه به مدت ۴۰ سال ادامه داشت، وارد شهر حما شده اند.»
عقب نشینی تاکتیکی ارتش سوریه برای به دام انداختن تروریست ها
۱۷ آذر ۱۴۰۳ عصرایران - جنگ داخلی در سوریه ادامه دارد. گروه های مسلح و مخالفان مسلح از طیف های گوناگون تلاش می کنند با تصرف شهرها و مناطق مختلف به شهر دمشق برسند و حکومت بشار اسد رئیس جمهوری سوریه را سرنگون کنند.
یک فروند هواپیمای شکاری آموزشی متعلق به وزارت دفاع و پشتیبانی نیروهای مسلح حین پرواز آزمایشی ساعت ۱۴:۴۵ امروز، ۱۴ آذرماه ۱۴۰۳ پس از بازآماد در ارتفاعات بین کوه‌های شهرستان‌های فیروزآباد و قیر استان فارس دچار سانحه شد و با ارتفاعات منطقه برخورد کرد.
در این حادثه سرهنگ حمیدرضا رنجبر و سرهنگ منوچهر پیرزاده خلبانان هواپیمای مذکور به شهادت رسیدند.
۱۷ آذر ۱۴۰۳ ارتش سوریه در حال بازپس گیری حمص و حماه
اسرائیل منتظر سقوط حمص است
الیجاه مگنایر، روزنامه نگار و تحلیلگر حوزه خاورمیانه نوشت: اسرائیل منتظر است تا حمص سقوط کند تا جنوب سوریه را ضمیمه کند !!! و آن را به عنوان "منطقه حائل برای حفاظت در برابر جهادی‌ها" معرفی کند، همان چیزی که سال‌ها به دنبال آن بوده.
و سرانجام با این هجمه تبلیغاتی بشار اسد سقوط و فراری شد و این نیز در تاریخ ماند البته ماندگار نخواهد بود
سربازان سوری به عراق پناهنده شدند
به گزارش ایسنا، یک منبع امنیتی بلندپایه روز شنبه اعلام کرد که عراق امروز شنبه میزبان بیش از هزار نفر از سربازان ارتش سوریه بود.
او به خبرگزاری عراق گفت که این سربازان از طریق گذرگاه مرزی القائم در استان الانبار وارد عراق شدند.
این منبع اشاره کرد که این تعداد سرباز خواستار ورود به عراق شدند که از آنها استقبال و نیازهایشان تامین شد.
تصویر زیر فوتبال زنان عربی اسلامیست مگر اینها به حجاب مثل بانوان فوتبالیست ایرانی پایبند نیستند؟!!!
۱۹ آذر ۱۴۰۳
نتانیاهو در حال شادی و مسرور از شکست بشاراسد فراری در حال بمباران انبارهای مهمات و تاسیسات نظامی مهم و الکترونیکی سوریه
مقبره حافظ اسد ... به مرده هم رحم نکردند
بنابر گزارش ایرنا، روز گذشته ( آذر ۱۴۰۳ ) خودروی حامل سه معلم که از شهرستان خوی به سمت قطور در حال حرکت بود، درحادثه‌ای از پل و جاده خارج و در نهایت واژگون شد. این سه معلم در این حادثه جان خود را از دست دادند.
روز شنبه متن کامل قانون عفاف و حجاب در رسانه ها منتشر شد. بر این اساس، طبق ماده یکم از تبصره دوم ماده ۳۲، «مهاجرین یا اتباع بیگانه‌ای» که «مجوز اقامت رسمی از وزارت کشور» دارند، امکان امر به معروف و نهی از منکر را دارا هستند.
مثلاً افغانستانی به ایرانی می تونه درمورد حجاب تذکر بده ببینید مجلس رو کیا اداره می کنن!!!
استعمارِ انگلیس نبود «فارسی» زبان اولِ دنیا بود؛ پادشاهان هند به فارسی شعر می‌گفتند
علیرضا قزوه می‌گوید اگر استعمار انگلیس نبود، امروز زبان اول دنیا «فارسی» بود و ما گویش‌ور اصلی در هند بودیم. انگلیس برای نابودی زبان فارسی در هند ۳۰۰ سال کار کرده و از ما جلوتر است
رسول‌اف در کنار امین صدرائی، مانی تیلگنر، رزیتا هندیجانیان و ژان کریستوف سیمون تهیه کنندگی این فیلم را برعهده داشت. شرکت‌های تولیدی درگیر ران وی پیکچرز از آلمان و پارالل۴۵ از فرانسه بودند. این فیلم توسط آرته فرانسه با حمایت موین فیلم فوردرونگ هامبورگ شلسویگ هولشتاین تهیه شده است. شرکت فیلمس بوتیک مستقر در برلین حقوق فروش جهانی را در دست دارد.
پراپرتی های لیست باکس
ListBox.Properties
: ListCount
شمارش ردیف های داخل لیست باکس
: ListIndex
ایندکس ردیف های لیست باکس که از صفر شروع میشود
: ItemData
گرفتن آیتم کلیک شده !!! با توجه به ایندکس آن
(ListBox.ItemData(Listbox.ListIndex
: (Selected(lRow
چک میکند آیا انتخاب شده یا خیر ، فرضا بخواهید ردیف موردنظر انتخاب شود ( lRow از صفر شروع می شود مهندسان عزیز!!!)
ListBox.Selected(4)=True
: ItemSelected
برای فعال کردن حالت چند انتخابی ردیف ها ی یک لیست باکس ، از پنجره ی پراپرتی خود کنترل ، پراپرتی MultiSelect را به حالت Simple یا Extended تنظیم بنمائید.
این پراپرتی خودش دو تا پراپرتی دارد به نام های Count و Item و متدی ندارد.
مثال برای شمارش آیتم های سلکت شده : (محدودیت ر دیف های ایجادشده حدودتقریبی ۶۴۰۰۰ ردیف )
Dim C As Long
۱-C=ListBox.ItemSelected.Count
برای گرفتن آیتم های سلکت شده هم میتوان توسط تابع For...Next و لوپ زدن در کانت آن که به متغیر C ارسال شده اقدام نمود ... گرفتن دیتای آیتم : (LISTBOX.ITEMDATA(LISTBOX.LISTINDEX که در پراپرتی مربوطه بدان اشاره گردید.
: (Column(Index,IRow
برای ارجاع به کالمن مشخص شده که هر دو از صفر شروع میشوند تاکانت Index یا IRow منهای یک
فرضا اگر لیست باکس شما چهارستونه باشد برای گرفتن دیتای ستون دوم و ردیف پنجم
(LISTBOX.COLUMN(1,4
: ColumnCount
برای شمارش کالمن های لیست باکس یا لیست باکس کمبو استفاده میشود ( کانت منهای یک !!! )
فرضا برای گرفتن دیتاهای کل کالمن ها در ردیف مورد نظر در کانت کالمن منهای یک لوپ ایجاد شده و طبق پراپرتی کالمن آیتم ها نمایش یا پرینت خواهد شد.
: ColumnOrder
برای تعیین ترتیب نمایش کالمن های دیتاشیت استفاده میشود فقط دیتا شیت !!! این پراپرتی زمانیکه جدول بازباشد اعمال نخواهدشد و باید بسته و دوباره بازشود تا اعمال گردد.
: BoundColumn
دیتای کالمنی که باید در جدول اعمال شود فرضا سه ستون دارید میخواهید اطلاعات کالمن ۳ و ردیف انتخاب شده در جدول ثبت شود باند را روی ۳ میگذارید که در حصر کالمن ۳ فقط باشد برای عدم نمایش کالمن های دیگر پراپرتی ColumnWidth است که میتوانید آنرا صفر کنید فرضا اگر ۳ ستون داشته باشید و فقط بخواهید ستون سوم را ببینید در پنجره ی پراپرتی لیست باکس و پراپرتی ColumnWidth تایپ کنید 1;0;0 .. یک منظور کالمن آخر ۱ اینچ باشد .
: ColumnHeads
برای نمایش هدر لیست باکس ( تیتر ، عنوان ستون ها فقط در یک ردیف ) در لیست باکس یا لیست باکس کمبو استفاده میشود