Access学習メモ 6-4. Access使ってOutlookメール④

事業所リストの「作成済チェック」を外せば、その事業所へ再びメールを作成できる

翌月になり、ふたたび先頭の事業所からメールを作り始める必要がある場合は「チェック全解除」コマンドを押下すれば、すべてのレコードについたチェックマークを外すことができる

チェック解除前

チェック解除後

「作成済」チェック用フォームのレコードを事業所の登録順に並び替え

フォームのプロパティシート

並べ替え：[作成順]

読み込み時に並べ替えを適用：はい

「作成済チェック」イベントプロシージャ

Private Sub 作成済チェック_Click()

DoCmd.OpenForm "F_作成チェック"

End Sub

「チェック全解除」イベントプロシージャ

Option Compare Database

Private Sub チェック全解除_Click()

  Dim strSQL As String

    strSQL = "UPDATE T_送信先 SET [作成済] = False"

    If Me.FilterOn = True Then

        strSQL = strSQL & " WHERE " & Me.Filter

    End If

  CurrentDb.Execute strSQL, dbFailOnError

  Me.Requery

End Sub

チェックを解除すると、無事にメールが作られる