Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Pioner
Какой-то дебилизм, сижу, смотрю во все глаза и не понимаю, где ошибка.

Вот такой код:


    Select Case intQ
        Case 1
            strSQL = "SELECT Sum(SumOfCommission) AS Total FROM qryAboveBucketSPIFF " _
                & "WHERE A2 <= #10/25/2008# "
            Debug.Print strSQL
            
        Case 2
            strSQL = "SELECT Sum(SumOfCommission) AS Total FROM qryAboveBucketSPIFF " _
                & "WHERE A2 BETWEEN #10/26/2008# AND #01/24/2009# "
            Debug.Print strSQL
        
        Case 3
            strSQL = "SELECT Sum(SumOfCommission) AS Total FROM qryAboveBucketSPIFF " _
                & "WHERE A2 BETWEEN #01/25/2009# AND #04/25/2009# "
            'Debug.Print strSQL
        
        Case 4
            strSQL = "SELECT Sum(SumOfCommission) AS Total FROM qryAboveBucketSPIFF " _
                & "WHERE A2 BETWEEN #04/26/2009# AND #07/25/2009# "
            'Debug.Print strSQL
                
        Case Else
            strSQL = "SELECT Sum(SumOfCommission) AS Total FROM qryAboveBucketSPIFF "
            rst.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
            'Debug.Print strSQL
    End Select
    
    rst.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
    
    If rst.EOF Then
        TotalSpiff = 0
    Else
        TotalSpiff = rst!Total
    End If



когда смотрю величину сгенерированную в SQL строке, получается правильная величина Х.

rst!Total выдает величину Х/2, то есть, ровно в 2 раза меньшую. Ничего не понимаю.


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.