| |
ＪＲＤＢシステム班さんへ
こんばんは。
>基本的にＶＢＡコードなので、同じはずですね。
>当方で「コード変換関数群」はそのまま使っています。
え！そうなのか…
>もしかすると、移行（移植）変換の時に、何らかのエラーが出たかもしれません。
>
>何かエラーが出ますでしょうか？
簡単な構文で試してみると
SELECT getJoumei(Left([D競走馬データ].[レースキー],2)) AS 場名
FROM D競走馬データ
GROUP BY getJoumei(Left([D競走馬データ].[レースキー],2));
「式に未定義関数 'Left' があります」
とエラーが出ます。
保存してたモジュールは
〜〜〜〜
Option Compare Database
Option Explicit
'
'コード変換関数群
'
'*** 性別コード ***
Function getSei(strCode) As String
Select Case strCode
Case "1"
getSei = "牡"
Case "2"
getSei = "牝"
Case "3"
getSei = "セ"
End Select
End Function
'*** 芝ダ障害コード ***
Function getShibadaCD(strCode) As String
Select Case strCode
Case "1"
getShibadaCD = "芝"
Case "2"
getShibadaCD = "ダ"
Case "3"
getShibadaCD = "障"
End Select
End Function
'*** 厩舎所属コード ***
Function getKisyuShozoku(strCode) As String
Select Case strCode
Case "1"
getKisyuShozoku = "栗東"
Case "2"
getKisyuShozoku = "美浦"
End Select
End Function
'*** 場コード ***
Function getJouMei(strCode) As String
Select Case strCode
Case "01"
getJouMei = "札幌"
Case "02"
getJouMei = "函館"
Case "03"
getJouMei = "福島"
Case "04"
getJouMei = "新潟"
Case "05"
getJouMei = "東京"
Case "06"
getJouMei = "中山"
Case "07"
getJouMei = "中京"
Case "08"
getJouMei = "京都"
Case "09"
getJouMei = "阪神"
Case "10"
getJouMei = "小倉"
End Select
End Function
〜〜〜〜
これですね。
まだまだあるんですが、一部抜粋しています。
昔のアクセスで作成してたものをそのまま保存してあったのですが…
|
|
- 18/8/17(金) 21:04 -
