hatena
hatena
2024/02/02 (金) 09:27:34
現時点ではレコード数も20件と少ないので、skさんからご提示して頂いたSQL文は使わず、
一個一個#を削除して、「#[特記詳細事項]#」のようなあるべき姿にしたところです。
そのように修正済みで、[特記詳細事項]の部分がURLということで、テキストボックスが「ハイパーリンクあり」かつ「ハイパーリンクである場合」の設定なら、
"特記事項詳細 = '#" & Replace(Me("txt_詳細リンク" & R).Value, """", "") & "#' "
の部分を
"特記事項詳細 = '" & Me("txt_詳細リンク" & R).Value & "'"
でよさそうです。
あるいは、HyperlinkPart関数でアドレス部分のみ取り出して、
"特記事項詳細 = '#" & HyperlinkPart(Me("txt_詳細リンク" & R).Value, acAddress) & "#' "
通報 ...