Takvim formundan birkaç userformdaki textboxa tarih aktarma?

[turan1971]

Merhaba arkadaşlar.
frmtakvim adındaki userformumda iki adet takvim nesnem var. (Calendar1, Calendar2).
3 adet userformda da başlangıç ve bitiş tarihini içerecek olan txt1.text ve txt2.text adında textboxlarım mevcut.

3 Userformumda kod olarak şunu yazdım.

Private Sub lbltarih_Click()
frmtakvim.lbl1.Caption = Me.Name
frmtakvim.Show
End Sub

Takvim formumda aşağıdaki kodu yazdım ama object required hata mesajı verdi. Sizce nasıl olmalı. Form adını nasıl girerim. Eğer bunu yapamazsam 3 ayrı tarih formu yapmam lazım.

Private Sub Calendar1_Click()
formadi = lbl1.Caption
With formadi
.txt1.Text = Calendar1.Value
End With
End Sub

 

[turan1971]

ÇÖZÜLDÜ...
lbl1 nesnesi formda görünmez, sadece formun adını diğer taraftan çağırmak için kullanılıyor.

Private Sub Calendar1_Click()
If lbl1.Caption = "frmraporeki" Then
frmraporeki.txt1.Text = Calendar1.Value
ElseIf lbl1.Caption = "frmrapor" Then
frmrapor.txt1.Text = Calendar1.Value
ElseIf lbl1.Caption = "frmlogin" Then
frmlogin.txt1.Text = Calendar1.Value
End If
End Sub