今日一日考えたのですが、解決できずお力をお借りいただけますでしょうか?
テーブルのレコード内の文章に半角スペースが含まれていないかをチェックしたいと思います。
下記のように半角スペースを★へ置換したいのですが、空欄のレコードがエラーとなります。
エラーを非表示にしたいのですが、どうやっても無理でした。
宜しくお願いします。
Function DelSpc(str As String) As String
Spc = Replace(str, " ", "★", 1, -1, 0)
End Function
No.3ベストアンサー
- 回答日時:
えっと、、、
このようなクエリ(0を””に書き換えた)を作って、事前に実行させて対応しましたという意味です。
テーブル上でnull不可、デフォルトでブランク(””)としておけば以後発生しなくなると思います。
https://www.feedsoft.net/access/guide-query/guid …
なるほど、、、デフォルトでnullを不可にすれば、今後はOKそうですね。
今までのデータは、更新クエリを使ってみたいと思います。
ありがとうございます。
No.2
- 回答日時:
更新クエリで事前にデータをブランクに書き換えておくという意味でした。
>どうしてでしょう。。。
アクセスの環境が今ありませんのでチェックできないのですが、たぶん、replace関数はヌル値には対応できない、ということでしょうから、どうしてもファンクション一発で処理したいとのことでしたら、エラーハンドリングして捕まえたらブランク返すとか、、、汚いやり方しかないかもしれません。
ご回答ありがとうございます。なんか難しそうですね。
アクセスやVB等は初心者で、いろいろなサイトを参考にさせてもらってます。
あきらめたほうがよさそうですね。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】フォルダを3つ、POモニター上に、決まった並べ方をしたい 4 2022/08/31 11:05
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます 1 2022/10/15 16:30
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Excel(エクセル) 【マクロ】フォルダを2つのモニターの定位置に並べたい 2 2022/09/02 01:14
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ADOでループすると1レコードず...
-
Access VBA
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
「直需」の意味を教えてください
-
Access テキスト型に対する指定...
-
BLOB型のPDF出力の方法
-
ACCESSのクエリで集計で、先頭...
-
作番ってどういう意味でしょうか?
-
エクセルグラフの凡例スペース
-
アクセス メモ型 255文字...
-
Oracle 2つのDate型の値の差を...
-
accessで重複を防ぎたい
-
Accessのリンクテーブルのパス...
-
Accessでテーブル名やクエリ名...
-
Accessレコードの追加や変更が...
-
3つの表を1つに縦に連結する
-
異なるサーバのDBデータ同士を...
-
Accessクエリーで両方のテーブ...
-
Vbaでアクセスからエクセルにリ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
access count数を変数に格納
-
「更新に必要なキー列の情報が...
-
access2000でつまづいてます
-
Accessの更新前処理について。D...
-
AceessVBA 非同期処理について
-
半角スペースの置換でエラーを...
-
ACCESSのFindコマンドが遅い
-
Access VBAで自動連番を振るには
-
[Access]削除時のエラーメッセ...
-
ACCESS、EXCELの限界?
-
AccessVBAについて
-
Set rst = db.OpenRecordset("S...
-
VBScript+SQLServerでcountがう...
-
VisualBasic6.0 SP3 (←注) Acc...
-
Access VBA
-
VB2005でAddNew()
-
VB2010のSQLを使ったレコードカ...
-
access vbaでクエリデータの中...
-
cobolのカーソルについて
-
ADOでループすると1レコードず...
おすすめ情報
下記でもダメでした。。。どうしてでしょう。。。
Function Spc(str As String) As String
Spc = Replace(Nz(str, ""), " ", "★", 1, -1, 0)
End Function