|
いまさらですが、現在改造したフォームが正常に動いています。
ただし、環境設定テーブルを使っているのですが、そこを改造すると動かなくなります。再度その部分を載せますと、
If IsNull(Me.検索ワード) = False And Len(Me.検索ワード) <> 0 Then
strSearch = "SELECT * FROM 環境設定 WHERE 選択フラグ=1;"
recN.Open strSearch, cnn, adOpenDynamic, adLockReadOnly
If recN.EOF = False And recN.BOF = False Then
strSQL = strSQL & "WHERE " & recN(CInt(Me.検索区分)).Name & " "
Select Case recN(CInt(Me.検索区分))
Case 0
strSQL = strSQL & "='" & Me.検索ワード & "' "
Case 1
strSQL = strSQL & "LIKE '" & Me.検索ワード & "%' "
Case 2
strSQL = strSQL & "LIKE '%" & Me.検索ワード & "' "
Case 3
strSQL = strSQL & "LIKE '%" & Me.検索ワード & "%' "
End Select
End If
recN.Close
End If
となっていて、環境設定テーブルを読みに行くようになっています。
元のテーブルは5項目、5列あったわけですが、当方フォーム上で選択ボタンを5つから3つに改造したので、それにあわせ環境設定テーブルを3列にしたところ
2つの項目、JANコードと商品名では検索できるものの、分類コードではまた反応しなくなりました。改めて環境設定テーブルを元に戻すと正常に動きます。これはどういうことなのでしょうか。どなたか教えてください。
|
|