Tarih yazmada problem var

[KAZIMM]

sabahtan beri arıyorum ama istediğim sonucu bulamadım.

TextBox1'e Manuel olarak 20.02.2007 gibi tarih giriyorum.

TextBox2' Manuel olarak 10 veya başka bir sayı giriyorum.

TextBox3' ise TextBox1+TextBox2'nin sonucunu tarih olarak göstermesini veya hesaplamasını istiyorum.

yardımcı olursanız sevinirim

 

[abdi]

Private Sub CommandButton1_Click()
If TextBox1 = "" And TextBox2 = "" Then
MsgBox "textboxlar boş", vbCritical

TextBox1.SetFocus

Else
TextBox3.Value = Format(DateAdd("d", TextBox2, TextBox1), "dd.mm.yyyy")
End If
End Sub

 

[KAZIMM]

Herhalde yanlış anlaşılma oldu.

TextBox1'e Manuel olarak 20.02.2007 gibi tarih giriyorum.

TextBox2' Manuel olarak 10 veya başka bir sayı giriyorum.

TextBox3' enterle geçildiğinde ise sonucun TextBox1+TextBox2' sonucu (yani 30.02.2007 ) tarih olarak göstermesini istiyorum. tıklama ile değil TextBox2 veri girilip enter yapıldıktan sonra

 

[Orion1]

Merhaba.
Sayın Abdi'nin yazdığı kodları textbox2'nin Exit Olayına yazınız.

 

[Fuat Şirin]

konuyla ilgili

hep sorucam soramıyorum
bu exit olayı ne oluyo
açıklayabilir misiniz?

 

[Orion1]

Merhaba.
Sayın abdi'ni yazdığı kodlar CommandButton'un Click olayına aittir.
Click olayı nesneye Click yaptığınızda çalışır.Exit olayı Nesneden Çıktığınız anda çalışır.

 

[Fuat Şirin]

doğru mu anladım

yani şu şekilde mi olacak?

Private Sub Textbox1_Exit()
End Sub
gibi mi

 

[KAZIMM]

Arkadaşlar ilginiz için teşekür ederim ancak exit olayında da çalışmadı

TextBox1'e Manuel olarak 20.02.2007 gibi tarih giriyorum.

TextBox2' Manuel olarak "10"veya başka bir sayı giriyorum.

TextBox3' enterle geçildiğinde ise sonucun TextBox1+TextBox2' sonucu (yani 30.02.2007 ) tarih olarak göstermesini istiyorum. tıklama ile değil TextBox2 veri girilip enter yapıldıktan sonra

Sayın abdinin verdiği makroda Tarih ile TextBox2 deki sayısal ifadenin nasıl toplandığını çözemedim

 

[Orion1]

Zaten bu olaylar Vba Editöründe otomatik yazılmış halde bulunuyorlar.Siz sadece oradan yapıcağınız işleme ait olayı seçip içine kodları yazıyorsunuz.
önce nesneyi çift tıklayın ve kod yazma moduna geçin ondan sonra VBA editöründen istediğniz olayı seçin.
Ben Bir tane TextBox1 nesnesi için Exit olayını seçtim ve aşağıdaki kodlar kod sayfama otomatik olarak geldi.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'....................
'Buraya VBA kodları yazılacak
'....................
End Sub

 

[Orion1]

Arkadaşlar ilginiz için teşekür ederim ancak exit olayında da çalışmadı

TextBox1'e Manuel olarak 20.02.2007 gibi tarih giriyorum.

TextBox2' Manuel olarak "10"veya başka bir sayı giriyorum.

TextBox3' enterle geçildiğinde ise sonucun TextBox1+TextBox2' sonucu (yani 30.02.2007 ) tarih olarak göstermesini istiyorum. tıklama ile değil TextBox2 veri girilip enter yapıldıktan sonra

Sayın abdinin verdiği makroda Tarih ile TextBox2 deki sayısal ifadenin nasıl toplandığını çözemedim

Merhaba.
10 ekleyince 30.02.2007 yazamaz çünkü şubat ayı en fazla 29 gün çeker.
Ben kodları denedim kodlar sorunsuz çalışıyor.
İsterseniz kodları da yazayım gene olamasa size örnek bir dosya yollarım.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" And TextBox2 = "" Then
MsgBox "textboxlar boş", vbCritical
TextBox1.SetFocus
Else
TextBox3.Value = Format(DateAdd("d", TextBox2, TextBox1), "dd.mm.yyyy")
End If
End Sub

 

[KAZIMM]

Teşekür ederim arkadaşlar örneğim hep şubat ayına yoğunlaştığı için hata ondan kaynaklanıyormuş 10 ekleyince Sezar arkadaşımızın dediği gibi 30.02.2007 yazamaz çünkü şubat ayı en fazla 29 gün çeker. ilginiz için hepinize teşekür ederim hayırlı akşamlar