AccessTr.neT

Tam Versiyon: Kayıt Tarihini Farklı Gününe Göre Artı Tarih Getirme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
arkadaşlar çalışmamdaki montaj kayıt formundaki, montaj kayıt tarihi kayıt yapılan tarihin 1 gün sonraki günün tarihi forma geliyor yalnız cumartesi gününde yapılan kayıtta 2 gün sonraki tarih olan pazartesi gününün tarihi gelmesi gerekiyor bu için bir kod yazdım olmadı yardımlarınızı bekliyorum.
Formun geçerli olduğunda olayına aşağıdaki kodu yazarak deneyiniz.

If Weekday(Me.Montaj_Tarhi) = 7 Then
Me.Montaj_Tarhi = DateAdd("d", 2, Me.Montaj_Tarhi)
End If
ozan bey, verdiğiniz kodu kullandım fakat olmadı ben varsayılan değer kısımına date()+1 yazıp günlük tarihi 1 sonraki günün tarihini getiriyorum buraya kadar tamam fakat cumartesi günü yapılan montaj kaydı tarihi pazara geliyor burada aslında pazartesi gününün tarihi gelmesi gerekiyor.
Kodu aşağıdaki ile değiştirerek deneyin.

If Weekday(Me.Montaj_Tarhi) = 1 Then
Me.Montaj_Tarhi = DateAdd("d", 1, Me.Montaj_Tarhi)
End If
teşekkürler bu sefer oldu.