here is my code, which has been running fine for several months, which now falls over with "Public member 'returnCode' on type 'UpdateBetResult' not found".
Anybody any ideas what's gone wrong?
- Code: Select all
Public WithEvents baIR As New BettingAssistantCom.Application.ComClass
Public WithEvents baUK As New BettingAssistantCom.Application.ComClass
....
Dim updatedBet As BettingAssistantCom.Application.UpdateBetResult = Nothing
If row.Item(races.ukorire) = "UK" Then
updatedBet = baUK.updateBet(ref:=betz.ref, _
oldOdds:=betz.odds, newOdds:=odds, _
oldStake:=betz.stake, newStake:=betz.stake) ' <<< code fails here <<<
Else
updatedBet = baIR.updateBet(ref:=betz.ref, _
oldOdds:=betz.odds, newOdds:=odds, _
oldStake:=betz.stake, newStake:=betz.stake)
End If
Thanks
Art