accessのユーザー定義関数記述について
VBAでユーザー定義関数を記述しようと思って勉強中です。
以前、アドバイスして頂きすばらしい関数式で合計8フィールドに入力後、
同一クエリ上で再度結合して1つのフィールドにまとめることが出来ました。
そして最後にもう1つクエリでファイルを作成しCSVファイル出力です。
目的は、文字列とtag(htmlタグ)と組合わせて1つのHTMLテキストにしようとして下ります。
そこでまた問題が発生いたしました。
1つのフィールドが1024文字のため分割して結合しておりましたが、クエリとクエリとクエリの3段階のため
「クエリが複雑すぎます」 というエラーが出ててしまいました。
VBAのユーザー定義関数に変換しなければならないのですが、かなり複雑になってきました。一体どのような記述になるのでしょうか。
大変お手数をお掛けいたしますが、よろしければアドバイスお願いいたします。
最終目的 block1 + block2 + block3 + block4 + block5 + block6+ block7+ block8を連結して
html文を作成するためVBAでユーザー関数定義で保存したいのです。
クエリ関数整理後の今回の連結
フィールド名 block3 & block4 & block5 & 以後省略
IIF(TRIM("" & [A] & [B] & [C])="","",[T_shop]![tg6])&
MID(IIF(TRIM("" & [A] & [B] & [C])="","<BR><BR>","")&
IIF(TRIM("" & [A])="","","<BR><BR>" & [A])&
IIF(TRIM("" & [B])="","","<BR><BR>" & [B])&
IIF(TRIM("" & [C])="","","<BR><BR>" & [C])&
IIF(TRIM("" & [A] & [B] & [C])="","","</FONT>"),9)
&
IIF(TRIM("" & [D] & [E] & [F])="","",[T_shop]![tg7])&
MID(IIF(TRIM("" & [D] & [E] & [F])="","<BR><BR>","")&
IIF(TRIM("" & [D])="","","<BR><BR>" & [D])&
IIF(TRIM("" & [E])="","","<BR><BR>" & [E])&
IIF(TRIM("" & [F])="","","<BR><BR>" & [F])&
IIF(TRIM("" & [D] & [E] & [F])="","","</FONT>"),9)
&
IIF(TRIM("" & [G] & [H] & [I])="","",[T_shop]![tg8])&
MID(IIF(TRIM("" & [G] & [H] & [I])="","<BR><BR>","")&
IIF(TRIM("" & [G])="","","<BR><BR>" & [G])&
IIF(TRIM("" & [H])="","","<BR><BR>" & [H])&
IIF(TRIM("" & [I])="","","<BR><BR>" & [I])&
IIF(TRIM("" & [G] & [H] & [I])="","","</FONT>"),9)
お礼
Chie65535 様 お手数をお掛け致しました。 有り難うございます。 修正して正しい結果が得られました。 Cobolは経験あります。 すごく勉強になりました。