最大数を取り出し数値を比較したい

Question

初めまして、
VBAのクエリで最大数値と　エクセルのセルの数値を比較してエクセル側の数値がDBと比較して多いときのみ
最大数です。と表示させたいのですが、現在は
数値を比較して、多くても少なくても同じ結果になり、最大数です。　のメッセージがでます。

降順にはしてるのですが、何かsetできていないので　ただ並べ替えただけの状態なのではと考えていますが
具体的にどうすればいいかわからず、、申し訳ありませんが
アドバイスをどうかお願いいたします。

※追加箇所：ここから
DBはACCESSになります。データベースの定義は
販売合計　テーブルは

伝票番号 整数
枝番 整数
受注番号 可変長
コード 文字列
数量 倍精度
単価 金額
調整額 金額

販売データ　テーブルは

伝票番号 整数
得意先コード　文字列
発行日 日付
納品日 日付
請求月度 整数
売上額 金額
消費税 金額
調整額 金額
となります。
※ここまで　

Public Const 最大数注意行 As Long = 1
Public Const 受管_最大発注警告列 As Integer = 14
Public Const 数量列 As Integer = 14


 If Cells(最大数注意行, 最大数注意列).Value <> 1 Then		
            QryString = "SELECT TOP 1 販売データ.数量" _		
              & " FROM 販売データ" _		
              & " LEFT JOIN 販売合計 ON(販売データ.伝票番号 = 販売合計.伝票番号)" _		
              & " WHERE ((販売データ.コード)" _		
              & " OR (販売データ.コード NOT LIKE '1%' AND 販売データ.得意先コード = '" & Trim$(Cells(対象行I, 得意先コード列).Value) & "'))" _		
              & " AND 販売データ.数量 > " & 数量i _		
              & " ORDER BY 販売データ.数量 DESC"		
            rstData.Open Source:=QryString, ActiveConnection:=ConI, CursorType:=adOpenStatic		
		
		
                If QryString > Trim$(Cells(対象行I, 数量列).Value) Then		

            rstData.Open Source:=QryString, ActiveConnection:=ConI, CursorType:=adOpenStatic


                If QryString > Trim$(Cells(対象行I, 数量列).Value) Then
                      If MsgBox("最大数です" & vbCrLf & "中断しますか？", vbYesNo) = vbYes Then
                        Set rstData = Nothing
    
                        Exit Sub
                        Else
                        MsgBox ("進みます")
                        
                  End If
            End If
            rstData.Close
        End If

Comments

[m.ts10806]

対象のDBはACCESSですか？タグもそうですがテーブル定義も提示されたほうが良いです

[No77]

初心者ですみません。アドバイス有難うございます。

[m.ts10806]

「質問への追記修正依頼」です。
指摘内容は質問編集して返してください。

Answer 1

コードの抜粋のようですので、コードの正誤の判断はできませんが、
下記のコードを挿入して実行してから、イミディエイトウィンドウを確認してみれば、
期待する結果にならない理由は分かると思います。

    '前略

        Debug.Print QryString  'これを挿入
        If QryString > Trim$(Cells(対象行I, 数量列).Value) Then


    '後略

次に下記のように修正してから、実行してみてください。

    '前略

        Debug.Print rstData!数量  'これを挿入
        If rstData!数量 > Trim$(Cells(対象行I, 数量列).Value) Then


    '後略

Comments

[No77]

お世話になっております。情報が不足しているのにもかかわらず、アドバイスをありがとうございます。
Debug.Print rstData!数量　を追加しましたら　empty が返りました。

クエリ文を見直し修正しましたところ数値が入るところまで行きました。

この取り出した数値は現在見ている　比較したい数値　と　同じ数を比較している状態になりました。
If 数量i> Trim$(Cells(対象行I, 数量列).Value) Then
( 数量i　は　５　セルの値も　５　と）
両方比較したい対象となっております。
過去のデータ　と　現在のセルの値を比較したいのですが、
top 1にしているからダメなのでしょうか？

[hatena19]

SQLでは、数量で降順にして TOP 1 を取得してますので、数量の最大値になると思いますが、そうなってませんか。
実際のテーブルデータやセルデータの情報がないのでこれ以上のアドバイスは難しいです。

[No77]

アドバイスをありがとうございました。
異なる数値を取り出したり、sql文が全くできていないことに原因がありそうですので、
debugの方法を教えていただきまして、これを活用して取り出してやってみます。
自分で説明がうまくできないところもありましたのにもかかわらず
アドバイスをありがとうございました。