Private Sub btnMemoEdit_Click()
    DoCmd.OpenForm "F連絡事項入力"
    DoCmd.GoToRecord , , acNewRec
    日付 = Date
End Sub

Private Sub btnOpenReport_Click()
    DoCmd.OpenForm "F地区種別レポート印刷Form"
End Sub

Private Sub btnOpenReport2_Click()
    DoCmd.OpenForm "F地区別月次報告書作成フォーム"
End Sub

Private Sub btnOpenReportEdit_Click()
    If IsNull(cboSelectDate) Then
        MsgBox ("日付が入っていません")
        Exit Sub
    End If
    DoCmd.OpenForm "F報告書閲覧修正"
    Dim k As String
    k = Forms("F_Main").[cboSelectDate]
    DoCmd.FindRecord k, acEntire, , , True, acAll
End Sub

Private Sub コマンド1_Click()
    DoCmd.OpenForm "F報告書入力"
    DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub コマンド23_Click()
    DoCmd.OpenForm "F2020_9以前閲覧"
End Sub