DoCmd.OpenReport "Название отчёта", acPreview
DoCmd.RunCommand acCmdZoom100

DoCmd.OpenReport "Название отчёта", acPreview
Reports("Название отчёта").ZoomControl = 125

Private WithEvents CompactDB As Office.CommandBarButton

Private Sub Form_Load()
    Set CompactDB = CommandBars.FindControl(Id:=2071)
End Sub

Private Sub CompactDB_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    On Error Resume Next
    ' Вот здесь уже пишем свой код, который выполнится раньше _
      чем штатное действия Access'а.
    ' Если нам нужно блокировать штатное действия Access, то пишем так:
    CancelDefault = True
End Sub

Sub GetCommandBarControlID()
    Dim Ctrls   As CommandBarControls
    Dim Ctrl    As CommandBarControl
    Dim strCmnd As String
    
    strCmnd = InputBox("Введите фрагмент названия команды меню.", "Фрагмент")
    If Len(strCmnd) = 0 Then
        Exit Sub
    Else
        strCmnd = "*" & strCmnd & "*"
    End If
    
    Set Ctrls = CommandBars.FindControls(Type:=msoControlButton)
    For Each Ctrl In Ctrls
        If Ctrl.Caption Like strCmnd Then
            MsgBox Ctrl.Caption & "     Id = " & Ctrl.Id
        End If
    Next Ctrl
End Sub

Public Declare Function SetTimer Lib "user32" ( _
          ByVal Hwnd As Long, _
          ByVal nIDEvent As Long, _
          ByVal uElapse As Long, _
          ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" ( _
          ByVal Hwnd As Long, _
          ByVal nIDEvent As Long) As Long


Sub StartTimer(RunProgram As String, MSec As Long)
    If Len(RunProgram) = 0 Or MSec <= 0 Then
        Exit Sub
    Else
        strProgram = RunProgram
    End If
    SetTimer Application.hWndAccessApp, 1, MSec, AddressOf TimerProc
End Sub

Private Sub TimerProc()
    KillTimer Application.hWndAccessApp, 1
    Eval strProgram
End Sub

Function ReportZoomControl(ReportName As String, Zoom As Integer) As Boolean
    On Error Resume Next
    ' По умолчанию масштаб 125.
    If Zoom = 0 Then Zoom = 125
    
    If Len(ReportName) = 0 Then
        ReportName = Screen.ActiveReport.Name
        If Len(ReportName) = 0 Then Exit Function
    End If
    
    Reports(ReportName).ZoomControl = Zoom
    ReportZoomControl = (Err.Number = 0)
End Function

Private Sub Report_Activate()
    Static Opened As Boolean
    DoCmd.Maximize
    If Opened = False Then
        Opened = True
        StartTimer "ReportZoomControl('" & Me.Name & "', 125)", 100
    Else
        Me.ZoomControl = 125
    End If
End Sub

Dim strUsers As String
While Not rs.EOF
    strUsers = strUsers & rs.Fields(0) & "   " &  rs.Fields(1) & "   " & _
        rs.Fields(2) & "   " & rs.Fields(3) & vbCrLf
    rs.MoveNext
Wend
MsgBox strUsers

Dim S As String

S = "Test is " & Chr(0) & " test!"
MsgBox S
S = InputBox(S, S)

PARAMETERS A Text ( 255 ) = DLOOKUP("Name", "MSysObjects");
SELECT TOP 1 A AS X
FROM MSysObjects;

?DCount("*", "Запрос1")

SELECT TOP 1 Name
FROM MSysObjects
WHERE DCount("*", "MSysObjects")>0;

?DLookup("Name", "Запрос1")
Tables

Sub OpenTableWithEvents()
     DoCmd.OpenTable "Table1"
     With Screen.ActiveDatasheet
          .BeforeUpdate = "=MsgBox(""BeforeUpdate"")"
          .AfterUpdate = " =MsgBox(""AfterUpdate"")"
          .OnMouseMove = "=MsgBox(""OnMouseMove"")"
          .MouseWheel = "=MsgBox(""MouseWheel"")"
          .OnClose = "=MsgBox(""OnClose"")"
     End With
End Sub