2016-04-11 27 views
1
Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 
Txt_Prod_Loc_Date.Value = MonthView1.Value 
Unload Me 
End Sub 

Private Sub FrmCalendar_Initialize() 
Unload Me 
End Sub 

Ayrıca Txt_Prod_Loc_Date.Value = DateClicked'i de denedim. Ama "çalışma zamanı hatası 424, nesneAy görünümünde, kullanıcı formundaki metin kutuma nasıl tıklanırım?

Teşekkür

gerekli bkz
+1

gibi kullanırız Excel'de "MonthView" denetimi. Yani emin olamam. Yine de, yukarıdaki kodunuz "DateClicked" değişkeninin belirtilen tarihi içerebileceğini öne sürmektedir. Alternatif olarak, kontrolün '.Value'unu kontrol ederdim. Belki de tarih burada saklanır "MonthView1.Value"? – Ralph

+0

Fareyi, hata ayıklama modunda DateClicked veya MonthView1.Value öğesinde tuttuğumda. Takvimde tıklanma tarihini görüyorum. Ancak, değer benim metin kutusuna depolanmıyor. [Textbox] .Value = MonthView1.Value yaptığınız zaman ders verdim, tarih metin kutusuna saklanmalıdır. Ama ben bunu görmüyorum. – Abhi0609

+0

BTW, alet kutumda bile ayın bir görünümü yok. Araç kutusuna sağ tıkladım ve Microsoft MonthViewControl'ü seçmek için ek kontrole girdim. – Abhi0609

cevap

1

kullanabilirsiniz hem;. MonthView1.Value veya DateClicked sorun çünkü :)

ait değildir BTW neden Unload MeFrmCalendar_Initialize() getirmiştir? ? bu bir Run Time Error 91. Object Variable or With block variable Not set

sizin userform Txt_Prod_Loc_Date kontrolünü bulamadık çünkü Runtime error 424, object required alıyorsanız

.

size verecek

o kontrol çalışma sayfasında ise bu kontrol başka formda ise, o zaman (Userform1 diyelim) bu

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 
    Sheet1.TextBox1.Value = MonthView1.Value 
End Sub 

gibi kullanabilirsiniz ben yok bu

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 
    UserForm1.Txt_Prod_Loc_Date.Value = MonthView1.Value 
End Sub 
+0

Teşekkürler Siddharth Rout. Farklı bir Kullanıcı formunda metin kutusu vardı. Yani ikinci seçeneğinizde olduğu gibi sözdizimi ile sorun çözüldü. – Abhi0609