人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

素人です。解決時500PT
アクセスで以下の通りの文字列で置き換えをしようとしましたら、うまく行きません。
改行を含んでいるからだと思うのですが、
データから改行を取り去る方法があると以下のURLで教えていただきました。
http://q.hatena.ne.jp/1156520575
しかし、手順が分かりません。
詳しい手順を教えていただけないでしょうか

↓こちらを↓
ter>
<table width="85%" bgcolor="#CCCCF

↓こちらに変換する↓
ter><b><Font Size="3" Color="#ff6600">ようこそ!<br><br></Font></b><table width="85%" bgcolor="#CCCCF

●質問者: y7ujmnhy
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:URL いるか アクセス データ 文字列
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● kissmint
●6ポイント

アクセスで変換したい文字列がはいっている変数にREPLACE関数を使えば改行を削除できます

private sub formLoad()

sData = test(改行を消したい文字列)

end sub

Public Function test(sData as string) as string

sData = replace(sData ,vbcrlf,"")

end Function


2 ● llusall
●0ポイント

VBAとクエリで置換するサンプルを紹介します。


「テーブル1」というテーブルにある、「Z367L」というフィールドを置換する例です。

適宜、変更するなどして対応してください。


前提

データの入っているテーブルを「テーブル1」とします。

データの入っているフィールドを「Z367L」とします。


■VBA 置換用の関数を作成

1.データベースウィンドウの「モジュール」を押し(アクティブにして)、[新規作成]を押します。

Microsoft Visual Basic のエディタが開かれます。


2.以下関数をコピーして貼り付けます。(追加します)

'文字列を整える関数

Public Function ChangeChr(ByVal s As String) As String

    Dim x As String

    ChangeChr = ""

    '改行は、スペース1つに置換

    s = Replace(s, vbCrLf, " ")


'ここから この処理が不要の場合は、シングルクウォーテーションでコメントとしてください。

    'スペース2つは、1つに置換

    x = ""

    Do Until s = x

        x = s

        s = Replace(s, "  ", " ")

    Loop

'ここまで


    ChangeChr = s

End Function

3.保存します。(メニューの[ファイル]より、[XXXXXの上書き保存]を押す)

そして、エディタを閉じます。


■更新クエリ作成

1.データベースウィンドウの「クエリ」を押し(アクティブにして)、[新規作成]を押します。

[新しいクエリ]ダイアログが表示されますので、[デザインビュー]を選択して、OKを押します。


2.テーブルの選択

[テーブルの表示]ダイアログが表示されますので、対象とする[テーブル1]を選択して、追加を押します。

そして、ダイアログを閉じます。


3.更新クエリにする

メニューの[クエリ]より、[更新]を押して、更新クエリにします。


4.置換するフィールドの追加

[テーブル1]より、置換するフィールドの[Z367L]をダブルクリックして、グリッド列に追加します。


5.関数のセット

グリッド列の[レコードの更新]というところに、

ChangeChr([Z367L])

を入力します。


6.更新クエリの実行

メニューの[クエリ]より、[実行]を押して、更新クエリを実行します。


※なお、たくさんポイント頂いているので、ポイント不要です。

◎質問者からの返答

ありがとうございます。

■VBA 置換用の関数を作成

は分かりました。

3。の保存ができたのでそのモジュールを開いたところをキャプチャしました。

http://briefcase.yahoo.co.jp/bc/kaiya999/lst?&.dir=/%a5%de%a...

(001.bmpです。)

■更新クエリ作成

で1.2.3.は分かりました。

しかし、4でつまづきました。

上記 ブリーフケースの002.bmpの赤丸で囲んでいる位置をWクリックしましたが

何も反応がありませんでした。

5.6.は003.bmpの画面の中での操作の事だと思うのでできそうです。

また、改行を削除したいのは7000レコードの中の1000レコードほどで、

上記の処理でも一括して削除というのが可能でしょうか?

どうぞよろしくお願いします。


3 ● llusall
●500ポイント

こちらのような感じでクエリを作成して、実行してみてください。

◎質問者からの返答

ありがとうございます!

できました。

本当に助かりました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