• ベストアンサー

句読点の「。」を改行するには?

テーブルに あああ。いいい。ううう。 の値がフィールドに入っているのですが、 あああ。 いいい。 ううう。 にしたいです。 データ型はメモ型です。 UPDATE テーブル1 SET [テーブル1].test = Replace([テーブル1]![test],"。",Chr(13)); このようなクエリを作ったのですが、 実行するとなぜか あああ いいい ううう になってしまいました。 エラーになると思ったのですが・・・ そもそもChr(13)はvbaのコードだから更新クエリでは無理ってことですかね? どうやったらテーブルのデータを改行できますか?

質問者が選んだベストアンサー

  • ベストアンサー
  • m3_maki
  • ベストアンサー率64% (295/459)
回答No.2

UPDATE テーブル1 SET [テーブル1].test = Replace([テーブル1]![test],"。","。" & Chr(13) & Chr(10)); ではいかがでしょうか。

NUYFVQGVOBRXO
質問者

お礼

ご回答ありがとうございました。

その他の回答 (1)

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.1

次のようにしてはどうでしょう。 UPDATE テーブル1 SET [テーブル1].test = Replace([テーブル1]![test],"。","。"&Chr(13));

NUYFVQGVOBRXO
質問者

お礼

早速やってみました が、結果は変わりませんでした・・・ 改行されません。 当方アクセス2010です。

