Just added a Sub Routine to my module so the settings on the Main Menu update automatically when the settings form is closed. Also, my copyright statement is now dynamic and will update to a range of years with the initial year being stored in the Settings table.

Public Sub SetSettings()

    Dim copyYearStart As Long, copyYearEnd As Long, copyYearRange As String
    
    copyYearStart = GetSettings("CopyrightYear")
    copyYearEnd = Year(Date)
    copyYearRange = IIf(copyYearStart = copyYearEnd, copyYearStart, copyYearStart & "-" & copyYearEnd)
    
    If CurrentProject.AllForms("MainMenuF").IsLoaded Then
        Forms!MainMenuF!lblHeader.Caption = GetSettings("DatabaseName")
        Forms!MainMenuF!lblCopyright.Caption = Replace(GetSettings("Copyright"), "{Year}", copyYearRange)
    End If
    
End Sub

Thanks for sharing, Kevin.  I don't have a clue what you are talking about but plan on playing with this and trying to figure it out. :)

Thanks Sandra. The SetSettings sub above will set the copyright on the Main Menu form only. I have since needed it on another form (my splash screen) so I made it a function instead.

Public Function GetCopyright() As String

    Dim copyYearStart As Long, copyYearEnd As Long, copyYearRange As String
    
    If Not IsNull(GetSettings("CopyrightYear")) And GetSettings("CopyrightYear") <> "" Then
        copyYearStart = GetSettings("CopyrightYear")
        copyYearEnd = Year(Date)
        copyYearRange = IIf(copyYearStart = copyYearEnd, copyYearStart, copyYearStart & "-" & copyYearEnd)
    End If
    
    GetCopyright = Replace(GetSettings("Copyright"), "{Year}", copyYearRange)
    
End Function

This function relies on the GetSettings function and the initial copyright year to be a field in the Settings table. You can, of course, send the CopyrightYear to the function.

Thanks Kevin, for explaining. I understand now. :)