Access VBA 特定の文字より前を抽出したい

実現したいこと

Access VBAにて、特定の文字（"+"）があった場合、特定の文字（"+"）より前を抽出し
無い場合は空欄を返す処理を書きたいです。

例）

abcd+1234　⇒　abcd
abcd1234　 ⇒　（空欄）

発生している問題・分からないこと

Access VBAにて、特定の文字があった場合の切り出し方法が分からない。

該当のソースコード

特になし

試したこと・調べたこと

teratailやGoogle等で検索した
ソースコードを自分なりに変更した
知人に聞いた
その他

上記の詳細・結果

以下のようにinstrやleft関数を用いているのですが、構文エラーになってしまいます。
Left("カラム名", InStr("カラム名", "+") - 1)

補足

特になし

hatena19

2024/04/23 03:54

コードの一部ではなく全体を提示してください。また、そのコードをどこに記述して、どのように実行しているかも提示してください。

行動規範の内容に同意します

回答2件

検索する文字が含まれていないとき、InStr()が0となり、Left()のパラメータが-1となるためエラーとなっています。
減算部分をコントロールするとエラー回避できます。

VBA
1Left([カラム名], InStr([カラム名], "+") - IIf(InStr([カラム名], "+") > 0, 1, 0))

投稿2024/04/23 04:05

sazi

総合スコア25195

ベストアンサー

情報不足ですので、修正依頼してますが、
修正されるまでの、とりあえず研究用のコード

vba
1Public Sub test()
2    Dim str As String
3    Dim pos As Long
4    
5    str = "abcd+1234"
6    'str = "abcd1234"
7    
8    pos = InStr(str, "+")
9    If pos > 0 Then
10        str = Left(str, pos - 1)
11    Else
12        str = ""
13    End If
14
15    MsgBox str
16End Sub