(09-08-2016, 15:15)aydol demiş ki: alt form olarak yapmış olduğum izin tarihlerini bir türlü aşağıda kayıt yaptıramıyorum.
Mevcut modul icinde calisma gunleri ile ilgili prosedurler olmasina ragmen kullanmamissiniz. Forma buton eklemesi ile asagida ki prosedur ile alt forma veri tasiyabilirsiniz.
Private Sub KayitEkle_Click()
Dim SonucTarih As Date
SonucTarih = CalisilacakGun(Me.[kalan izin].Form![Ýzin Hakettiði Tarih], Me.[kalan izin].Form![Planlanan Ýzin])
Me.[calisanlar izin deneme alt formu].Form![Ýzin Baþlangýç Tarihi] = Me.[kalan izin].Form![Ýzin Hakettiði Tarih]
Me.[calisanlar izin deneme alt formu].Form![Ýzin Türleri] = "YILLIK ÝZÝN"
Me.[calisanlar izin deneme alt formu].Form![Ýzin Bitiþ Tarihi] = DateAdd("d", IIf(Weekday(SonucTarih, vbMonday) = 6, 2, IIf(Weekday(SonucTarih, vbMonday) = 7, 1, 0)), SonucTarih)
End Sub
Function CalisilacakGun(ilktarih As Date, KacGun As Long) As Date
CalisilacakGun = (Excel.WorksheetFunction.WorkDay_Intl(ilktarih, KacGun, 2, 1))
End Function
Not: Tablo alanlari tanimlarken bosluk ve Turkce karakter kullanmayiniz.