کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

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

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

نمایش فهرست کمبو باکس ( لیست باکس کمبو ) بصورت خودکار



در رویداد یا Events کنترل کمبو باکس ( GotFocus ) از روش DropDown استفاده شده بمحض گرفتن فوکس توسط این کنترل لیست کشوئی کمبو باز خواهد شد.



Private Sub cboBookCategory_GotFocus()
'When the combo box receives focus
'display in drop down position
Me.cboBookCategory.Dropdown
End Sub


combobox.dropdown


















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



در فرم اگر کمبوی مالتیپل داشته باشید طبق معمول برای تیک زدن یا برداشتن تیک به این روش عمل می کنید 


۱-فوکس کردن روی کمبو 

۲-انجام عمل دارپ داون با کلیک کردن روی فلش پائین سمت چپ کمبو که با بازشدن لیست باکس همراه هست و تیک زدن با لفت ماوس فرضا که اگر انتخاب شده باشد برداشه و اگر نشده باشد دوباره انتخاب می شود 


روش کد نویسی 

۱-SetFocus

2-DropDown

لیست باکس آن پراپرتی ListCount دارد.

3-پراپرتی (Selected(index کمبو یا لیست باکس  برای تیک زدن یا برداشتن برابر True یا False


کمبو باکس از قسمت های زیر تشکیل شده : 

ادیت باکس ، دراپ داون و لیست باکس 


 (Me.F.Selected(i)=Not  Me.F.Selected(i

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


برای گرفتن ولیوهای داخل MultipleFieldValue باید از رکوردست ۲ استفاده کرد و پل زدن به آن فیلد و پراپرتی Value آن  فرضا فیلد  Rooz داریم و چند آیتم در آن وارد شده 



۱-باز کردن رکوردست ۱ ( جدول )

۲-تنظیم رکوردست ۲ به فیلد رکوردست ۱ ( Rooz ) و پراپرتی ولیو  (Value)


البته برای لیست شدن کلیه ی تیک خورده ها باید Loop زده شود و استفاده از MoveNext برای رفتن به رکورد بعدی در آن رکوردست