アクセスで教えてください。 電話番号 000-0000-0000あった場合、 クエリで 000 00

アクセスで教えてください。
電話番号 000-0000-0000あった場合、
クエリで
000 0000 0000
と列を分けたいのですが、どのようにしたらよいでしょうか？

初心者です。
わかりやすく教えていただけると幸いです。

No.4 回答者： bonaron 回答日時： 2022/06/29 16:53

ユーザー定義関数を使う例です。

[電話番号]が未入力の場合にも対応しています。
数字とハイフン以外が含まれる場合の動作は不定です。

Function TelPart(ByVal Tel As Variant, num As Integer) As Variant
Dim ret As Variant
Dim tmp As String
tmp = Nz(Tel, "") & "--"
ret = Split(tmp, "-")(num)
If IsNumeric(ret) Then
TelPart = ret
Else
TelPart = Null
End If
End Function

【クエリ】
電話番号1: TelPart([電話番号],0)
電話番号2: TelPart([電話番号],1)
電話番号3: TelPart([電話番号],2)

No.3 回答者： ひでオンジ 回答日時： 2022/06/27 17:11

ShowMeHowさん

標準モジュールに作った関数もクエリで使用出来るんですね
勉強になりました

richihaさん
ちょっと難しいかもですが、下記の手順でも可能っぽいです
①データベースツールのメニューからVisual Basicをクリック
②プロジェクトエクスプローラーからデータベースを右クリック
　標準モジュールを挿入
③エディタに下記のコーディングをコピペ
==============コーディング内容==================
Public Function SplitTelLeft(strString As String, strDelimiter As String)
Dim strSplit() As String
strSplit = Split(strString, strDelimiter)
SplitTelLeft = strSplit(0)
End Function

Public Function SplitTelMid(strString As String, strDelimiter As String)
Dim strSplit() As String
strSplit = Split(strString, strDelimiter)
SplitTelMid = strSplit(1)
End Function

Public Function SplitTelRight(strString As String, strDelimiter As String)
Dim strSplit() As String
strSplit = Split(strString, strDelimiter)
SplitTelRight = strSplit(2)
End Function
==============コーディング内容==================

④クエリの列を定義
式4: SplitTelLeft([電話番号],"-")
式5: SplitTelMid([電話番号],"-")
式6: SplitTelRight([電話番号],"-")

No.2 回答者： ひでオンジ 回答日時： 2022/06/27 16:48

頑張りました

単純にハイフン（-）～ハイフンまでの文字の位置を調べて区切っています

式1: mid([電話番号],1,InStr([電話番号],"-"))
式2: mid([電話番号],InStr([電話番号],"-")+1,InStrRev([電話番号],"-")-InStr([電話番号],"-")-1)
式3: mid([電話番号],InStrRev([電話番号],"-"))

これとは別でサクラエディタで正規表現の置換が有ります
ExcelやAccessの列は基本、タブで区切られているので"-"をタブに置換してしまおうという考えです
サクラエディタで置換するときに、"-"を"￥t"(半角で指定)に置換して結果をデータとして貼り付ければ結果は同じです

No.1 回答者： ShowMeHow 回答日時： 2022/06/27 16:35

上記のケースだけであれば、

left([電話番号],3)
mid([電話番号],5,4)
right([電話番号],4)
で対応できます。

00-0000-0000
のようなケースも混在するのであれば、
（split関数を使って）独自の関数を作って、クエリで呼び出すのが楽だと思います。