TabCtl60.Pages(0).Caption = Format(DateAdd("d", 0, Hafta), "DDDD")
TabCtl60.Pages(1).Caption = Format(DateAdd("d", 1, Hafta), "DDDD")
TabCtl60.Pages(2).Caption = Format(DateAdd("d", 2, Hafta), "DDDD")
TabCtl60.Pages(3).Caption = Format(DateAdd("d", 3, Hafta), "DDDD")
TabCtl60.Pages(4).Caption = Format(DateAdd("d", 4, Hafta), "DDDD")
TabCtl60.Pages(5).Caption = Format(DateAdd("d", 5, Hafta), "DDDD")
TabCtl60.Pages(6).Caption = Format(DateAdd("d", 6, Hafta), "DDDD")
Haftaya göre sekme isimleri doğru yansıyor mu bilmiyorum. Hafta açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle.