テーブル連結フォームでVBAを実行すると#Name?表示になる

連結サブフォームを含む連結フォームで、DAOにてサブフォームの値を[入力回数_TXT]分テーブルレコードを作成したいのですが、実行するとサブフォームの値の元となるテーブル（入力subt_T）にデータは書き込まれるのですが、フォームの各テキストボックス表示が#Name?になり、レコードセレクタの移動も出来なくなってしまいます。

　　'親レコードの連結フィールドの値を取得
Dim LAST_F As String
LAST_F = Me![ID]　'親フォームに表示されている連結値

'サブフォームに値を登録
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim SLoop As Integer
Dim i As Integer
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("入力subt_T", dbOpenDynaset)
Set Me.Recordset = RS

i = Forms![親フォーム]![入力回数_TXT]

For SLoop = 0 To i
RS.AddNew
RS![連結] = LAST_F
RS![金額] = Forms![親フォーム]![金額_TXT]
RS.Update
Next SLoop

Me.Refresh

RS.Close: Set RS = Nothing
DB.Close: Set DB = Nothing

hatena19

2021/02/11 08:12

このコードはどこに記述してありますか。親フォームのモジュール？サブフォームのモジュール？ LAST_F = Me![ID]　'親フォームに表示されている連結値だと、Me は親フォームということになるが、もしそうだとすると、 Set Me.Recordset = RS 親フォームにサブフォームのテーブルを連結していることになる。

DeChambeau

2021/02/11 08:52

親フォームに記述しております。親フォームのIDとサブフォームのIDを連結しております。

行動規範の内容に同意します

回答2件

自己解決

Set Me.サブフォームコントロール名.Form.Recordset = RS
とし、この処理時フォーム上で連結サブフォームは表示せず、閲覧フォームを別に作成しました。

投稿2021/02/20 01:11

DeChambeau

総合スコア5

親フォームのモジュールに記述しているなら、

Set Me.Recordset = RS

のコードは下記のようにする必要があります。

Set Me.サブフォームコントロール名.Form.Recordset = RS

以下、質問とは外れますが、アドバイスです。

連結フォームなら、Recordsetプロパティを使うよりRecordSourceに直接テーブルを設定したほういいと思います。

Recordsetプロパティで連結すると制限があったりします。
RecordSourceに設定しておけば、フォームを開いた時点で自動でレコードセットとして開かれます。
そのレコードセットにRecordsetプロパティからアクセスできます。
あるいは、RecordsetConeプロパティでも可能です。

vba
1Me.サブフォームコントロール名.Form.RecordSource = "入力subt_T" 'これはデザインビューで設定しておけば不要
2
3Dim LAST_F As String
4LAST_F = Me![ID]　'親フォームに表示されている連結値
5
6'サブフォームに値を登録
7Dim i As Long
8i = Me![入力回数_TXT]
9
10With Me.サブフォームコントロール名.Form.Recordset 
11    For SLoop = 0 To i
12        .AddNew
13        ![連結] = LAST_F 'リンク親フィールド/リンク子フィールドを設定しておけば不要
14        ![金額] = Me![金額_TXT]
15        .Update
16    Next SLoop    
17End with