テーブルのレコードの文字を繋げる方法です。
サンプルはほぼ遊びですが、最近関与先の経理改善で考えました。
サンプルとして、次のようなテーブルにレコードが入っています。
これを一つの文章にまとめ、違うテーブルに保存します。
こんな感じです。
これをコマンドボタンを押すことで実行します。
コマンドボタンのプロパティ、イベントタブのクリック時に次のVBAコードを入力します。
Private Sub コマンド0_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset
Set cnn1 = CurrentProject.Connection
Set rs1 = New ADODB.Recordset
rs.Open “テーブル”, cnn, adOpenKeyset, adLockOptimistic
rs1.Open “まとめた文章”, cnn1, adOpenKeyset, adLockOptimistic
rs1.AddNew
rs.MoveFirst
Do Until rs.EOF
rs1!文章 = rs1!文章 & rs!短文
rs1.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
rs1.Close
Set rs1 = Nothing
cnn1.Close
Set cnn1 = Nothing
End Sub
これを実行するとレコードが繋がります。
支払予定表に明細を記載するときに使いました。
注意点としては、繋げる文章のレコードのデータ型は「長いテキスト」を選択してください。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
本当に久しぶりの更新です。最近はコロナの助成金やら融資のお手伝いで
忙しくしています。最近はAccessでは足りず、スマホでも使える
filemakerにも挑戦しています。
Accessとの違いに悪戦苦闘しております。その辺の情報も今後アップ
できればと思います。
家庭菜園も頑張っています。最近カブトムシの幼虫が畑から出てくる
ようになりました。
子供のころから幼虫から飼って、ふ化に成功したことがないので、そのまま畑に
戻しました。無事成虫になることを祈るばかりです。
本日も最後までお読みいただきありがとうございます。
