CurrentDb.Properties

Name 

Connect 

Transactions 

Updatable

CollatingOrder

QueryTimeout

Version

RecordsAffected

ReplicaID

DesignMasterID

Connection

ANSIQuery Mode 

Themed Form Controls

AccessVersion

Build

ProjVer

StartUpForm

StartUpShowDBWindow

StartUpShowStatusBar

AllowShortcutMenus

AllowFullMenus

AllowBuiltInToolbars

AllowToolbarChanges

AllowSpecialKeys

UseAppIconForFrmRpt

Track Name AutoCorrect Info

Perform Name AutoCorrect 

AppTitle

AppIcon

تنظیم پراپرتی های موجود در دیتابیس با کد زیر که از سایت خارجی استخراج شده اگر درست کار کند.

FunctionName(Name,Type,Value) As Boolean


On Error Resume Next

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) =varPropValue
ChangeProperty = True


If err=3270 Then ' Not Found
Set prp=dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Else
ChangeProperty = False
Exit Function
End If
End Function

Application.RefreshTitleBar

2003 :

You can set the StartupShowDBWindow property to False to hide the Database window so the user can't see the tables, queries, macros, and modules within your database

Application.SetOption : 

Application.SetOption "Selection Behavior", 1

set-options-from-visual-basic

SendIcon : 

hWnd = Application.hWndAccessApp

    lcon = ExtractIcon(0, sIcon, 0)

    If lcon > 1 Then

        SendMessage(hWnd, WM_SETICON, True, Icon)

        SendMessage(hWnd, WM_SETICON, False, lIcon)

    End If