что в календаре возвращает дату?

[DMITRIY_78]

Ребята подскажите что в календаре возвращает дату? пример во вложении

[Aleksandr H.]

dt или TB

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    UserForm2.dt_X = dt_1
End Sub

Option Explicit
Public dt_X As Date

Private Sub CommandButton4_Click()
Dim frm As Object

 UFkalendar_4.Show
 

TextBox1.Value = Format(dt_X , "dd.mm.yyyy")

End Sub

[DMITRIY_78]

Aleksandr H.,

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    UserForm2.dt_X = dt_1 'здесь ругается
End Sub

[Aleksandr H.]

Ругается значит ищите почему.



Вы как к доктору приходите и пальцем на пузо показываете - здесь болит. доктор сразу же назначает лечение?

[DMITRIY_78]

Aleksandr H.,

[Aleksandr H.]

сомневаюсь что могли неверно сделать, но все же спрошу...

Ето в коде UFkalendar_4

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    UserForm2.dt_X = dt_1
End Sub

a eто в коде UserForm2

Option Explicit
Public dt_X As Date

Private Sub CommandButton4_Click()
Dim frm As Object
 UFkalendar_4.Show
TextBox1.Value = Format(dt_X , "dd.mm.yyyy")
End Sub

?

[DMITRIY_78]

Сообщение от Aleksandr H.

UFkalendar_4

это имя формы вызываемое кнопошкой

[DMITRIY_78]

Aleksandr H., сработало

[Aleksandr H.]

так а что было что с первого раза не работало?

[DMITRIY_78]

Aleksandr H., странно переменную

Dim frm As Object

вытащил из кнопошки прибавил

Option Explicit

все заработало