| |
検索ボタンを押すと、検索条件とNoフィールドが一致するレコードに移動するようにしています。
空欄の場合は、「検索するNo.を入力して下さい。」と表示するように設定しています。
この状態で、さらに一致するレコードが無い場合は、自動的に先頭レコードに移動しますが、
無い旨のアラートを表示させることは可能でしょうか？
またエラー発生時にも、エラー発生の旨のアラートを表示させたいと考えていますが、こちらも可能でしょうか？
試行錯誤してもなかなか上手く動かず、お知恵をお貸し頂ければと思います。
現在完成しているコードは、以下になります。
宜しくお願い致します。
Private Sub 検索ボタン_Click()
Dim rs As Object
If IsNull(Me!抽出条件) = True Then
MsgBox "検索するNo.を入力して下さい。", vbOKOnly + vbInformation
Me!抽出条件.SetFocus
Exit Sub
End If
Set rs = Me.Recordset.Clone
rs.FindFirst "[No] = " & Str(Me![検索条件])
Me.Bookmark = rs.Bookmark
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
