Search results

Sorry to waste everyone's time. I am actually starting to think it was network traffic related. The databases are stored in a network folder for the company I work for. This morning, all of a sudden it appears to take the same amount of time as before... :-(

Good afternoon, I won't go into details, but I have an access database which imports tables from another access database, does some stuff (VBA), and exports the data to Excel. Before today, I used to use TranferDatabase acImport, and the process used to take about a hour. I changed this to...

Is this form your main switchboard (opens with database open)? If not, you can just go to vba view (Alt-F11) and look at the code for the form from there.

I believe VBA uses 0 for false and -1 for true. Is this what you used?: IFF(IsError([field]/[other_field]),0,[field]/[other_field])

This is awesome :-)

try also adding: xlWb.Close xl.Quit to the end

The only thing I can think of would be do create some kind of procedure within the BeforeRefresh event of the query table, which would insert log records into a table in the Access database whenever the querytable is refreshed. Here is a link to the event...

ActiveSheet.Range("A1").Value = ActiveSheet.Range("A1").Value - 1 'Assuming A1 is your cell. Replace with the actual or ActiveSheet.Cells(rowNum, colNum).Value = ActiveSheet.Cells(rowNum, colNum).Value - 1

This is not specific to invoicing, but this is by far the best site for PHP screencasts I have ever seen: http://blog.themeforest.net/screencasts/diving-into-php-video-series/

Since you mentioned 'cell', are you doing this in Access or Excel?

Have you tried: IIF(IsNull(datereceived),No,Yes).

I don't really see a way of using an Access Query to do this. In the example I gave you, you would be taking the SQL code from your query and making it dynamic in VBA. If you open existing query in design mode and switch to SQL mode, you should be able to copy this and paste onto VBA (as in...

You would use it in your In() statement. Just as you would say IN('USA', 'UK', 'BRAZIL') to include these countries, you can essentially do the same thing here, but by embedding and running the dynamic string into SQL in VBA (last portion in code above).

I think that your parameters for TransferDatabase are actually flipped around. Check out this http://msdn.microsoft.com/en-us/library/aa164086(office.10).aspx and make sure that you have them in the right order. I can see that at least your 'acTable' is in the wrong place. Hope that helps.

It probably won't make a difference, but try replacing your first sub-procedure with this, and see if it works: Private Sub TRA_cmdOpenPO_Click() Me.TRA_txtPath.BackColor = 16777215 Me.Repaint Dim fDialog As Office.FileDialog Dim varFile As Variant Me.TRA_txtPath...

I'm not 100% sure if this would work, but have you tried creating a dynamic string and use it in your In() within the SQL in VBA? Example: Sub country_qry() Dim in_str As String Dim sql As String 'Initiate in_str with some country which does not exist, just so for other...

Whenever you run the first part of the code, did you check that it sets the Me.TRA_txtPath text box to the path string?

To reference a specific field in the current records, you can use rst!field_name. So for example, if your field name is Fcty, then try using rst!Fcty. I think I am still confused on what you are trying to do though. To what variable are you trying to assign the record field to? Shouldn't you...

Try not surrounding Me!TRA_txtPath is quotes. Since Me!TRA_txtPath is a string (assuming this is a text/combo box in a form), you do not have to use "". So try replacing your statement with: DoCmd.TransferDatabase acImport, "Microsoft Access", acTable, "TRA_tblPOData", Me!TRA_txtPath, True

pbaldy is correct. Cool stuff :)