関連するQ&A

  • と改行を含んだデータが入ってるのですが

    アクセスのレコードに 水300cc 味噌13g と改行を含んだデータが入ってるのですが VBAでこの改行を置換するにはどうすれば良いのでしょうか? str置換前 = Chr(10) & Chr(13) str置換後 = "," strSQL = "UPDATE テーブル Set テーブル.[フィールド] = """ & str置換後 & """ WHERE (テーブル.[フィールド])=""" & str置換前 & """;" DoCmd.RunSQL strSQL としても置換できませんでした。

  • 改行コード

    アクセス2000で作成したテーブルをCSVにはきだしているのですが、あるフィールドのデータに改行コードが入っています。 クエリで、フィールド内のデータの改行コードを省くということは出来るのでしょうか?

  • Access VBAからエクセルに出力時の改行コード

    こんにちは。 VBAのローカルテーブルのデータをエクセルに出力するという処理を 作っています。 データには改行コードも含まれており、 エクセルに出力すると、改行が「・」(中点)で表示されてしまい、 困っていろいろ調べてみたら、以下のURLのサイトを見つけて http://support.microsoft.com/kb/822372/ja 解消できた!と思ったのですが、ローカルテーブルでメモ型のフィールドが あるのですが、そのメモ型の項目のデータだけ、改行が「・」で 表示されてしまっています。 メモ型はダメなのでしょうか? 何かご存知の方いらっしゃいましたら宜しくお願いいたします。

  • リッチテキストボックスの改行挿入について

    初めまして。Access初心者のものです。 下記リッチテキストボックスがフォーム上に2つあります。 →TextBox1 (連結)     連結先のメモ型フィールドの設定は、リッチテキストに設定してあります。 →TextBox2 (非連結) 下記、VBAを記述しましたところ、改行がうまくされず困っています。 TextBox1 = 変数 & "入力しました。" & Time & Chr(13) & Chr(10) & _ "----------------------------------" & Chr(13) & Chr(10) & _ TextBox2 & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ TextBox1 TextBox2 = "" リッチテキストボックスに格納されるデータは、下記のようになります。 変数 入力しました。 17:00:00---------------------------------- TextBox2 TextBox1 希望は、下記のようにデータを格納させたいです。 変数 入力しました。 17:00:00 (改行あり) ----------------------------------(改行あり) TextBox2(改行あり) (改行あり) TextBox1 解決策がありましたら、ご教授頂ければ幸いです。 よろしくお願いいたします。

  • ACCESSでの改行コード

    ACCESSでの改行コードの入力方法を確認させてください。 ACCESSのテーブルにテキスト型のフィールドを用意し、一つのフィールドに改行が入ったデータを入力したいと考えています。 以下の方法を試してみましたが、改行コードが入っていないように思えます。 1.エクセルで一つのセルで、ALT+ENTERで文字列を入力し、テーブルにデータをインポート。 2.上記エクセルのデータをCSVで保存したものをテーブルにインポート。 これら2つのデータをテーブルで確認すると、改行はされていないですし、テーブルのデータをエクスポートしたものも改行はされていませんでした。 フィールドの設定で何か必要なんでしょうか? それとも、テキスト型のフィールドには改行コードを持てないんでしょうか?

  • データからの不要コード削除

    SQL Server にあるテーブルとテキストファイル間のインポート時のトラブルです。どなたかご教示お願いします。 1.テーブルQA にデータが入っています Answerフィールドはvarchar(500) 2.1のデータをテキストファイル(タブ区切り) にエクスポートする>QA.txt 3. QA.txt から SQL のテーブルにデータをインポートすると エラーとなる 原因:Answer フィールドに改行などのコードが含まれていて テキストファイルに落としたときに これらのコードにより改行されたりして フィールドの形態が壊れているから (QA.txtエクセルで開いて確認) SQL上で テーブル内のデータからこれらのコードを削除する作業を行った上でテキストファイルにエクスポートすればよいかと思いますが その削除するコードはどのように指定すればよいでしょうか。 改行が含まれているようだったので下記を実行しましたが それでも不要コードがまだ残っています。 update QA set AnswerName = replace(answerName,' ', '') where AnswerName like '% %' よろしくお願いいたします。

  • アクセス VBA クエリSQL文変更

    以前、教えていただいたにもかかわらず、作業が上手くいったことで、理解を深めることを疎かに してしまい、一部を修正したところ、わからなくなってしまいました。 申し訳ございませんが、教えてください。 Xと同一の構成である X1~という複数のテーブルから一つを選択して、クエリYを実行 クエリYは、フィールド1の値が BBBであるレコードの、フィールド1、3、5を抽出 Dim dbs As DAO.Database Dim qrdef As DAO.QueryDef Set dbs = Currentdb Set qrdef = dbs.QueryDefs("クエリY") qrdef.SQL = Replace(Expression:=qrdef.SQL _         , Find:="テーブルX" _         , Replace:="テーブルX1" _         , Compare:=vbTextCompare) Set qrdef = Nothing Set dbs = Nothing 実行時エラー3075  クエリ式'テーブルX1.フィールド1'の構文エラー:演算子がありません デバッグ qrdef.SQL = Replace(Expression:=qrdef.SQL _         , Find:="テーブルX" _         , Replace:="テーブルX1" _         , Compare:=vbTextCompare) 元となるクエリを直接実行すると正しく動作します。

  • vba 改行 「・・」が置換できない

    シートの文字を取得して、削除したい文字を置換で消そうと思うのですが、 変数に格納した値にマウスカーソルを充てると、「・・」と表示され、置換できません。 ?mystr とすると、 改行が返ります。 mystr = Replace(mystr, Chr(10), "") mystr = Replace(mystr, Chr(13), "") mystr = Replace(mystr, vbCr, "") mystr = Replace(mystr, vbCrLf, "") mystr = Replace(mystr, Chr(10) & Chr(13), "") mystr = Replace(mystr, Chr(10) + Chr(13), "") で置換を試みましたが、全部だめです。 Debug.Print Asc(mystr) とすると、9が返ります。 この文字はどうやったら置換で消せるのでしょうか?

  • 改行コードについて教えてください

    EXCEL VBAでの改行コードが分からないので教えてください。 Chr(13)キャリッジリターンとChr(10)ラインフィードはどう違うんでしょうか? 宜しくお願い致します。

  • 一つのSQLで実行する方法

    SQL初心者です。以下のような商品テーブルの備考欄の文字列をアップデートするSQLですが、ひとつのSQL文で実行させるにはどのように記述すれば良いかお教えいただけませんでしょうか? UPDATE 商品テーブル SET 備考フィールド = replace(備考フィールド,'%明太子味',''); UPDATE 商品テーブル SET 備考フィールド = replace(備考フィールド,'のり味',''); UPDATE 商品テーブル SET 備考フィールド = replace(備考フィールド,'みそ味','');

専門家に質問してみよう