temel mantık
- sekme eklenecek form tasarım modunda açılıyor
- sekme nesnesinin içinde kaç sayfa olduğuna bakılıyor
- döngü ile sayfa ekleniyor
Private Sub Komut1_Click()
Dim a
a = Val(Me.kactane & "")
frmName = "sekmedenetimi"
DoCmd.OpenForm FormName:=frmName, View:=acDesign
Set frm = Forms(frmName)
Set tbc = frm.Controls("TabCtl0")
bas = tbc.Pages.Count + 1 'sekme nesnesindeki sayfa sayısını bulup 1 ekliyor
For x = bas To a
tbc.Pages.Add
Next
AddPage = True
DoCmd.OpenForm FormName:=frm.Name
DoCmd.Close acForm, Me.Name, acSaveNo ' bu kod bu formu kendi kendini kaydetmeden kapatır
End Sub