フォーム

表示画面で切り替え

Private Sub cmd印刷_Click()

On Error GoTo Err_cmd印刷_Click

    strFrm = Forms(1).Caption
    
        If strFrm = "" Then
            
            strFrm = Forms(2).Caption
        
        End If
        
        If strFrm = "印刷メニュー" Then
        
           strRpt = Reports(0).Name
        
        End If
        
        If strFrm = "標題1" Then
        
            DoCmd.OpenReport "レポート1", acViewPreview
            DoCmd.Close acForm, "フォーム1"
        
        ElseIf strRpt = "レポート1" Then
        
            DoCmd.OpenReport "レポート1", acViewNormal
                    
        ElseIf strRpt = "レポート2" Then
        
            DoCmd.OpenReport "レポート2", acViewNormal
    
        ElseIf strFrm = "標題2" Then
        
            DoCmd.OpenReport "レポート1", acViewPreview
            DoCmd.Close acForm, "フォーム1"
    
        End If

Exit_cmd印刷_Click:
    Exit Sub

[[Err]]_cmd印刷_Click:
    MsgBox Err.Description
    Resume Exit_cmd印刷_Click
    
End Sub

チラつき制御

DoCmd.Echo False
　 DoCmd.OpenForm "F_1"
DoCmd.Echo True

フォーム[×]で閉じる時

Private Sub Form_Unload(Cancel As Integer)
   If MsgBox("「AAA」を終了しますか？", vbYesNo + vbQuestion) = vbYes Then
       DoCmd.Quit
   Else
       Cancel = -1
   End If
End Sub

別フォームへ

1. DoCmd.OpenForm "f_別フォーム", , , "[項目]=Forms![f_main]![項目]"
2. DoCmd.OpenForm "f_別フォーム", , , "ID=" & ID

フォーカスの位置確認

MsgBox Me.ActiveControl.Name

別フォームのコントロール

Forms![別フォーム].chkコントロール = False
Forms![別フォーム].Controls(変数(i)).Enabled = False
Forms(変数)!Controls(変数).Enabled = False