| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| DTPicker Date format | Excel Programming | |||
| Date from DTPicker | Excel Programming | |||
| set date on dtpicker | Excel Discussion (Misc queries) | |||
| Userform always visible | Excel Programming | |||
| How to use UserForm DTPicker.Value as Autofilter Crieteria | Excel Programming | |||
Linear Mode
