【Access】IsNullの使い方
- カテゴリ：パソコン/インターネット
- 2011/08/02 05:48:19
Private Sub コマンド6_Click()
If IsNull(店舗コード) Then
msg = MsgBox("店舗情報が抽出されていないため、データ削除できません。", vbOKOnly, "削除確認")
Else
DoCmd.OpenQuery "del_shop_name"
msg = MsgBox("削除が完了しました", vbOKOnly, "削除確認")
End If
End Sub
----------------------------------------------------------
コマンドボタンをクリックした場合、店舗コードテキストボックスが空欄の場合の分岐。
