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

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

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

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

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

انتخاب تب دوم از تب کنترل



collections in Access are Zero based
form_formname.tabcontrol.pages(1).setfocus 
for second tab

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


انتقال فوکس به کنترل خاصی در تب کنترل


Private Sub YourTabbedControlName_Change()
  Select Case YourTabbedControlName 
    Case 0  'First Page 
      FirstPageButton.SetFocus
    Case 1  'Second page 
      SecondPageButton.SetFocus
    Case 2   'Third page
      ThirdPageButton.SetFocus
  End Select
End Sub


در رویداد Change تب کنترل که به نام YourTabbedControlName است انتخاب هایی صورت گرفته با Select Case ( در زمان رفتن به فرم یا تب خاصی تعدادی از رویدادها اتومات اجرا میشوند مثل رویداد Change  و Click) طبق کد بالا چنانچه در پیج ها جابجاشویم حین این جابجایی فوکس به کنترل خاصی  در آن پیج منتقل میشود وقتی به پیج یک می رویم یا بعبارتی پیج یک را انتخاب می کنیم کنترل نوع باتن به اسم FirstPageButton فوکس می گیرد.




شمارش پبج جای موجود درشی تب کنترل


Msgbox TabControl1.Pages.Count


با عبارت بالا تعداد پیج های موجود در تب کنترل 1 نمایش داده میشود 

تغییر مقدار پراپرتی کپشن در پیج کنترل تب


TabControl1.Pages(0).Caption = "First Page"


با عبارت بالا خاصیت کپشن پیج با ایندکس صفر در کنترل TabControl1 به First Page تنظیم شده