Access学習メモ 6-4. Access使ってOutlookメール④
事業所リストの「作成済チェック」を外せば、その事業所へ再びメールを作成できる翌月になり、ふたたび先頭の事業所からメールを作り始める必要がある場合は「チェック全解除」コマンドを押下すれば、すべてのレコードについたチェックマークを外すことができるチェック解除前チェック解除後「作成済」チェック用フォームのレコードを事業所の登録順に並び替えフォームのプロパティシート並べ替え:[作成順]読み込み時に並べ替えを適用:はい「作成済チェック」イベントプロシージャPrivate Sub 作成済チェック_Click()DoCmd.OpenForm "F_作成チェック"End Sub「チェック全解除」イベントプロシージャOption Compare DatabasePrivate 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.RequeryEnd Subチェックを解除すると、無事にメールが作られる
0