Djblois
04-26-2007, 11:29 AM
I am using this code to show a form on install only if my user wants to see it. However, if they have never saved their settings before it doesn't show it either. Here is the code:
On Error Resume Next
If GetSetting("Business Reporting Today", "General", "Show New Features") = True Then
NewVersionForm.Show 0
End If
and in another spot I use this code and it won't work either:
Sub addToolBar()
On Error Resume Next
If GetSetting("Business Reporting Today", "General", "Professional") = True Then
ProfessionalEdition 'this is a sub
End
ElseIf GetSetting("Business Reporting Today", "General", "Standard") = True Then
StandardEdition 'this is a sub
End
End If
'if the user never set their settings before this form should show but it doesn't
InstallForm.Show
End Sub
On Error Resume Next
If GetSetting("Business Reporting Today", "General", "Show New Features") = True Then
NewVersionForm.Show 0
End If
and in another spot I use this code and it won't work either:
Sub addToolBar()
On Error Resume Next
If GetSetting("Business Reporting Today", "General", "Professional") = True Then
ProfessionalEdition 'this is a sub
End
ElseIf GetSetting("Business Reporting Today", "General", "Standard") = True Then
StandardEdition 'this is a sub
End
End If
'if the user never set their settings before this form should show but it doesn't
InstallForm.Show
End Sub