"OnUpdate" procedure of a Dex2Lib.RData object within a VBA class module.
Bonjour, new to TR I'm struggling with the "OnUpdate" procedure of a Dex2Lib.RData object within a VBA class module.
I used the tutorial document but get the following error message when compiling "Procedure declaration does not match description of event or procedure having the same name".
The request is returning data, however I'm trying to deal with the delay and I guess that this the role of the OnUpdate procedure.
I'm not familiar with Events procedures (excepted maybe in forms). There is no other procedure having the same name.
Here is the part of the code in question, in bold the event
(this is a class module)
Private m_dex2Mgr As Dex2Lib.Dex2Mgr
Private WithEvents m_rdata As Dex2Lib.RData
Private m_rdataMgr As Dex2Lib.RDataMgr
Private m_cookie As Long
Private m_hasReceivedResponse As Boolean
Private m_dataStatus As Dex2Lib.DEX2_DataStatus
Private Sub Class_Initialize()
m_dataStatus = DE_DS_NULL_EMPTY
m_hasReceivedResponse = False
Set m_dex2Mgr = CreateReutersObject("Dex2.Dex2Mgr")
m_cookie = m_dex2Mgr.Initialize()
Set m_rdata = m_dex2Mgr.CreateRData(m_cookie)
Set m_rdataMgr = m_dex2Mgr.CreateRDataMgr(m_cookie)
End Sub
Public Function WaitforResponse()
Do While Not m_hasReceivedResponse
DoEvents
Loop
End Function
Public Property Get data() As Variant
data = m_rdata.data
End Property
Private Sub m_rdata_OnUpdate(ByVal a_dataStatus As Dex2Lib.DEX2_DataStatus, ByVal a_error As Object)
m_hasReceivedResponse = True
End Sub
Would it be possible please to help ?
Merci for your help,
O.
Best Answer
-
Forget it, i found the issue.
Instead of
Private Sub m_rdata_OnUpdate(ByVal a_dataStatus As Dex2Lib.DEX2_DataStatus, ByVal a_error As Object)
It has to be
Private Sub m_rdata_OnUpdate(ByVal a_dataStatus As Dex2Lib.DEX2_DataStatus, ByVal a_error As Variant)
OR
1
Answers
-
Thanks for posting your solution !
0
Categories
- All Categories
- 6 AHS
- 39 Alpha
- 161 App Studio
- 4 Block Chain
- 4 Bot Platform
- 16 Connected Risk APIs
- 47 Data Fusion
- 30 Data Model Discovery
- 608 Datastream
- 1.3K DSS
- 577 Eikon COM
- 4.9K Eikon Data APIs
- 7 Electronic Trading
- Generic FIX
- 7 Local Bank Node API
- Trading API
- 2.7K Elektron
- 1.3K EMA
- 236 ETA
- 519 WebSocket API
- 33 FX Venues
- 10 FX Market Data
- 1 FX Post Trade
- 1 FX Trading - Matching
- 12 FX Trading – RFQ Maker
- 5 Intelligent Tagging
- 2 Legal One
- 20 Messenger Bot
- 2 Messenger Side by Side
- 9 ONESOURCE
- 7 Indirect Tax
- 59 Open Calais
- 264 Open PermID
- 39 Entity Search
- 2 Org ID
- PAM
- PAM - Logging
- 8.4K Private Comments
- 6 Product Insight
- Project Tracking
- ProView
- ProView Internal
- 20 RDMS
- 1.4K Refinitiv Data Platform
- 367 Refinitiv Data Platform Libraries
- 3 Refinitiv Due Diligence
- LSEG Due Diligence Portal API
- 3 Refinitiv Due Dilligence Centre
- Rose's Space
- 1.1K Screening
- 18 Qual-ID API
- 13 Screening Deployed
- 23 Screening Online
- 10 World-Check Customer Risk Screener
- 990 World-Check One
- 44 World-Check One Zero Footprint
- 45 Side by Side Integration API
- Test Space
- 3 Thomson One Smart
- 1.2K TR Internal
- Global Hackathon 2015
- 2 Specialists Who Code
- 10 TR Knowledge Graph
- 150 Transactions
- 142 REDI API
- 1.7K TREP APIs
- 4 CAT
- 21 DACS Station
- 117 Open DACS
- 1.1K RFA
- 103 UPA
- 172 TREP Infrastructure
- 224 TRKD
- 886 TRTH
- 5 Velocity Analytics
- 5 Wealth Management Web Services
- 60 Workspace SDK
- 9 Element Framework
- 5 Grid
- 13 World-Check Data File
- Yield Book Analytics
- 46 中文论坛