Difference between revisions of "Microsoft Access modSetting"
Jump to navigation
Jump to search
(Created page with '=== debugPrintUserRunTimeSettings === <syntaxhighlight lang="vb"> Sub debugPrintUserRunTimeSettings() Dim arrSetting() As String Dim intIndex As Integer Debug.Pr...') |
|||
| (One intermediate revision by the same user not shown) | |||
| Line 1: | Line 1: | ||
| + | [[Category:Microsoft Access]] | ||
| + | [[Category:VBA]] | ||
=== debugPrintUserRunTimeSettings === | === debugPrintUserRunTimeSettings === | ||
<syntaxhighlight lang="vb"> | <syntaxhighlight lang="vb"> | ||
| − | Sub debugPrintUserRunTimeSettings() | + | Public Sub debugPrintUserRunTimeSettings() |
Dim arrSetting() As String | Dim arrSetting() As String | ||
Dim intIndex As Integer | Dim intIndex As Integer | ||
| Line 23: | Line 25: | ||
=== deleteUserSettings === | === deleteUserSettings === | ||
<syntaxhighlight lang="vb"> | <syntaxhighlight lang="vb"> | ||
| − | Sub deleteUserSettings() | + | Public Sub deleteUserSettings() |
Debug.Print | Debug.Print | ||
Debug.Print "User Settings" | Debug.Print "User Settings" | ||
Latest revision as of 15:46, 15 July 2010
debugPrintUserRunTimeSettings
Public Sub debugPrintUserRunTimeSettings()
Dim arrSetting() As String
Dim intIndex As Integer
Debug.Print
Debug.Print "User RunTime Settings"
Debug.Print "---------------------"
On Error GoTo handleGetAllSettingsError
arrSetting = GetAllSettings(getProjectName, "RunTime")
On Error GoTo 0
For intIndex = LBound(arrSetting) To UBound(arrSetting)
Debug.Print arrSetting(intIndex, 0) & " : " & arrSetting(intIndex, 1)
Next
Exit Sub
handleGetAllSettingsError:
Debug.Print "No user settings available."
End Sub
deleteUserSettings
Public Sub deleteUserSettings()
Debug.Print
Debug.Print "User Settings"
Debug.Print "-------------"
On Error Resume Next
DeleteSetting getProjectName
Debug.Print "All user settings deleted."
End Sub