アクセス2003で・・・

質問

アクセス２００３を使っています。
Ａテーブルのある項目に「Ａ」か「Ｂ」が入っています。
Ｂテーブルのある項目に「200M」「回1000」「不明」等、こういった類のものが入力されています。

ここから質問なのですが、Ｂテーブルの「200M」「回1000」等の「数字」以外の文字を無視して、残された数字が奇数か偶数か判断をアクセスの機能・関数・ＶＢＡでしたいと思います。

更に、下記の様に条件を組み、結果をアクセスの機能・関数・ＶＢＡでだしたいと思います。

・Ａテーブルの項目がＡかつ、前述で奇数か偶数か判断した、Ｂテーブル「200M」「回1000」等が偶数ならＡ。

・Ａテーブルの項目がＢかつ、前述で奇数か偶数か判断した、Ｂテーブル「200M」「回1000」等が奇数ならＢ。

上記の条件にあてはまらないなら、Ｃとういう結果を新しい項目を作ってみたいと思います。

説明がややこしいと思いますが、よろしくお願いします。

回答No.1

mitarashi · ベストアンサー

当方Access2000なので、2003で動かなかったらご容赦を。
1.標準モジュールに次のコードを貼り付けます。
Option Compare Database
Option Explicit
'条件判定はお気に召すように修正下さい
Function test(target1 As String, target2 As String) As String
If (Val(extractNumeric(target2)) Mod 2) = 0 Then
Select Case target1
Case "A"
test = "A"
Case "B"
test = "B"
Case Else
test = "C"
End Select
Else
test = "C"
End If
End Function

Function extractNumeric(targetString As String) As Variant
extractNumeric = subMatchWord(targetString, "(\d+)")
End Function

Private Function subMatchWord(targetString As String, matchString As String) As String
Dim regEX As Variant
Dim Matches As Variant
Dim match As Variant

Set regEX = CreateObject("VBScript.RegExp")
regEX.MultiLine = False
regEX.Pattern = matchString
regEX.ignorecase = True
regEX.Global = False
On Error GoTo errorHandle
Set Matches = regEX.Execute(targetString)

If Matches(0).subMatches.Count > 0 Then
subMatchWord = Matches(0).subMatches.Item(0)
Else
subMatchWord = ""
End If
Set Matches = Nothing
Set regEX = Nothing
Exit Function
errorHandle:
'Debug.Print Err.Number & Err.Description
subMatchWord = "-1"
End Function

2.Field2というフィールドに、AやBが、Field3というフィールドに数字を含む文字列があるとします。クエリで、新たな列に、test([field2],[field3])という式をいれます。この列に判定されますので、後はテーブル作成クエリに変更するなりして下さい。
（注）Accessでこんな無茶をするとモジュールでエラーがあった時に、エラーが何度でも発生してひどい目にあう事が分かりました。ご注意下さい。
＜実行例＞
id............field2................field3................式1
1..........A..................200M............A............
2..........B..................回100............B............
3..........A..................不明................C................
4..........B..................201r............C............

回答No.2

mitarashi

ANo1の補足です。
読み直してみると、A,Bが入っているのと、数値混じり文字列が入っているのはテーブルが異なるという前提なのですね。しかしながら、判定はクエリで行いますので、両テーブルを結合させて、対象のフィールドを関数に入れてやれば、単一テーブルの場合と同様に出来ると思います。
なお、文字列のマッチングについては、
vba 正規表現　で、検索してみてください。
それほど複雑な条件ではないので、VBA本来の機能でも実現可能かもしれませんが...