Set DTPicker Date Value if it is not Visible on Userform
 

I have a DTPicker that has its Visible Property set to False at design time.
When I try to set the value in my Worksheet Double Click Event VBA throws an
error, why?
ERROR: Run-Time Error '35788'. An error occured in a cell to the Windows
Date and Time Picker control. But when I set the Visible Property to True it
works, why?

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

' only assign a date value to DTPicker if there is a date in the cell,
' so todays date will show by default
If Not IsEmpty(Cells(Target.Row, "M")) Then
ERROR .dtpScheduledShipDate = Cells(Target.Row, "M")
End If
If Not IsEmpty(Cells(Target.Row, "N")) Then
ERROR .dtpActualShipDate = Cells(Target.Row, "N")
End If

' show userform
frmSalesSummary.Show
End Sub
--
Cheers,
Ryan

Set DTPicker Date Value if it is not Visible on Userform
 

Try this maybe
dtpScheduledShipDate .value
dtpActualShipDate.value

"RyanH" wrote:

I have a DTPicker that has its Visible Property set to False at design time.
When I try to set the value in my Worksheet Double Click Event VBA throws an
error, why?
ERROR: Run-Time Error '35788'. An error occured in a cell to the Windows
Date and Time Picker control. But when I set the Visible Property to True it
works, why?

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

' only assign a date value to DTPicker if there is a date in the cell,
' so todays date will show by default
If Not IsEmpty(Cells(Target.Row, "M")) Then
ERROR .dtpScheduledShipDate = Cells(Target.Row, "M")
End If
If Not IsEmpty(Cells(Target.Row, "N")) Then
ERROR .dtpActualShipDate = Cells(Target.Row, "N")
End If

' show userform
frmSalesSummary.Show
End Sub
--
Cheers,
Ryan

Set DTPicker Date Value if it is not Visible on Userform
 

I wish it was that easy. I can't find any help on why you can't set a
DTPickers value if its Visible Property = False.


--
Cheers,
Ryan


"Mike" wrote:

Try this maybe
dtpScheduledShipDate .value
dtpActualShipDate.value

"RyanH" wrote:

I have a DTPicker that has its Visible Property set to False at design time.
When I try to set the value in my Worksheet Double Click Event VBA throws an
error, why?
ERROR: Run-Time Error '35788'. An error occured in a cell to the Windows
Date and Time Picker control. But when I set the Visible Property to True it
works, why?

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

' only assign a date value to DTPicker if there is a date in the cell,
' so todays date will show by default
If Not IsEmpty(Cells(Target.Row, "M")) Then
ERROR .dtpScheduledShipDate = Cells(Target.Row, "M")
End If
If Not IsEmpty(Cells(Target.Row, "N")) Then
ERROR .dtpActualShipDate = Cells(Target.Row, "N")
End If

' show userform
frmSalesSummary.Show
End Sub
--
Cheers,
Ryan

Set DTPicker Date Value if it is not Visible on Userform
 

Im sorry for last post maybe this would work

dtpScheduledShipDate.Visible = True
dtpScheduledShipDate = Cells(Target.Row, "M")
dtpScheduledShipDate.Visible = false


"RyanH" wrote:

I have a DTPicker that has its Visible Property set to False at design time.
When I try to set the value in my Worksheet Double Click Event VBA throws an
error, why?
ERROR: Run-Time Error '35788'. An error occured in a cell to the Windows
Date and Time Picker control. But when I set the Visible Property to True it
works, why?

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

' only assign a date value to DTPicker if there is a date in the cell,
' so todays date will show by default
If Not IsEmpty(Cells(Target.Row, "M")) Then
ERROR .dtpScheduledShipDate = Cells(Target.Row, "M")
End If
If Not IsEmpty(Cells(Target.Row, "N")) Then
ERROR .dtpActualShipDate = Cells(Target.Row, "N")
End If

' show userform
frmSalesSummary.Show
End Sub
--
Cheers,
Ryan

Set DTPicker Date Value if it is not Visible on Userform
 

Thanks for the Reply. I have a way around it. I want to know why the
Visible Property matters when setting the DTPickers value?

--
Cheers,
Ryan


"Mike" wrote:

Im sorry for last post maybe this would work

dtpScheduledShipDate.Visible = True
dtpScheduledShipDate = Cells(Target.Row, "M")
dtpScheduledShipDate.Visible = false


"RyanH" wrote:

I have a DTPicker that has its Visible Property set to False at design time.
When I try to set the value in my Worksheet Double Click Event VBA throws an
error, why?
ERROR: Run-Time Error '35788'. An error occured in a cell to the Windows
Date and Time Picker control. But when I set the Visible Property to True it
works, why?

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

' only assign a date value to DTPicker if there is a date in the cell,
' so todays date will show by default
If Not IsEmpty(Cells(Target.Row, "M")) Then
ERROR .dtpScheduledShipDate = Cells(Target.Row, "M")
End If
If Not IsEmpty(Cells(Target.Row, "N")) Then
ERROR .dtpActualShipDate = Cells(Target.Row, "N")
End If

' show userform
frmSalesSummary.Show
End Sub
--
Cheers,
Ryan