Tekboxsa otomatik ileri tarih atması

[fatih34]

Arkadaşlar bu sıcak bir günden kolaylıklar dilerim herkeze bir iş yerimde kullanmak üzere bir çalışma yapmak istiyorum siz değerli hocalarımın yardımıyla

useformda evrak tarihi ve şubeye verieln süre ve bakım onarıma verieln süreleri elle giriyordum.

evrak tarihine girdiğim tarihin 7 gün sonrasını şubeye verilen süreye yazması yine aynı girdiğim tarihin 15 gün sonrasını da bakım onarıma verieln süre kısmına yazmasını istiyorum bu konuda yardımlarınızı bekliyorum
inşallah anlata bilmişimdir

 

[Murat OSMA]

Deneyiniz...

Private Sub TextBox2_Change()
    TextBox6.Value = CDate(TextBox2.Value) + 7
    TextBox7.Value = CDate(TextBox2.Value) + 15
End Sub

Private Sub TextBox6_Change()
    TextBox6.Value = Format(CDate(TextBox6.Value), "dd.mm.yyyy")
End Sub

Private Sub TextBox7_Change()
    TextBox7.Value = Format(CDate(TextBox7.Value), "dd.mm.yyyy")
End Sub

 

[fatih34]

Teşekkür ederim hocam ilginize ve emeğinize Allah Razı olsun

 

[Murat OSMA]

Rica ederim, iyi günler...

* Sitede bu tarz örnekler çok var. Biraz araştırmanız yeterli olacaktır...