This Tuesday! Learn key insights about modern cyber protection services & gain practical strategies to skyrocket business:
- What it takes to build a cloud service portfolio
- How to determine which services will help your unique business grow
- Various use-cases and examples
Error calling Class Module
Hi guys,
I have a class module called cls_Cfg and this is a function in the class module:
Private Function EncryptFile(ByVal InFile As String, ByVal OutFile As String, _
ByVal Overwrite As Boolean, ByVal Key As String) As Boolean
I want to call this routine from a regular module, but when I try the below code I get a compile error saying method or data members not found. I'm not sure what the syntax is, I don't use class modules that often.
Thanks,
Tracy
I have a class module called cls_Cfg and this is a function in the class module:
Private Function EncryptFile(ByVal InFile As String, ByVal OutFile As String, _
ByVal Overwrite As Boolean, ByVal Key As String) As Boolean
I want to call this routine from a regular module, but when I try the below code I get a compile error saying method or data members not found. I'm not sure what the syntax is, I don't use class modules that often.
Thanks,
Tracy
Sub testCall()
Dim clsX As cls_Cfg
Set clsX = New cls_Cfg
clsX.EncryptFile("H:\tracy\cfg\temp.txt", "H:\tracy\cfg\temp2.txt", True, "test") = True
Set clsX = Nothing
End Sub
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
if the function declaration inside the class is "Private" you cannot see this function from the outside world (as in your module) - change the declaration to "Public" and the method will be found
Yes, open Excel, expand the modules are and open the cls_Cfg file and search for the EncryptFile
If the intellisense works and shows that when you put in clsX with the dot after it, then it should be value and ready to receive information as described. However, show us at least the signature (Sub line)
If the intellisense works and shows that when you put in clsX with the dot after it, then it should be value and ready to receive information as described. However, show us at least the signature (Sub line)
hmmm...also just noticed that you end the line with "= True"
Why are you trying to assign something to a method...I think that might be the problem.
Try just this:
clsX.EncryptFile("H:\tracy
Why are you trying to assign something to a method...I think that might be the problem.
Try just this:
clsX.EncryptFile("H:\tracy
>>Can you share the class module?
Yes, I'll post in a few
>>hmmm...also just noticed that you end the line with "= True"
Yeah, I put that in because I was getting an "expected = error", so I was just trying stuff.
>>if the function declaration inside the class is "Private" you cannot see this function from the outside world (as in your module) - change the declaration to "Public" and the method will be found
I thought I had tried that, but maybe it was a different function I changed to public
>>If the intellisense works and shows that when you put in clsX with the dot after it, then it should be value
No intellisense
Yes, I'll post in a few
>>hmmm...also just noticed that you end the line with "= True"
Yeah, I put that in because I was getting an "expected = error", so I was just trying stuff.
>>if the function declaration inside the class is "Private" you cannot see this function from the outside world (as in your module) - change the declaration to "Public" and the method will be found
I thought I had tried that, but maybe it was a different function I changed to public
>>If the intellisense works and shows that when you put in clsX with the dot after it, then it should be value
No intellisense
Attached is the code in the class module.
I changed to Public and now intellisense is there, which is good. However, when I take the "= True" part off it gives the "expected =" error again.
Thanks,
Tracy
cls-Cfg.cls
I changed to Public and now intellisense is there, which is good. However, when I take the "= True" part off it gives the "expected =" error again.
Thanks,
Tracy
cls-Cfg.cls
OK, so I see this signature:
Public Function EncryptFile(ByVal InFile As String, ByVal OutFile As String, _
ByVal Overwrite As Boolean, ByVal Key As String) As Boolean
So it will return a boolean and expects 4 parameters.
You're giving this:
clsX.EncryptFile("H:\tracy
String, String, boolean, String.
Excellent!
Try this calling line instead:
Debug.Print clsX.EncryptFile("H:\tracy
See if a result shows up in the Intermediate / Output window.
Public Function EncryptFile(ByVal InFile As String, ByVal OutFile As String, _
ByVal Overwrite As Boolean, ByVal Key As String) As Boolean
So it will return a boolean and expects 4 parameters.
You're giving this:
clsX.EncryptFile("H:\tracy
String, String, boolean, String.
Excellent!
Try this calling line instead:
Debug.Print clsX.EncryptFile("H:\tracy
See if a result shows up in the Intermediate / Output window.
>> Debug.Print clsX.EncryptFile("H:\tracy
Yes, it returns True
Yes, it returns True
I think your problem was that VB likes to have functions stored somewhere. When it said that "=" was missing, it wanted it on the left of the function and assigned to some variable. I applied it to the print command but you'll probably want to save it in a variable for future use like:
strEncryptedFile = clsX.EncryptFile("H:\tracy
strEncryptedFile = clsX.EncryptFile("H:\tracy
Sorry...it's returning a true/false, so you probably want something like this:
If clsX.EncryptFile("H:\tracy
Msgbox "File successfully encrypted"
Else
Msgbox "File encryption failed"
End If
If clsX.EncryptFile("H:\tracy
Msgbox "File successfully encrypted"
Else
Msgbox "File encryption failed"
End If
Premium Content
You need an Expert Office subscription to comment.Start Free Trial