PDA

View Full Version : Solved: Set page as default tab



Djblois
04-26-2007, 05:07 AM
I know that whatever page I am on in a multi-page form when I save it will be the page it starts up in. However, I want to give my users the option of setting which page they want it to start on. Can I set the Page to start with code?

Bob Phillips
04-26-2007, 05:24 AM
Multipage1.Value = 0

Djblois
04-26-2007, 07:00 AM
I am also trying to hide certain pages with this code:

If GetSetting("Business Reporting Today", "SalesReportOptions", "Customer Visible") = False Then
MultiPage1.Pages(1).Visible = False
End If
If GetSetting("Business Reporting Today", "SalesReportOptions", "Product Visible") = False Then
MultiPage1.Pages(2).Visible = False
End If
If GetSetting("Business Reporting Today", "SalesReportOptions", "SalesPerson Visible") = False Then
MultiPage1.Pages(3).Visible = False
End If
If GetSetting("Business Reporting Today", "SalesReportOptions", "WareHouse Visible") = False Then
MultiPage1.Pages(4).Visible = False
End If
If GetSetting("Business Reporting Today", "SalesReportOptions", "Other Visible") = False Then
MultiPage1.Pages(5).Visible = False
End If

Here is the code where I set the settings:

SaveSetting "Business Reporting Today", "SalesReportOptions", "Customer Visible", SetDefaults.CustomerVisible
SaveSetting "Business Reporting Today", "SalesReportOptions", "Product Visible", SetDefaults.ProductVisible
SaveSetting "Business Reporting Today", "SalesReportOptions", "SalesPerson Visible", SetDefaults.SalesPersonVisible
SaveSetting "Business Reporting Today", "SalesReportOptions", "WareHouse Visible", SetDefaults.WareHouseVisible
SaveSetting "Business Reporting Today", "SalesReportOptions", "Other Visible", SetDefaults.OtherVisible

For some Reason I can't get Customer (Page1) to be invisible and Sometimes Product will be visible (Page2) when it is not supposed to be.

Djblois
04-26-2007, 07:00 AM
I am also trying to hide certain pages with this code:

If GetSetting("Business Reporting Today", "SalesReportOptions", "Customer Visible") = False Then
MultiPage1.Pages(1).Visible = False
End If
If GetSetting("Business Reporting Today", "SalesReportOptions", "Product Visible") = False Then
MultiPage1.Pages(2).Visible = False
End If
If GetSetting("Business Reporting Today", "SalesReportOptions", "SalesPerson Visible") = False Then
MultiPage1.Pages(3).Visible = False
End If
If GetSetting("Business Reporting Today", "SalesReportOptions", "WareHouse Visible") = False Then
MultiPage1.Pages(4).Visible = False
End If
If GetSetting("Business Reporting Today", "SalesReportOptions", "Other Visible") = False Then
MultiPage1.Pages(5).Visible = False
End If

Here is the code where I set the settings:

SaveSetting "Business Reporting Today", "SalesReportOptions", "Customer Visible", SetDefaults.CustomerVisible
SaveSetting "Business Reporting Today", "SalesReportOptions", "Product Visible", SetDefaults.ProductVisible
SaveSetting "Business Reporting Today", "SalesReportOptions", "SalesPerson Visible", SetDefaults.SalesPersonVisible
SaveSetting "Business Reporting Today", "SalesReportOptions", "WareHouse Visible", SetDefaults.WareHouseVisible
SaveSetting "Business Reporting Today", "SalesReportOptions", "Other Visible", SetDefaults.OtherVisible

For some Reason I can't get Customer (Page1) to be invisible and Sometimes Product will be visible (Page2) when it is not supposed to be.

Bob Phillips
04-26-2007, 09:14 AM
Pages start at 0

Djblois
04-26-2007, 09:20 AM
That works Perfectly XLD