Access 式ビルダー 修正

Question

前提・実現したいこと

Accessのレポートにクエリの値を表示する際に、クエリの値のうち一部の文字だけ表示するというシステム作成しています。

現在、対象のフィールドの値に、『部』が含まれる場合、『部』の１つ手前までを表示し、『部』が含まれない場合は、文字列のすべてを表示することに成功したのですが、
これを改変し、『部』が含まれる文字列のうち、『部』の後ろに（）がない文字列は、
『部』の１つ手前までを表示し、『部』の後ろに（）がある文字列は、（）で囲まれた文字列だけを表示したいのですが、どのように修正すればよろしいでしょうか？
（）がある場合、（の文字位置は、毎回異なります。

該当のソースコード

=Left([係名],InStr(1,[係名] & "部","部",0)-1)

Answer 1

iif()を使用して、like で()があるか判定し、instr()で抽出すれば良さそうですけど。
今後も変更がありそうなら、式が複雑になりそうですから、ユーザー関数で対応した方が良さそうですけどね。

Comments

[Yoshikun_0945]

ご回答いただきまして誠にありがとうございました。
大変助かりました。

Answer 2

テキストボックスを２つ追加して下記のように設定します。

名前 P1
コントロールソース　=InStr(1,[係名],"（",0)
可視　いいえ

名前 P2
コントロールソース　=InStr(1,[係名],"）",0)
可視　いいえ

現状のテキストボックスのコントロールソースを下記のように変更します。

=IIf([P1]>0 And [P2]>[P1],Mid([係名],[P1]+1,[P2]-[P1]-1),Left([係名],InStr(1,[係名] & "部","部",0)))

同様の処理が他にもあったり、変更の可能性があるなら、ユーザー定義関数を作成しておくといいでしょう。
標準モジュールに下記の関数を作成します。

Public Function get係名(v As Variant) As String

    If IsNull(v) Then Exit Function
    
    Dim P1 As Long: P1 = InStr(1, v, "（", vbBinaryCompare)
    If P1 > 0 Then
        Dim P2 As Long: P2 = InStr(1, v, "）", vbBinaryCompare)
        If P1 < P2 Then
            get係名 = Mid(v, P1 + 1, P2 - P1 - 1)
            Exit Function
        End If
    End If
    
    get係名 = Left(v, InStr(1, v & "部", "部", vbBinaryCompare))

End Function

テキストボックスのコントロールソースに下記の式を設定

=get係名([係名])

Comments

[Yoshikun_0945]

ご回答いただきまして誠にありがとうございました。
大変助かりました。