次に(次の壁は)、値の取り出し方、表現方法です。
メインフォーム
[ドラマタイトル]
と
サブフォーム [SUB出演者]
[出演者]
[役名]
を取り出してみたいと思います。
Private Sub BTEST_Click() 'MsgBox "メイン " & Me.ドラマタイトル 'MsgBox "サブ 出演者 役名 " & Me![SUB出演者]![出演者] & "-" & Me![SUB出演者]![役名] 'MsgBox "メイン レコード数MAX " & Me.Recordset.RecordCount 'MsgBox "サブ レコード数MAX " & Me![SUB出演者].Form.Recordset.RecordCount Dim n As Integer 'カウンター Dim strWORK As String 'サブのデータをまとめる 'サブフォーム の レコードを移動させたいのでフォーカスサブに当てる Me![SUB出演者].SetFocus 'フォーカスのカーソル移動 DoCmd.GoToRecord , , acFirst 'サブの先頭レコードにする strWORK = Me.ドラマタイトル & vbCrLf & vbCrLf 'ワークをタイトルでクリア 2行改行 For n = 1 To Me![SUB出演者].Form.Recordset.RecordCount strWORK = strWORK & Me![SUB出演者]![出演者] & "-" & Me![SUB出演者]![役名] & vbCrLf DoCmd.GoToRecord , , acNext '次のレコードへ Next DoCmd.GoToRecord , , acFirst '再度頭にサブの先頭レコードにする '結果を使う テストで画面に表示 MsgBox strWORK End Sub
動画で解説
蛇足や寄り道、ムダに迷っていたりしますが、下記動画解説です。
http://www.youtube.com/watch?v=g1-v0ryuO6E
www.youtube.com
処理のポイント
1. !と. 同じようで違ったり？
エラー MsgBox "サブ 出演者 役名 " & Me.SUB出演者.[出演者]
正常が MsgBox "サブ 出演者 役名 " & Me![SUB出演者]![出演者] & "-" & Me![SUB出演者]![役名]
2. サブフォームの全てのレコードを取り出したいんだけど・・・
2.1 レコードカウント(MAXのレコード数)
me.Recordset.recordcount で メインは取れる。
使いたいサブフォームのレコード数は、
Me![SUB出演者].Form.Recordset.RecordCount
で サブフォームのレコード数を取得することができました。
2.2 サブフォームのレコードを動かしたいんだけど・・・
次に、サブフォームのレコードを動かしたいので、
2.2.1 フォーカスの移動
Me![SUB出演者].SetFocus 'フォーカスのカーソル移動
で、フォーカス／操作の対象をサブフォームにセットしてから、
2.2.2 先頭レコードに移動
DoCmd.GoToRecord , , acFirst 'サブの先頭レコードにする
で、サブフォームの先頭にカーソルを移動させ
2.2.3 レコード数分だけ、レコードを移動さながら 値を集める
ワーク変数を１つ作成して、ループで回してみました。
strWORK = Me.ドラマタイトル & vbCrLf & vbCrLf 'ワークをタイトルでクリア 2行改行
For n = 1 To Me![SUB出演者].Form.Recordset.RecordCount
strWORK = strWORK & Me![SUB出演者]![出演者] & "-" & Me![SUB出演者]![役名] & vbCrLf
DoCmd.GoToRecord , , acNext '次のレコードへ
Next
DoCmd.GoToRecord , , acFirst '再度頭にサブの先頭レコードにする
'結果を使う テストで画面に表示
MsgBox strWORK
終わりのあいさつ
※まぁ、そんなことするなら、DAOやADOで処理すると言われそうですが、
こんな感じの三流処理もあるってことで(笑)
サブフォームのデータ処理で何かの参考となれば幸いです。
で、終わりじゃなかった(笑)質問は、Outlookへデータを書く、転記するのかぁ。
続きは少々お待ちを。
※※処理の全体像は http://ken3hitori.g.hatena.ne.jp/bbs/19?from=1 を見てください。
