access カレントレコードがありません

Question

Accessの「フォーム画面」で入力したデータを指定の「テーブル」に書き込むプログラムを作成しています。

指定のテーブル先にはレコードが一件も存在しない場合、つまり初めてフォーム画面を立ち上げたときにエラーメッセージが表示されます。
「カレントレコードが存在しません」と。

テーブルに一件でもレコードが存在する場合は、エラーメッセージは出ません。

アクセスのプロパティシートやVBAで、このエラーを解消することはできますか？
よろしくお願いいたします。

Comments

[hatena19]

『「テーブル」に書き込むプログラム』とは、VBAのコードでしょうか。ならば、それを提示してください。

Answer 1

推測ですが、フォームを開くときに何らかの処理をしているのでしょう。
Recordsetオブジェクトのカレント行が、EOF,BOFだったりする（空のテーブル）に移動とかのメソッドを実行すると当然、エラーになります。

処理する前に if 文にて制御するだけだと思います。

    If Not rst1.EOF Then
        処理
    End If

のようにね。

Comments

[12-esta]

皆さんありがとうございました。
ベストアンサーのやり方に修正したらうまくいきました！

Answer 2

こちらの環境(ACCESS 2016(32bit))ではエラーは出ませんでした。
該当フォームのプロパティはこんな感じです。

「データ入力用」以降のプロパティ値を見比べてみてください。