Ошибка времени выполнения '5': при использовании глобальных переменных - PullRequest
Новая
       25

Ошибка времени выполнения '5': при использовании глобальных переменных

0 голосов
/ 26 июня 2018

я объявил глобальную переменную в Module1, и когда я пытался использовать ее в другом модуле, он показывает ошибку времени выполнения «5»: \ неверный вызов процедуры или аргумент. я не смог найти проблему пожалуйста предоставил решение этой проблемы Объявление глобальной переменной: 

Function getFilePath() As String
 getFilePath = FilePath
 Set FilePath = "C:\quadyster\R3AgreementDetails"
End Function

Внедрение глобальной переменной: 

Private Sub SendAgreement_Click()
 If (Not IsNull(Me.RequestFrom) And Not IsNull(Me.RequestReference)) Then
 Call AttachR3ServiceAgreement(Module1.FilePath, tripObjectFormation, "Agreement")
Me.AgreementDate = Now()

Else
 MsgBox "Please provide 'RequestFrom' and 'RequestReference' to proceed." & vbNewLine & vbNewLine & _
            "Press Ok to continue.", vbOKOnly, "Alert!!!"
End If
End Sub

это вызывающая функция 

Public Function AttachR3ServiceAgreement(FilePath As String, tripData As 
  tripDetails, requestType As String)

Здесь произошла ошибка: Установите objStream = objFSO.OpenTextFile (fileHTML, ForReading)

1 Ответ

0 голосов
/ 26 июня 2018

У вас там есть синтаксическая ошибка: Set может использоваться только с объектами. 

Public FilePath As String
Function getFilePath() As String
  FilePath = "C:\quadyster\R3AgreementDetails"
  getFilePath = FilePath 
End Function

Private Sub SendAgreement_Click()
 If (Not IsNull(Me.RequestFrom) And Not IsNull(Me.RequestReference)) Then
 Call AttachR3ServiceAgreement(Module1.FilePath, tripObjectFormation, "Agreement")
Me.AgreementDate = Now()

Else
 MsgBox "Please provide 'RequestFrom' and 'RequestReference' to proceed." & vbNewLine & vbNewLine & _
            "Press Ok to continue.", vbOKOnly, "Alert!!!"
End If
End Sub
...