Userform da tarih toplama işlemi

[drseref]

userform da bir textbox
tarihi :
diğer textboxda yukarıdaki tarihin 45 gün fazlasını nasıl macro olarak yazabilirim.
tarihi
private sub textbox1_change()
arada ne yazacam...
end sub

tarihin 45 gün fazlası nı gösterecek
private sub textbox2_change()
arada ne yazacam.
end sub
yardımlarınız için şimdiden tşk ederim.

 

[İhsan Tank]

userform da bir textbox
tarihi :
diğer textboxda yukarıdaki tarihin 45 gün fazlasını nasıl macro olarak yazabilirim.
tarihi
private sub textbox1_change()
arada ne yazacam...
end sub

tarihin 45 gün fazlası nı gösterecek
private sub textbox2_change()
arada ne yazacam.
end sub
yardımlarınız için şimdiden tşk ederim.

merhaba
öncelikle yazarken lütfen form kurallarına uymaya dikkat ediniz.
küçük harfle yazınız
userform'un kod bölümüne

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim t1 As Date
Dim t2 As Long
t1 = TextBox1.Value
t2 = 45
TextBox2 = Format(t1 + t2, "dd.mm.yyyy")
End Sub

bu kodu yazarak dener misiniz

 

[drseref]

örnek dosyada yapamadım göndersem ilgilenirmisiniz.

 

[Skorpiyon]

Sayın drseref,

Siz bir örnek gönderin, ilgilenen biri çıkacaktır.

 

[drseref]

commandbuton 1 de açılan userform da

1. soru :örnek dosyada mevcut olan textboklarada doğum tarihine toplanacak günler
1. Hepatit Aşısı Tarihi VE 1. İZLEM ilk tarih :doğum tarihi+0
son tarih: doğum tarihi+29
-----------------------------------------------------------------
2. Hepatit Aşısı Tarihi VE 2. İZLEMilk tarih :doğum tarihi+30
son tarih: doğum tarihi+59
-----------------------------------------------------------------
1. Beşli Aşı , Verem Aşısı ve* Zatürre Aşısı Tarihi VE 3. İZLEM
ilk tarih :doğum tarihi+60
son tarih: doğum tarihi+89
------------------------------------------------------------------
4.İZLEM ilk tarih :doğum tarihi+90
son tarih: doğum tarihi+119
-------------------------------------------------------------------
2i Beşli Aşı ve 2. Zatürre Aşısı Aşı Tarihi VE 5. İZLEM
ilk tarih :doğum tarihi+120
son tarih: doğum tarihi+149
--------------------------------------------------------------------
3. Beşli Aşı, Oral Çocuk Felci Aşısı ve 3. Hepatit Aşısı 3. Zatürre AşıTarihi VE 6. İZLEM ilk tarih :doğum tarihi+180
son tarih: doğum tarihi+209
------------------------------------------------------------------------
7.İZLEM ilk tarih :doğum tarihi+270
son tarih: doğum tarihi+299
--------------------------------------------------------------------------
Kızamık-Kabakulak-Kızamıkçık Aşısı ve Zatürre Aşısı Tarihi
ilk tarih :doğum tarihi+365
son tarih: doğum tarihi+394
---------------------------------------------------------------------
Beşli Aşı ve Oral Çocuk Felci Aşısı Rapel* Tarihi ilk tarih :doğum tarihi+480
son tarih: doğum tarihi+720
-----------------------------------------------------------------------
Difteri-Tetanoz ( Td ), Oral Çocuk Felci ve Kızamık-Kabakulak-Kızamıkçık Rapel Aşısı Tarihi ilk tarih :doğum tarihi+2190
son tarih: doğum tarihi+2585
--------------------------------------------------------------------------

Difteri-Tetanoz ( Td ) Rapel* Aşısı Tarihi ilk tarih :doğum tarihi+5110
son tarih:doğum tarihi+5140
-------------------------------------------------------------------------


2.soru: userformun sağ alt kısımdaki gebe takip kısmında aynı şekilde son adet tarihlerinin üstüne gün toplamları

1.izlem ilk tarih :doğum tarihi+0
son tarih:doğum tarihi+98

2.izlem ilk tarih :doğum tarihi+120
son tarih:doğum tarihi+168

3.izlem ilk tarih :doğum tarihi+204
son tarih:doğum tarihi+224


4.izlem ilk tarih :doğum tarihi+246
son tarih:doğum tarihi+266
------------------------------------------------------------------------

3. soru :ayrıca userforrm da dört farklı doktora randevu verilecek hepsinin ayrı sayfalara veri aktarabilirmiyiz.
bunu userformda yapamadım.
yardımlarınız için tk ederim.

 

[drseref]

dtpicker daki tarihe + gün textbok da nasıl göstereceğim.

 

[Skorpiyon]

Sayın drseref,

Ek'li dosyayı inceleyiniz. Ben sadece 2 textbox üzerinde ayarlama yaptım. Diğerlerini aynı mantık ile kendiniz yapınız. Son mesajınıza istinaden, doğum tarihi yazılan textbox3 'ü kaldırarak yerine DTPicker koydum.

 

[drseref]

Private Sub DTPicker1_Change()
'Textbox3'ü kaldırarak DTPicker1 ekledim.
DTPicker1 = Format(DTPicker1, "dd.mm.yyyy")
TextBox29 = CDate(DTPicker1) + 0
TextBox29 = Format(TextBox29, "dd.mm.yyyy")
TextBox30 = CDate(DTPicker1) + 29
TextBox30 = Format(TextBox30, "dd.mm.yyyy")
End Sub

run-tıme eror 380 hatası veriyor.

 

[drseref]

Dosyayı daha anlaşılabilir şekilde yeniden düzenleyerek gönderiyorum.

Son haiyle gönderiyorum.
Açıklamalar userformların içinde ...
Saygılar

 

[drseref]

ses yok .
ses olmayan yerde hayat da yok demektir.