Textbox ile ilgili yardımcı olabilcek arkadaş varmı ?

[uesturk]

Aşağıdaki resimde gördüğünüz gibi userformlarım var ve burada IlkTarih butonuna tıklayınca açılan tarih tablosunda hangi tarih seçiliyorsa o birinci textboxa gelsin SonTarihe tıklandığında ise seçilen tarih ikinci textboxa gelsin nasıl yapabilirim bu şekilde yazıyorum ama yanlışım nerede acaba


Private Sub D1_Click()

If RaporForm.Trh1 = True Then
RaporForm.txb1.Value = CalendarFrm.D1.ControlTipText
Else: Unload CalendarFrm
End If


End Sub



[url=http://hizliresim.com/Pk6YLv][img]http://i.hizliresim.com/Pk6YLv.png[/url]

 

[bydogannn67]

Merhabalar,

Örnek dosya yüklerseniz daha hızlı yardımcı olunur

 

[uesturk]

http://www.dosya.tc/server7/2czhu7/calisma.rar.html

 

[uesturk]

yardımcı olabilecek kimse yokmu ?

 

[PLİNT]

Merhaba
Ek dosyadaki gibi deneyin:
http://www.dosya.tc/server7/n9o1ai/0010.zip.html

 

[PLİNT]

"D1_Click" kalsın,
"D2_Click" bölümünü atlamışız; onuda değiştirin

Private Sub D2_Click()

If RaporForm.txb1.Value = "" Then RaporForm.txb1.Value = D2.ControlTipText
If DateValue(RaporForm.txb1.Value) < DateValue(D2.ControlTipText) Then
RaporForm.txb2.Value = D2.ControlTipText
Unload Me
Else
RaporForm.txb1.Value = D2.ControlTipText
End If

End Sub

 

[uesturk]

Hocam çok teşekkür ederim.