VBAどこがおかしいのかわかりません。

質問

画像の左下の新規から発注をかけ、それを選択して開く。とやると開くように作り、選択してないで開くを押すとエラーメッセージが出てくるようになっているのですが、選択して開くとやっても選択してくださいというエラーメッセージが出てきてしまいます。

Private Sub btn_open_Click()
'## 「開く」ボタンクリック時

'値チェックと更新
If Not isSearch Then Exit Sub

'選択項目がなければ終了
If Me.lbx_table.ListIndex = -1 Then
MsgBox "対象のデータを選択してください", vbOKOnly + vbExclamation, "注意" 'メッセージボックスを出力
Exit Sub '終了
End If

'発注依頼情報編集フォームを開く
F_Odr_Editor.Show
End Sub

こんな感じでコードを書いたのですが
どこが間違っているのでしょうか？

よろしくお願いします。

回答No.1

kkkkkm · ベストアンサー

> '値チェックと更新
> If Not isSearch Then Exit Sub

を一度やめてみたらいかがでしょう。

お礼

ありがとうございました！