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

البته این کار فقط در نمای دیزاین امکانپذیر است یعنی باز کردن فرم  در این نما اگر فایل به 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