troubleshooting Question

Bloomberg Subscribe Function on Access Database

Avatar of greep
greep asked on
Microsoft AccessVisual Basic Classic
3 Comments1 Solution7551 ViewsLast Modified:
Hi,
I have inherited some Excel Sheets and Access databases which use the BLP Add-ins to retrive data from Bloomberg.
The Access database is using the Subscribe method - example code below.
      '---------------------------------------------------------------------------------------------------
                     Public WithEvents objBloomberg As BLP_DATA_CTRLLib.BlpData
      Public Sub MakeDataRequest(Security() As String, Fields() As String, Optional OverFields As Variant, Optional OverValues As Variant)
      '  Where Security is an array of Security Numbers,
                     'Fields is an array of Bloomberg field mnemonics,
                     'OverFields and OverValues are not used -no idea what they are supposed to do.
      Dim nCount As Long
      Dim nMaxCount As Long
      nMaxCount = UBound(Security, 1)
      objBloomberg.AutoRelease = False
      For nCount = 0 To nMaxCount
                       objBloomberg.Subscribe Security(nCount), nCount, Fields, OverFields, OverValues, Monitor:=False
               nSendCount = nSendCount + 1
      Next nCount
      objBloomberg.Flush
      End Sub
      'data is then received by a sub called DataCallback, and this works ok.
      Public Sub DataCallback(nCookie As Long, vtData As Variant)
      '---------------------------------------------------------------------------------------------------
This all works fine for retreiving current data.
 My problem is that I need to be able to retreive data for a different Settlement Date.  

In Excel with the BLP function, this is easy as the required date can be passed as part of the field array e.g.
BLP(123456 CORP,[SETTLE_DT=20070720,GOVT_IDX_RATIO])

Is there a way to do something similar with the Access Subscribe function?
 
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 3 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 3 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros