результат от Dsum не добавляется при использовании переменной

Question

Я получил неправильный ответ на DSum, используя переменную.если я добавлю информацию об исправлении, если он получит правильный ответ.

I Если все так, то все работает нормально

xDefect = Nz(DSum("[defects]", "PO_Details", "Fornecedor = 'QMY'"), 0)

результат QMY10

, если я делаю с переменной

Dim xForner As Variant
Dim xDefect As Byte

xForner = Me.Fornecedor

xDefect = Nz(DSum("[defects]", "PO_Details", "Fornecedor = ' & xforner & '"), 0)
MsgBox "missing:" & xForner & xDefect

результат QMY0

Answer 1

Вы должны объединить переменную:

xDefect = Nz(DSum("[defects]", "PO_Details", "Fornecedor = '" & xforner & "'"), 0)

Answer 2

Debug!Присвойте строку переменной и посмотрите, что она содержит

Dim condition As String

condition =  "Fornecedor = ' & xforner & '"
MsgBox condition ' Or instead, set a breakpoint
xDefect = Nz(DSum("[defects]", "PO_Details", condition), 0)

Действительно ли condition содержит "Fornecedor = 'QMY'"?