|
前回の続きで恐縮ですが、検索フォームで3つの検索テーマボタンがあって
そのうちのひとつを改造したのですが結果が出てきません。
Private Sub 検索_Click()
Dim cnn As ADODB.Connection
Dim recN As ADODB.Recordset
Dim recM As ADODB.Recordset
Dim strSQL As String
Dim strSearch As String
Set Me.Recordset = Nothing
Me.商品分類コード.ControlSource = ""
Me.JANコード.ControlSource = ""
Me.商品名.ControlSource = ""
で、「商品分類コード」の部分を差換えたのですが、ここをチェックボタンで選択して検索ボタンを押すと、なにも結果が返ってきません。
JANや商品名を選ぶと、該当データがずらっとでてくるんですが。
コードの名前、テーブルの名前をチェックしても、すべて差換えた状態なのですが、どこか見落としているんでしょうか。なにが悪いのかまったく見当が付きません。ありがちな間違いがあればご指摘ください。
宜しくお願いします。
|
|