View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
RyanH RyanH is offline
external usenet poster
 
Posts: 586
Default 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