Private Sub コマンド30_Click()'Rdetail_completion_status(レポートフォーム)をプレビュー表示
DoCmd.OpenReport "Rdetail_completion_status", acViewPreview
Dim msg A...

>> 続きを読む

Private Sub コマンド29_Click()

'アクションクエリ時の警告メッセージを非表示
Application.SetOption "confirm action queries", False
Dim msg As Integer
msg = MsgBox(&qu...

>> 続きを読む

Private Sub コマンド28_Click()
Dim msg As Integer
msg = MsgBox("データを編集します。よろしいですか？", vbYesNo, "更新確認")
If msg = vbYes Then
GoTo line1El...

>> 続きを読む

Private Sub Form_Load()テキスト75 = DLookup("カウント", "count_completion_status")End Sub

--------------------------------"count_com...

>> 続きを読む