アクセスで文字列の特定の文字の置換について…
アクセスで文字列の特定の文字の置換について…
------------------- m(__)m -------------------
「Qメッセージ」を基に「Fメッセージ」があります。
Qメッセージに「ID, Msg_Taitoru, Msg_Txt, 顧客名,
郵便番号, 住所, 発送方法」などの各フィールドがあります。
FメッセージにはQメッセージの「DateTxt」の他に「非連
結のTxt_Msg」があり、その「Txt_Msg」にフォームの
開く時イベントで「QメッセージのMsg_Txt」のデータの文
字列を代入しています。
代入した文字列の特定の文字を「Qメッセージ」の各データ
から置換えたいです。
文字列の特定の文字が[顧客名]・[郵便番号]・[住所]・[発
送方法など]です。
他のサイトを参考に自分なりにやって視たのですが…・
------------------- m(__)m -------------------
Private Sub cmd_Msg_Click()
Dim msg_bun As String
msg.bun = Me.txt_Msg
msg.bun = Replace(msg_bun, "[顧客名]", tName)
tName = RTrim(DLookup([Txt_顧客名]).Value)
msg = body.SendMail(msg_bun, "")
End Sub
コンパイルエラー：
引数は省略できません
と出ます。
----------------------------------------------
いつもお世話になるばかりですいません<m(__)m>
ご教授よろしくお願い致します。
お礼
なるほど～！そういう考えがありましたか！！！ 助かりました。ありがとうございました。