docmd.gotorecordを起動するには

フォーム、サブフォームを削除後、はじめのレコードに戻るボタンを作りたいです。
削除まではできたのですが、はじめのレコードにもどることができません。
エラーは出ておらず、削除後の#deletedが各テキストボックスに入った状態で動きが止まってしまいます。
Frm見積書明細がサブフォーム名、T見積書がフォーム名、見積IDはテキストボックスです。
どう修正すればよいでしょうか？

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim vsql As String
Dim i As Variant
Dim x As Variant

Set db = CurrentDb()

x = Me!Frm見積書明細.Form.Recordset.RecordCount

If x = 0 Then
MsgBox "見積書明細の入力がない為削除できません"
Else

i = 見積ID

vsql = "select * from T見積書 where 見積ID = '" & i & "'"
Set rs = db.OpenRecordset(vsql, dbOpenDynaset)
If MsgBox("削除しますか？", vbYesNo) = vbYes Then
DoCmd.SetWarnings False
Me!Frm見積書明細.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True

rs.Delete
DoCmd.GoToRecord , , acFirst

rs.Close
db.Close
End If
End If

ご回答よろしくお願いします！

No.3 ベストアンサー 回答者： KenKen_SP 回答日時： 2022/06/18 00:02

こんばんは。

ご質問文から、フォームウィザードで作成された連結フォームかなと想像しますが、そう仮定すると、

DoCmd.RunCommand acCmdDeleteRecord
rs.Delete

などに違和感を感じるのです。レコードセット rs を開いても、その後に何ら処理があるわけでもありません。
ご提示のソースにある DAO は非連結フォームでレコードを表示する場合の例です。

したがって、ネット検索で一生懸命勉強されているものと推察しますが、色々と混じってしまい混乱されているのではないか、、と。

一度作り直すぐらいの気持ちで整理しましょう。


■ 連結フォームでレコード削除を実現するには

1. まずリレーションシップの設定が必要です。
　（添付図参照）
https://hamachan.info/access2019-relation/
2. T見積書をフォームウィザードで親フォームを作成
3. 2. をデザインビューで開き、サブフォームを作成
　　既存のテーブルを使用、T見積明細を選択
4. 削除ボタンのクリックに設定するイベントプロシージャは次の様な感じ。

Private Sub btn_Delete_Click() '<--ボタン名はご自身のものに合わせる

　　If Me.NewRecord Then Exit Sub
　　
　　Dim res As VbMsgBoxResult
　　　　res = MsgBox("表示中のレコードを削除しますか？", _
　　　　　　　　　　 vbOKCancel + vbDefaultButton2 + vbInformation)
　　If res = vbCancel Then
　　　　Exit Sub
　　Else
　　　　DoCmd.SetWarnings False
　　　　DoCmd.RunCommand acCmdDeleteRecord
　　　　DoCmd.SetWarnings True
　　　　DoCmd.GoToRecord acActiveDataObject, , acFirst ’<--データ削除後先頭へ
　　End If
　　
End Sub

No.5 回答者： KenKen_SP 回答日時： 2022/06/23 22:37

テーブルの構成など細かい説明をしてませんが、当方で#3の説明の通り作成して動作確認しました。

ごめんなさい、原因はわかりません。

ソースはサブの方ではなく、親フォーム側に貼ってますか？

この回答へのお礼

もう一度やり直してみたら出来るようになりました！
どこか入力する場所を間違えていたかもしれません。
ご丁寧に教えて頂きありがとうございました！

お礼日時：2022/06/24 15:22

No.4 回答者： KenKen_SP 回答日時： 2022/06/18 00:12

添付図のようなフォームを想像してます。

適当に作ったのでイメージのご参考までに。

頑張って！☆

この回答へのお礼

お返事遅くなり申し訳ありません！
ご丁寧にいろいろとご回答頂きましてありがとうございます。

ご回答を基に直してみましたがレコードに移動できませんでした・・・
レコード移動までの削除動作はしっかり動いてくれました。

親フォーム、サブフォーム共に連結フォームです。
リレーションシップの組み方を確認しました。
添付図で送って頂いたフォームのイメージで間違いございません。
１つ目のレコードのみエラーが出ずにうまく動作してくれます。

他に見直すところがあれば教えて下さい。
宜しくお願いします。

お礼日時：2022/06/21 08:42

No.2 回答者： KenKen_SP 回答日時： 2022/06/17 19:49

親フォームのT見積書は連結フォームですか？

サブフォームは連結フォーム？

連結フォームと非連結フォームとありまして、用語の意味は検索してみて下さい。

コード全体に違和感があります、、

No.1 回答者： KenKen_SP 回答日時： 2022/06/17 15:49

こんにちは。

恐らくですが、、
見積IDで検索し、レコード1件のレコードセットで、それを削除したらレコードの移動はできなくなるのでは？

レコード削除後に改めてフォームに全件レコードセットなりを設定し直す必要があるのではと思いました。

この回答へのお礼

ご回答ありがとうございます！

rs.deleteの後にme.requeryを書き足してみたのですが下記のエラーが出てしまいました
実行時エラー2759 オブジェクトを起動するときにエラーが発生しました
書き足す場所が良くないのでしょうか？

お礼日時：2022/06/17 16:23