Access SQLを使ったソートがずれる
Access2003で以下のfunctionを組みました。
*************************************
Dim SQL As String
Dim strList As String
SQL = ""
strList = ""
'サブテーブルの削除
SQL = "DELETE * FROM SUB_T"
CurrentProject.Connection.Execute SQL
SQL = "INSERT INTO SUB_T SELECT Master_T.* FROM Master_T WHERE "
With Forms!SEARCH!
'検索条件がnullの場合
If IsNull(.CODE_SRH) Then
SQL = "INSERT INTO SUB_T SELECT Master_T.* FROM Master_T"
End If
'コードの条件
If .CODE_SRH <> "" Then
strList = "Master_T.CODE Like '" & .CODE_SRH & "%'"
End If
End With
SQL = SQL & strList & " ORDER BY (val(CODE))"
CurrentProject.Connection.Execute SQL
*************************************
Master_T テーブルの CODE は テキスト型
内容は以下のとおり
"001","あいうえお",....
"003","さしすせそ",....
"002","かきくけこ",....
"013","GHI",....
"011","ABC",....
検索条件Nullの場合SUB_T テーブルには
"001","あいうえお",....
"002","かきくけこ",....
"003","さしすせそ",....
"011","ABC",....
"013","GHI",....
とインサートされるはずですが、何回か実行すると・・・・
"003","さしすせそ",....
"011","ABC",....
"013","GHI",....
"001","あいうえお",....
"002","かきくけこ",....
こんなだったり
"011","ABC",....
"013","GHI",....
"001","あいうえお",....
"002","かきくけこ",....
"003","さしすせそ",....
このような感じに並びます。
試しに、明示的に"ORDER BY (val(CODE)) ASC"にしても
また降順ではどうかと思い、"ORDER BY (val(CODE)) DESC"にしても
同じ現象が出ます。
コードの条件を入れても同様な現象が出ます。
何が原因なのかさっぱり分かりません。
Accessのどこかを確認すべきか、VBAを見直すべきなのか
ご教授いただきたいです。
お礼
ご回答ありがとうございました。 ja7awuさんの回答のとおりです、見事できました。 ありがとうございました。