Access2010サブデータフォームの項目に処理結果を順次代入したい

Access2010のサブフォームで、データシート形式で埋め込んでいます。
項目は「個社」「ファイル名」「件数」です。

Me.SUB_kekka.個社 = kosya_Name
Me.SUB_kekka.ファイル名 = myFilename
Me.SUB_kekka.件数 = dataVolume

では上手く入力出来ません。
どなたか、親切な方、教えて下さい。m(__)m
また、2レコード目への移動の仕方も教えて下さい。
宜しくお願い致します。

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2016/06/24 09:58

Me.SUB_kekka.個社 = kosya_Name などで出来るのは

帳票/単票フォームの場合です。
データシートでは不可なので
サブフォームのレコードセットで扱うことにします。
たとえばコマンドボタンに設定するなら

Private Sub ぼたん_Click()
Dim Rs As dao.Recordset
Set Rs = Me!SUB_kekka.Form.Recordset

'サブフォーム上でカレントになっているレコードの変更
Rs.Edit
Rs!個社 = kosya_Name
Rs!ファイル名 = myFilename
Rs!件数 = dataVolume
Rs.Update

Stop
'サブフォームに新規レコード追加
Rs.AddNew
Rs!個社 = kosya_Name
Rs!ファイル名 = myFilename
Rs!件数 = dataVolume
Rs.Update

Stop
'次のレコードに移動
Rs.MoveNext

Stop
'頭から数えて３番目に移動
Rs.AbsolutePosition = 3 - 1

Stop
'現在位置から２番目に
Rs.Move 2

Set Rs = Nothing '後始末
End Sub

のようなイメージになります。
kosya_Name等々の処理はこちらでは入れようがないので
コピペッタンしただけでは当然エラーになりますから修正が必要です。
所々でStopしていますので、VBE上でF5で順次実行しつつ確認してみてください。

この回答へのお礼

有り難う御座います‼m(__)m
大変参考になりました。
本当に困っていたので、助かりました。
初心者の私に丁寧に教えて下さって感謝です。
もっと、勉強します。

お礼日時：2016/06/24 10:30