テーブルの更新について

質問

お世話になります。
よろしくお願いします。
下記のようなコードで
環境取込ファイルというテキストボックス
と環境保存ボックスというテキストボックスの
内容をKankyo_mstテーブルに書き込む
というものですが、
更新に関してはうまくいくのですが、
レコードが空の状態では
「カレントレコードがありません」
とのエラーでうまくいきません。
何かよい方法はありませんでしょうか？

Private Sub 環境_設定_Click()
Dim DB As DAO.Database
Dim rst As DAO.Recordset
Dim strNamet As String
Dim strNameh As String
Dim strNames As String
strNamet = Me.環境_取込ファイル
strNameh = Me.環境_保存ファイル
　　Set DB = CurrentDb()
Set rst = DB.OpenRecordset("Kankyo_mst")

If rst![hozon_dir] Is Empty And rst![torikomi_dir] Is Empty Then
With rst
.AddNew
![hozon_dir] = strNameh
![torikomi_dir] = strNamet
![Syori_tuki] = Format(strNames, "yy mm")
![Kou_date] = Date
![kou_time] = Time
.Update
End With
Else
With rst
.MoveFirst
Debug.Print "変更前:" & ![hozon_dir]
.Edit
![hozon_dir] = strNameh
![torikomi_dir] = strNamet
![Syori_tuki] = Format(strNames, "yy mm")
![Kou_date] = Date
![kou_time] = Time
.Update
Debug.Print "変更後:" & ![hozon_dir]
End With

End If

rst.Close
DB.Close
Set DB = Nothing
Set rst = Nothing
MsgBox "設定完了しました"

End Sub

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

開いたレコードセットが空かどうかをEOFプロパティで判定すればいいのではないでしょうか。
例えば、こんな感じ

If rst.EOF Then
　　(レコードがない場合)
Else
　　(レコードが1つでもある場合)
End If

お礼

ばっちりできましたありがとうございました！

回答No.2

osamuy

＞ If rst![hozon_dir] Is Empty And rst![torikomi_dir] Is Empty Then
ここで、落ちているなら、

If rst.EOF Then

――でどうでしょう、

お礼

ばっちりできましたありがとうございました！