MS Access - несоответствие типа данных

Question

У меня есть код VBA и он возвращает 'несоответствие типа данных в выражении критериев' во время выполнения. Кажется, я не могу понять, почему это дает мне эту ошибку.

Может кто-нибудь мне помочь?

VBA:

Public Function GezaagdeOmzet(ByVal TotaalPrijs As Double, ByVal AantalArtiklesPerOrder As Double, ByVal TotaalArtiklesPerOrder As Double, ByVal AantalArtiklesVerwijderedUitZaaglijst As Double) As Double 

    Dim result As Double 

    On Error GoTo ErrHandler 

    If IsNumeric(TotaalPrijs) = False Then 
     MsgBox ("TotaalPrijs not a number") 
     MsgBox (TotaalPrijs) 
    End If 

    If IsNumeric(AantalArtiklesPerOrder) = False Then 
     MsgBox ("AantalArtiklesPerOrder not a number") 
     MsgBox (AantalArtiklesPerOrder) 
    End If 

    If IsNumeric(TotaalArtiklesPerOrder) = False Then 
     MsgBox ("TotaalArtiklesPerOrder not a number") 
     MsgBox (TotaalArtiklesPerOrder) 
    End If 

    If IsNumeric(AantalArtiklesVerwijderedUitZaaglijst) = False Then 
     MsgBox ("AantalArtiklesVerwijderedUitZaaglijst not a number") 
     MsgBox (AantalArtiklesVerwijderedUitZaaglijst) 
    End If 

    If Not TotaalPrijs = 0 Then 
     If AantalArtiklesPerOrder > 0 Then 
      result = TotaalPrijs/(AantalArtiklesPerOrder * TotaalArtiklesPerOrder) * AantalArtiklesVerwijderedUitZaaglijst 
      On Error GoTo ErrHandler 
     Else 
      MsgBox ("AantalArtiklesPerOrder is null, Cannot do calculation") 
     End If 
    Else 
     MsgBox ("TotaalPrijs is null, cannot do division") 
    End If 

Exit Function 
ErrHandler: 
    MsgBox ("TotaalPrijs: " & TotaalPrijs & " TotaalArtiklesPerOrder: " & TotaalArtiklesPerOrder & " AantalArtiklesPerOrder: " & AantalArtiklesPerOrder & " AantalArtiklesVerwijderedUitZaaglijst: " & AantalArtiklesVerwijderedUitZaaglijst) 
End Function 

SQL запросов в MS Access

GezaagdeOmzet: Sum(GezaagdeOmzet([TotaalPrijs],[tbl_ArtikelsPerOrder]![Aantal],[Totaal],[tbl_ArtikelVerwijderdUitZaaglijst]![Aantal])) 

Есть в любом случае, чтобы поймать ошибку я получаю с помощью VBA?

Cstr или CDec или CDbl не обрабатывают эту ошибку.

Answer 1

выше функция немного странно, так как haarrrgh говорит.

Он должен больше походить на код ниже. Вам не нужно проверять, что каждый из аргументов (TotaalPrijs, ByVal AantalArtiklesPerOrder и т. Д.) Является числом, потому что вы передаете их как Double. Если вы передадите что-либо, кроме числа, например буквы или Null, вы получите сообщение об ошибке. Если это не то, что вы хотите, подумайте о передаче аргументов As Variant, вы можете проверить, что они являются числами. Однако, поскольку вы используете это в запросе, я предлагаю вам не использовать окна сообщений, если аргумент равен нулю, сделать его равным нулю, если это то, что он должен быть.

Отметим также GezaagdeOmzet =, а не результат =

EDIT снова Комментарии

Public Function GezaagdeOmzet(ByVal TotaalPrijs As Variant, _ 
    ByVal AantalArtiklesPerOrder As Variant, _ 
    ByVal TotaalArtiklesPerOrder As Variant, _ 
    ByVal AantalArtiklesVerwijderedUitZaaglijst As Variant) As Double 

    On Error GoTo ErrHandler 

    If (Nz(AantalArtiklesPerOrder,0) * Nz(TotaalArtiklesPerOrder,0)) * _ 
     Nz(AantalArtiklesVerwijderedUitZaaglijst,0) = 0 Then 
     GezaagdeOmzet = 0 
    Else 
     GezaagdeOmzet = Nz(TotaalPrijs,0)/_ 
     (Nz(AantalArtiklesPerOrder,0) * Nz(TotaalArtiklesPerOrder,0)) * _ 
     Nz(AantalArtiklesVerwijderedUitZaaglijst,0) 
    End If 

Exit Function 

ErrHandler: 
    ' MsgBox ("TotaalPrijs: " & TotaalPrijs & " TotaalArtiklesPerOrder: " _ 
    & TotaalArtiklesPerOrder & " AantalArtiklesPerOrder: " & AantalArtiklesPerOrder _ 
    & " AantalArtiklesVerwijderedUitZaaglijst: " _ 
    & AantalArtiklesVerwijderedUitZaaglijst) 
End Function 

Answer 2

Зачем запускать функцию, которая возвращает double, только чтобы преобразовать ее в строку и суммировать ее (даже это всего лишь одно значение)?
Я не понимаю.

Что произойдет, если вы запустите функцию напрямую, а не в запросе?
Вызывает ли ошибка ошибка?

И последнее, но не в последнюю очередь - там, кажется, две ошибки в функции, как сейчас:

1) Если TotaalArtiklesPerOrder или AantalArtiklesVerwijderedUitZaaglijst равен 0, он выдает ошибку (которая попадется, но в любом случае. ..), потому что тогда вы делите на ноль в этой строке:

result = TotaalPrijs/(AantalArtiklesPerOrder * TotaalArtiklesPerOrder) * AantalArtiklesVerwijderedUitZaaglijst 

вы сделать чек, если TotaalPrijs является 0, но вы проверяете это неправильный путь вокруг: это можно разделить ноль на что-либо, но нечего делить на ноль.

2) Функция всегда будет возвращать 0, потому что вы вычисляете свой результат (в переменной «результат»), но вы его не возвращаете. Вы должны сделать это явно:

GezaagdeOmzet = result 

Answer 3

@Remou обеспечил то, что смотрит на меня, как рабочий раствор, но он на самом деле не в полной мере объяснить, почему он реализовали его по-разному.Вот некоторые из причин:

1. Параметры для вашей первоначальной функции определяются как Двойной. Они не могут быть ни Null, ни non-numeric, поэтому все тесты для IsNumeric() в вашем исходном коде - пустая трата времени, так как они никогда не вернут FALSE.

2. «несоответствие типа данных в выражении критериев» является очень распространенным сообщением об ошибке из запросов, которые передают Nulls в пользовательские функции, которые не могут принимать Nulls в своих параметрах. Объявление ваших параметров как вариантов - это один из подходов, но варианты могут привести к разным проблемам, и вы теряете сильную типизацию данных. Я бы рекомендовал хранить типы данных Double и передать CDbl (Nz ([TotaalPrijs], 0)) из исходного запроса.