Ошибка времени выполнения basic 449 аргумент является обязательным

Симптомы Ошибка 449 — Аргумент не является обязательным

Ошибки времени выполнения происходят без предупреждения. Сообщение об ошибке может появиться на экране при любом запуске %программы%. Фактически, сообщение об ошибке или другое диалоговое окно может появляться снова и снова, если не принять меры на ранней стадии.

Возможны случаи удаления файлов или появления новых файлов. Хотя этот симптом в основном связан с заражением вирусом, его можно отнести к симптомам ошибки времени выполнения, поскольку заражение вирусом является одной из причин ошибки времени выполнения. Пользователь также может столкнуться с внезапным падением скорости интернет-соединения, но, опять же, это не всегда так.

(Только для примера)

Причины Аргумент не является обязательным — Ошибка 449

При разработке программного обеспечения программисты составляют код, предвидя возникновение ошибок. Однако идеальных проектов не бывает, поскольку ошибки можно ожидать даже при самом лучшем дизайне программы. Глюки могут произойти во время выполнения программы, если определенная ошибка не была обнаружена и устранена во время проектирования и тестирования.

Ошибки во время выполнения обычно вызваны несовместимостью программ, запущенных в одно и то же время. Они также могут возникать из-за проблем с памятью, плохого графического драйвера или заражения вирусом. Каким бы ни был случай, проблему необходимо решить немедленно, чтобы избежать дальнейших проблем. Ниже приведены способы устранения ошибки.

Методы исправления

Ошибки времени выполнения могут быть раздражающими и постоянными, но это не совсем безнадежно, существует возможность ремонта. Вот способы сделать это.

Если метод ремонта вам подошел, пожалуйста, нажмите кнопку upvote слева от ответа, это позволит другим пользователям узнать, какой метод ремонта на данный момент работает лучше всего.

Обратите внимание: ни ErrorVault.com, ни его авторы не несут ответственности за результаты действий, предпринятых при использовании любого из методов ремонта, перечисленных на этой странице — вы выполняете эти шаги на свой страх и риск.

• Remove From My Forums

• Question

• I am getting this error when debugging a VB application. The method that is being called when I get this does not have any arguments.

  Definitions in code are as follows with names changed to protect the guilty

  [From the ActiveX code]
  MyControlCtl.cpp(161): DISP_FUNCTION(CMyControlCtrl, «BadArgmentFunction», BadArgmentFunction, VT_I4, VTS_NONE)
  MyControlCtl.cpp(1213):long CMyControlCtrl::BadArgmentFunction()
  MyControlCtl.h(191): afx_msg long BadArgmentFunction();
  MyControlCtl.h(416): dispidBadArgmentFunction = 108L,

  [From VB application]
  Public Function BadArgmentFunction() As returnCodes
    On Error GoTo ErrHandler
    Dim lresult As Long

      oErrHandler.Message «TO», «BadArgmentFunction», «()»
    lresult = myControl.BadArgmentFunction  ‘ when this executes, I get the error «Run-time error ‘449’: Argument not optional»
    BadArgmentFunction= lresult
    oErrHandler.Message «TO», «BadArgmentFunction», «Returned » & CStr(BadArgmentFunction)
    Exit Function

    ErrHandler:
    oErrHandler.Message «Error», «BadArgmentFunction», Err.Description, Err.Number
    Resume Next

    End Function

  The question is, if the method is not defined to accept argments, then why am I having a debug assertion while debugging that says that the arguments are not optional?

• Remove From My Forums

• Question

• I am getting this error when debugging a VB application. The method that is being called when I get this does not have any arguments.

  Definitions in code are as follows with names changed to protect the guilty

  [From the ActiveX code]
  MyControlCtl.cpp(161): DISP_FUNCTION(CMyControlCtrl, «BadArgmentFunction», BadArgmentFunction, VT_I4, VTS_NONE)
  MyControlCtl.cpp(1213):long CMyControlCtrl::BadArgmentFunction()
  MyControlCtl.h(191): afx_msg long BadArgmentFunction();
  MyControlCtl.h(416): dispidBadArgmentFunction = 108L,

  [From VB application]
  Public Function BadArgmentFunction() As returnCodes
    On Error GoTo ErrHandler
    Dim lresult As Long

      oErrHandler.Message «TO», «BadArgmentFunction», «()»
    lresult = myControl.BadArgmentFunction  ‘ when this executes, I get the error «Run-time error ‘449’: Argument not optional»
    BadArgmentFunction= lresult
    oErrHandler.Message «TO», «BadArgmentFunction», «Returned » & CStr(BadArgmentFunction)
    Exit Function

    ErrHandler:
    oErrHandler.Message «Error», «BadArgmentFunction», Err.Description, Err.Number
    Resume Next

    End Function

  The question is, if the method is not defined to accept argments, then why am I having a debug assertion while debugging that says that the arguments are not optional?

• Remove From My Forums

• Question

• I am getting this error when debugging a VB application. The method that is being called when I get this does not have any arguments.

  Definitions in code are as follows with names changed to protect the guilty

  [From the ActiveX code]
  MyControlCtl.cpp(161): DISP_FUNCTION(CMyControlCtrl, «BadArgmentFunction», BadArgmentFunction, VT_I4, VTS_NONE)
  MyControlCtl.cpp(1213):long CMyControlCtrl::BadArgmentFunction()
  MyControlCtl.h(191): afx_msg long BadArgmentFunction();
  MyControlCtl.h(416): dispidBadArgmentFunction = 108L,

  [From VB application]
  Public Function BadArgmentFunction() As returnCodes
    On Error GoTo ErrHandler
    Dim lresult As Long

      oErrHandler.Message «TO», «BadArgmentFunction», «()»
    lresult = myControl.BadArgmentFunction  ‘ when this executes, I get the error «Run-time error ‘449’: Argument not optional»
    BadArgmentFunction= lresult
    oErrHandler.Message «TO», «BadArgmentFunction», «Returned » & CStr(BadArgmentFunction)
    Exit Function

    ErrHandler:
    oErrHandler.Message «Error», «BadArgmentFunction», Err.Description, Err.Number
    Resume Next

    End Function

  The question is, if the method is not defined to accept argments, then why am I having a debug assertion while debugging that says that the arguments are not optional?

Контекст . Я пытаюсь динамически вызывать метод через функцию Application.Run VBA и динамически передавать параметры в метод. Больше доказательства концепции, чем фактический вариант использования.

< Сильный > Код:

Public Sub Test()
    Call MethodDynamically("MethodToBeCalled", "This doesnt, work")
End Sub

Public Sub MethodDynamically(MethodName As String, Params As String)
    Application.Run MethodName, Params
End Sub

Public Sub MethodToBeCalled(Param1 As String, Param2 As String)
    Debug.Print Param1 & " " & Param2
End Sub

Ошибка: запуск метода Test, который я получаю Run-time error '449': Argument not optional в строке Application.Run в методе MethodDynamically.

Ожидание . Я хочу, чтобы при запуске метода Test сработали MethodToBeCalled с This doesnt и work передачей в качестве параметров. Результат будет This doesnt work в «Немедленном окне».

Public Sub Test()
    Call MethodDynamically("MethodToBeCalled", "This doesnt, work")
End Sub

Public Sub MethodDynamically(MethodName As String, Params As String, Optional Params2 As String)
    Application.Run MethodName, Params, Params2
End Sub

Public Sub MethodToBeCalled(Param1 As String, Param2 As String)
    Debug.Print Param1 & "  " & Param2
End Sub

У вас есть 2 варианта.

1 разбить строку «Это не так, работать на 2 параметра

Public Sub TestThis()
    Call MethodDynamically("MethodToBeCalled", "This doesnt", "work")
End Sub

Public Sub MethodDynamically(MethodName As String, Param1 As String, Param2     As String)
    Application.Run MethodName, Params
End Sub

Public Sub MethodToBeCalled(Param1 As String, Optional Param2 As String)
    Debug.Print Param1 & ", " & Param2
End Sub

Или используйте необязательные параметры:

Public Sub TestThis()
    Call MethodDynamically("MethodToBeCalled", "This doesnt, work")
End Sub

Public Sub MethodDynamically(MethodName As String, Params As String)
    Application.Run MethodName, Params
End Sub

Public Sub MethodToBeCalled(Param1 As String, Optional Param2 As String)
    Debug.Print Param1 & ", " & Param2
End Sub

РЕДАКТИРОВАТЬ: попробуйте это.

Public Sub TestThis()
    Call MethodDynamically("MethodToBeCalled", "This doesnt, work")
End Sub

Public Sub MethodDynamically(MethodName As String, Optional params As String = "")
    If params = "" Then Application.Run MethodName
    Select Case selectParamNumbers(params)
        Case 0
        paramArr = paramSplit(params)
        Application.Run MethodName, paramArr(0)
        Case 1
        paramArr = paramSplit(params)
        Application.Run MethodName, paramArr(0), paramArr(1)
        Case 2
        paramArr = paramSplit(params)
        Application.Run MethodName, paramArr(0), paramArr(1), paramArr(2)
        'And so on...
   End Select
End Sub

Public Function paramSplit(param As String) As Variant
    paramSplit = Split(param, delimiter:=", ")
End Function

Public Function selectParamNumbers(param As String) As Long
    Dim paramAmount() As String
    paramAmount = Split(param, delimiter:=",")
    selectParamNumbers = UBound(paramAmount)
End Function

Public Sub MethodToBeCalled(Param1 As String, Optional Param2 As String)
    Debug.Print Param1 & " " & Param2
End Sub