hatena
hatena
2019/08/26 (月) 11:09:10
Rst.MoveFirst⇒ここの部分で、カレントレコードがありませんとなります。
フォームにレコードは表示されてますか。レコード件数が0だとそのエラーになりますが。
下記のようにしてみては。
If Rst.EOF Then
MsgBox "レコードがありません。"
Exit Sub
Else
Rst.MoveFirst
End If
通報 ...