アクセスで

質問

アクセスでエクセルのＳＥＡＲＣＨ関数みたいなことをするにはどうすれば良いのでしょうか？
エクセルだと
　　Ａ
1　ＡＢＣ－Ｄ
2　ＡＢＣＤＥＦ－Ｇ
のハイフン前でを取りたい時は
「LEFT(A1,SEARCH("-",A1,1)-1)」
で下にオートフィルすれば良いと思います。
アクセスだとどうすれば良いでしょうか？

回答No.2

imogasi · ベストアンサー

ＶＢＡで良ければ
ＶＢの関数（もっと前のＭＳＢａｓｉｃ以来の関数）にあるＩｎｓｔｒ関数を使えば良い。
エクセルＶＢＡでも使えます。
Sub test02()
x = Cells(8, "a")
p = InStr(x, "-")
MsgBox p
y = Left(x, p - 1)
MsgBox y
End Sub
エクセルで無い場合はx = Cells(8, "a")
を例えば　X="abcd-e"とするとアクセスＶＢＡでも使えます。

回答No.1

how-do-you-do

t = "ABCDEF-G"
t = Left(t, Instr(1, t, "-") - 1)
Msgbox t