accesstr.net , gayet net ;)
Onursal Üye
Sn kesoka;
Öncelikle tablondaki PM alanlarınıın VeriTürünü Tarih/Saat olarak değiştirmelisin. (Yoksa sıkıntı çekersin.)
Ardından sana lazım olan formul;
=DateAdd("m", x, PM_1) formülüdür.
Formuldeki x ekleyeceğin ay sayısıdır. Yani 2 ay eklemek istiyorsan x yerine2 yazacaksın. Ay olarak değilde başka format kullanmak istiyorsan;
hafta :"w"
gün: "d"
yıl: "y"
PM alanlarını Tarih/Saat olarak değiştirmek istemezsen;
PM 1 kutusunun olay yordamına şunları yaz:
Kod:
Private Sub PM_1_AfterUpdate()
On Error GoTo HataPM1
Dim pM1 As Date
pM1 = CDate(PM_1)
For i = 1 To 7
Me("PM " & i + 1) = Format(DateAdd("m", i * 6, pM1), "dd-mmm-yy")
Next i
HataPM1:
Exit Sub
End Sub
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
#7
Kopyası personel.rar
(Dosya Boyutu: 126,78 KB | İndirme Sayısı: 6)
