VBA DSum не работает в доступе

Question

У меня установлен следующий код для суммирования поля суммы в моем запросе qryExpenses.

Private Sub Command18_Click()
   Dim txtExpense As Currency
   txtExpense = DSum("Amount", "qryExpenses")    
End Sub

По какой-то причине это не тянет сумму в мою форму. Я что-то пропустил?

Answer 1

В настоящее время вы объявили переменную для хранения общей суммы, вы извлекаете сумму с помощью DSum(), но не присваиваете ее значение элементу управления textbox. Кроме того, я считаю, что вы дали переменной то же имя, что и элементу управления Textbox.

Если это так, измените имя переменной на что-то значимое, а затем присвойте его значение элементу управления textbox.

Private Sub Command18_Click()

    Dim totalExpense As Currency
    totalExpense = DSum("Amount", "qryExpenses") 

    Me.txtExpense.Value = totalExpense 
End Sub