Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Access 2016)
Replace関数の記述が分りません。
投稿日時: 18/11/11 23:38:02
投稿者: 縞縞縞

いつも大変お世話になっております。
Replace関数が思うように機能せずに困っています。
ご教授お願いできませんでしょうか。
よろしくお願い申し上げます。
 
【やりたいこと】
 フォーム内に設けたテキストボックス内の文字をReplace関数で置換したい。
 置換する文字は、Table_省略で管理しています。
 該当する文字(表記)があったら(省略文字に)置換をしたい。
 下記にコードを記載します。Replaceの記述が分りません。
 現状では置換しません。
 
【コード】
 Dim temp As String '文字型
 Dim db1 As DAO.Database
 Dim rs1 As DAO.Recordset
 Set db1 = CurrentDb
 Set rs1 = db1.OpenRecordset("Table_省略", dbOpenTable)
 
 temp = Me!テキスト
  Do Until rs1.EOF
     temp = Replace(temp, Chr(34) & rs1!表記 & Chr(34), Chr(34) & rs1!省略 & Chr(34))
   ’↑この記載では置換できません。
     rs1.MoveNext
 Loop
    
 Me!テキスト = temp
 Set rs1 = Nothing
 Set db1 = Nothing
 
 
【Table_省略】の構造とデータ例
 ID、表記、省略
 1、株式会社、(株)
 2、有限会社、(有)
 ・
 ・
 ・    

回答
投稿日時: 18/11/12 00:15:03
投稿者: hatena
投稿者のウェブサイトに移動

縞縞縞 さんの引用:

     temp = Replace(temp, Chr(34) & rs1!表記 & Chr(34), Chr(34) & rs1!省略 & Chr(34))

 
Chr(34)が不要

    temp = Replace(temp, rs1!表記, rs1!省略)


 

投稿日時: 18/11/12 00:22:54
投稿者: 縞縞縞

hatenaさん
早速のお返事誠にありがとうございました。
 
ご指示の通り変更しましたところ、できました。
誠にありがとうございます。
深く御礼申し上げます。