Public Function acilisayarlari()
Dim intX As Integer
Dim uygulamaadi As String
Const DB_Text As Long = 10
    intX = UygulamaOzelligiEkle("AppIcon", DB_Text, Application.CurrentProject.Path & "\sistem\form.ico")
    intX = UygulamaOzelligiEkle("AppTitle", DB_Text, "Access Başlık")
    CurrentDb.Properties("UseAppIconForFrmRpt") = -1
    Application.RefreshTitleBar
End Function
Function UygulamaOzelligiEkle(strAd As String, varTur As Variant, varDeger As Variant) As Integer
    Dim veritabani As Object, prp As Variant
    Const ozellikbulunamazsahatakodu = 3270
    Set veritabani = CurrentDb
    On Error GoTo OzellikEkle_Err
    veritabani.Properties(strAd) = varDeger
    UygulamaOzelligiEkle = True
OzellikEkle_Cikis:
    Exit Function
OzellikEkle_Err:
    If Err = ozellikbulunamazsahatakodu Then
        Set prp = veritabani.CreateProperty(strAd, varTur, varDeger)
        veritabani.Properties.Append prp
        Resume
    Else
        UygulamaOzelligiEkle = False
        Resume OzellikEkle_Cikis
    End If
End Function