string - クエリでの MS Access 文字列操作

Question

Access では、次の規則に従うフィールドに ID があります。xx=Daniel Lane/Other info

=Access クエリでは、との間から名前を抽出するにはどうすればよいですか?/

Answer 1

クエリが呼び出すことができるカスタム VBA 関数を定義します。

Function ExtractName(Value)
  If IsNull(Value) Then GoTo Invalid
  Dim EqualsPos As Long, StrokePos As Long
  EqualsPos = InStr(Value, "=")
  If EqualsPos = 0 Then GoTo Invalid
  StrokePos = InStr(EqualsPos + 1, Value, "/")
  If StrokePos = 0 Then GoTo Invalid
  ExtractName = Mid(Value, EqualsPos + 1, StrokePos - EqualsPos - 1)
  Exit Function
Invalid:
  ExtractName = Null
End Function