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

MENUITEMINFOA DrawIcon

AddIcon

استخراج آیکون از فایل DLL یا EXE

ExtractIconExA(lpszFile,nIconIndex, HICON *phiconLarge, HICON *phiconSmall, UINT

( nIcons

nIconIndex : 

If this value is –1 and phiconLarge and phiconSmall are both NULL, the function returns the total number of icons in the specified file

Declare PtrSafe Function DrawIcon Lib "user32" (ByVal hdc As LongPtr, ByVal x As Long, ByVal y As Long, ByVal hIcon As LongPtr) As Long

Declare PtrSafe Function DestroyIcon Lib "user32" (ByVal hIcon As LongPtr) As Long

Declare PtrSafe Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As LongPtr, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As LongPtr