Private Sub Form_Load()If Me.Recordset.RecordCount = 0 Then
MsgBox "1件もデータが検索されませんでした。", vbOKOnlyEnd IfEnd Sub
-----------------------------...

>> 続きを読む

Private Sub コマンド6_Click()If Forms!narrow_form!チェック0 = True And Forms!narrow_form!チェック2 = False And Forms!narrow_form!チェック4 = False And Forms!narrow...

>> 続きを読む

Private Sub コマンド40_Click()

On Error Resume NextDim AppExcel As Excel.Application
Dim wb As Excel.workbook
Dim fpath As String'ファイルのパス
fpath = "￥...

>> 続きを読む

Private Sub Form_Load()'アクションクエリ時の警告メッセージを非表示
Application.SetOption "confirm action queries", False
DoCmd.OpenQuery "空白削除クエリ"
DoCm...

>> 続きを読む

Private Sub Form_Load()
If Forms!detail_incomplete_end!ステイタス = True ThenMe!ラベル36.Visible = True
Me.Section(0).BackColor = 15527148
Me.Section(1).BackC...

>> 続きを読む