(13/06/2023, 17:27)berduş yazdı: rica ederim
iyi çalışmalar)
ufak bir hatırlatma: tasarım modunda değişiklik yapıldığında formu kapatmadan önce "değişiklikler kaydedilsin mi?" benzeri bir uyarı mesajı çıkar
yanlışlıkla evet derseniz form gelecek sefer o sayıda sekme ile açılır yani eğer açılması gerekenden fazla sayfa varsa bu durumda silme işlemi de yapılabilmeli
Sayın Berduş,
Uyarınız için teşekkürler.
Yanlışlıkla kaydetme problemine karşı aşağıdaki kodu uyguladım, gayet güzel çalışıyor.
Kod:
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
az = tbc.Pages.Count - 1
If bas <= a Then
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 form1'i kapatır
ElseIf bas > a Then
For x = a To az
tbc.Pages.Remove
Next
AddPage = True
DoCmd.OpenForm FormName:=frm.Name
DoCmd.Close acForm, Me.Name, acSaveNo ' bu kod bu formu form1'i kapatır
End If
End Sub