• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 934
  • Last Modified:

Auto-Update Currency Exchange rates in Access 2010

I need my database to have updated information about currency exchange rates.
Is there a function or API that gets that information from an internet server?
1 Solution
Gustav BrockCIOCommented:
From this site daily files can be obtained:


HikarusAuthor Commented:
yes, but manually.... I need an automatic way to access the info from the internet...
It's the first time I try something like this, so I have no idea of how to proceed. A sort of XML perhaps?...
HikarusAuthor Commented:
... and I need a way to read it from a function in Access...

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Gustav BrockCIOCommented:
> yes, but manually....

No, you can download the file or:

Only you have access to your Datafeed. The Datafeed serves up a currency rate file in response to a standard HTTP GET request made by your server - a process many of our clients automate. When you register for the service, we assign you a unique URL where you can access the data, and you register the IP range from which you will make your request. If a request to that unique URL does not match the IP address you registered, the feed will block the access.

I don't have an account so I don't know the details, but you can create a trial account and get all the support you need.

It's quite easy to download a file:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
  ByVal pCaller As Long, _
  ByVal szURL As String, _
  ByVal szFileName As String, _
  ByVal dwReserved As Long, _
  ByVal lpfnCB As Long) _
  As Long

Public Function DownloadFile( _
  ByVal strURL As String, _
  ByVal strLocalFilename As String) _
  As Long
' Download file or page with public access from the web.
' 2004-12-17. Cactus Data ApS, CPH.

' Usage, download a file:
' lngRet = DownloadFile("http://www.databaseadvisors.com/Graphics/conf2002/2002ConferencePicsbySmolin/images/dba02smolin27.jpg", "c:\happybassett.jpg")
' Usage, download a page:
' lngRet = DownloadFile("http://www.databaseadvisors.com/conf2002/conf200202.asp", "c:\dbaconference.htm")

' Returns 0 if success, error code if not.
' Error codes:
' -2146697210 "file not found".
' -2146697211 "domain not found".

' Limitation.
' Does not check if local file was created successfully.

  Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, strURL & vbNullChar, strLocalFilename & vbNullChar, 0, 0)
  DownloadFile = lngRetVal
End Function

Open in new window

Jeffrey CoachmanCommented:
The other issue is how often you will need the most recent exchange rates.
Exchange rates are updated every 5 minutes in most cases.

See here as well:
HikarusAuthor Commented:
Seems interesting. I'm going to check it out.
Sorry I'm taking so long to reply, but I´m very busy lately :(
just wondering how you went with this? and if you got it to work?

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now