Recent content by PC User

Thanks for the modules. I'll take a look at them this week.

Is there VBA code that will let the user choose a section of the screen and capture that screen portion as an image directly into an Access table?

Someone claims to have the metastock format in Excel VBA. Of course, will this work in Access VBA? ' Excel EOD Metastock Format Convertor ' http://www.excelforum.com/excel-programming/635108-excel-eod-metastock-format-convertor.html Private Declare Function GetOpenFileName Lib "comdlg32.dll"...

There were no errors to give me any indication of what was wrong; however, after tinkering with the code - checking the looping, the path and file format, etc. - I did get it to work. Why it didn't work before is a mystery. I wouldn't have suspected that the small changes that I made would get...

Stock quote data downloaded from Yahoo Finance arrives in csv format. I'm using some stock analysis programs that require the data be imported in the MetaStock format. I've been searching the internet for code to do the file translation in VBA; however, so far I've only come across code to do it...

If seeing the code for the entire function helps, here it is. Using the start and ending dates for requested data, the function is to loop through a table of ticker symbols and download all historical data for each symbol within that date range. Public Function HistoricalQuotes(StartDate As...

I cannot get any data to download from this code. There are no errors and the best that I can tell the syntex is correct. So, why doesn't it work. Can anyone see why it doesn't download data? ' Retrieve the file from the specified URL Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")...

Try something like this: Function Get_Invoice_Number() As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim fd As DAO.Field Dim n As Integer Set db = CurrentDb() Set rs = db.OpenRecordset("t_invoice", dbOpenDynaset) rs.MoveFirst n = 1 Do Until rs.EOF with rs .Edit rs!Number = CStr(n)...

I've implemented your suggestions and its seems to have made some progress with the output; however, by looking at the Debug.Print in the Immediate Window the process doesn't look like it cycles through all the symbols. There still isn't any error message to give me some clue to solve the...

Thanks for your reply. The records are already existing and I needed to edit them so I used rs.edit instead of rs.addnew. Everything else is the same as what you show. I've attached the sample database in Access 2000 format without compressing it, so it should be easy to look at. Thanks, PC

Now that is interesting!! I've never heard of that before. So there are more events available using your suggestion. Thanks very much. I learned something new and useful. So now I know that the properties popup doesn't have everything for an activex.

I'm trying to update a table using DAO recordsets. The recordset update works partially, but when the process has completed the data has not changed. There must be something wrong with the recordset code. Also by looking at the Debug.Print results, it looks as though it didn't process all the...

They are activex Microsoft Forms 2.0 SpinButtons.

I need help to increment a scrollbox when I scroll up or scroll down. The scrollbox has currency values; so I would like to increment by the penny.

I successfully used this code in several databases when I was using Access 2000. Look like I'll need to spend some more time to figure out why it doesn't work well in the newer version.