Dim strRes As String If IsNull(Me.Controls("txb_FolderPath")) Then strRes = MsgBox("関連書類格納フォルダはなしでよろしいですか？", vbYesNo, "関連書類有無フォルダ有無確認") End If If strRes = vbNo Then MsgBox "関連書類格納フォルダを選択後再…

■必須項目ではないが、順番に飛ばさず入力する必要のあるものの空欄チェック方法 ※このページの一番下に部品化したコードあり Sub chkSkipBlank() '------------------------------------------------------------- '機能：必須項目ではないが、途中を飛ばさ…