Please help, I'm stumped. I keep getting the type mismatch error at the following sections of code:
The follow is the code for ListForm.GetNumReferenceUsed:
Some background: cItems.ePrimary is a class with public property get which returns an integer (17) in this example.
dRefUsed() is an array of integers, in this example it has 18 items and I'm accessing the 15th.
ListForm is separate form with the public function GetNumReferenceUsed. ListForm is loaded at runtime.
I've been pulling data from the ListForm through other functions without an issue, and only this one seems to be a problem. Thanks in advance for the assistance!
Code:
Public Function GetCurrentSk() As Integer
Dim meqptID As Integer
meqptID = 0
If cItems.ePrimary <> 0 Then '@runtime, cItems.ePrimary = 17
meqptID = ListForm.GetNumReferenceUsed(cItems.ePrimary) '<- Type Mismatch upon execution at this line
End If
GetCurrentSk = meqptID
End Function
The follow is the code for ListForm.GetNumReferenceUsed:
Code:
Public Function GetNumReferenceUsed(ByVal eRow As Integer) As Integer
GetNumReferenceUsed = dRefUsed(eRow - 2) '<- debugger never reaches this function, type mismatch before here
End Function
Some background: cItems.ePrimary is a class with public property get which returns an integer (17) in this example.
dRefUsed() is an array of integers, in this example it has 18 items and I'm accessing the 15th.
ListForm is separate form with the public function GetNumReferenceUsed. ListForm is loaded at runtime.
I've been pulling data from the ListForm through other functions without an issue, and only this one seems to be a problem. Thanks in advance for the assistance!