ساخت باتن دریکی از پیج های تب کنترل

البته این کار فقط در نمای دیزاین امکانپذیر است یعنی باز کردن فرم  در این نما اگر فایل به accde تبدیل شود چون به دیزاین دسترسی نیست عملیات انجام نخواهدشد !!!

در فرمی یک باتن تعبیه و کدهای زیر در آن نوشته شده قبلش یکسری Variable ها مثل frm باید تعریف شود سپس این کد فرمی بنام form2 را باز کرده و باتنی به تب با نام Page4 اضافه میکند البته فرم 2 را باید با OpenForm در نمای دیزاین باز نمائید.

Set frm = Forms(strFrmName) 

frm.RecordSource = ""

'Set Position Value

intDataX = 2000 intDataY = 2000

'Create Button

Set Ctrl = CreateControl(frm.Name, acCommandButton, , "Page4", "", intDataX, intDataY) Ctrl.Caption = "&Back" Ctrl.Name = "btnBack"

'Create Event

Set mdl = frm.Module lngReturn = mdl.CreateEventProc("Click", Ctrl.Name) mdl.InsertLines lngReturn + 1, vbTab & "MsgBox " & Chr(34) & " >>> " & _ Chr(34) & " " & Chr(38) & " " & Chr(34) & "Hello World" & Chr(34)

DoCmd.Restore

Place a Tab control in Form2 and name one of the tabs "Page4"

در FORM2 یک TAB CONTROL قرار داده و نام یکی از تب ها را PAGE4 

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

collections in Access are Zero based

form_formname.tabcontrol.pages(1).setfocus 

for second tab

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

پیمایش در تب کنترل با Shift+PageUp

Shift Constants

KeyCode Constants

()TabCtl

TabCtl.Pages.Count

TabCtl.Pages(Index).Controls

ایجاد صفحه ی جدید در کنترل تب