Search results

Holger, Thank you for the link to VBA express, looks like it will be a very helpful new resource.

I have a user form for supplier issues and a button that captures the data into the body of an email. I'd like to be able to format the message in the email with returns and such to make it more readable. The user enters the problem then clicks the update button which has a simple send no...

I gave this a try this morning and it did speed up a little but I'm going to give yeatmanj's code a good look and see what happens with that.

That's what I'm doing now, I want to find a more efficent method. Each of my update queries takes 2-5 minutes to run and there are 10 or so making the whole thing unwieldy.

My local table contains all good accounts as well as who owns them at 5 different levels and has contact information for each. It is a lot of data and I'd like to refresh it more than once a day. Always want to have the most up to date information. Having it in the form I do has been...

Looks like it, I correct my syntax problem and it runs but the whole point was to speed it up. It seems the docmd.runsql is no different than docmd.openquery, same amount of time. Actualy the way I had it written it kept running over and over to EOF so I stopped it. Can you or anyone suggest...

Access does have that limitation but my access table is only 150,000 or so records. The sql tables are huge so I'm extracting the information I need from them an putting it in the much smaller Access table for quick ad hoc reporting.

I tried DoCmd.RunSQL strSQL and get "Syntax error in Update Statement" but this is progress

The sql tables have 2-5 million rows That is exactly the problem, I don't know how to write it correctly.

I have about 150K records and for each I need 8 columns filled from various sql tables. I am very much missing the bigger picture While Not rs.EOF strSQL = "UPDATE [tTempCompany] SET tTempCompany.[Account Rep] = [chuserID], WHERE (((tTempCompany.iCompanyId = dbo_ContactInternal.iOwnerID and...

:o I have put together the following and just can't figure out what I'm missing. I want to update a field in a local Access (2000) table with the correct Account Rep found in a linked sql server table. What I wrote below appears to run in a loop but nothing actually gets updated. I know it...

Never mind, I figured it out. I moved my end if to the end of each segment and it runs like a charm.

The statement runs when all fields are null to start. However, if I "X" a field out it runs to that point and then end if. I guess I need a loop but I am not sure how to write it. Any guidance would be appreciated. Access 2000 [CODE] Private Sub All_Click() DoCmd.SetWarnings False If...

You need to have a file called noimage.jpg. Create one with just a text field saying no image and it works just fine.

This really helped me. Thank you all

I have a .txt file that is comma delimited with " as text qualifier. This file has no returns, instead "" is found at the end of each record. I'm having trouble importing to Access or Excel. If I go in an manually enter a return between the double quotes it works fine. How can I get these...

I have a shared 2000 db and for the last few days someone has been leaving it open. In '97 you could open the .ldb file and see who it was, is there a way to find out in 2000? Also, I have seen something on remotely removing users who leave the application open but can't find it now. Does...

The conditional format property was too limited. I needed to evaluate 6 text boxes for the lowest value. the built in conditional format only allows three conditions.

Thank you all for you help. I did try the array method but it didn't work, or I didn't write it correctly. The way I did do it is working smoothly and doesn't add to processing time.

Thank you for your help. Below is the code I ended up with. I had to fill null values with 999999999 but didn't want anyone to see the number. Private Sub Form_Current() If Me.Mc.Value < Me.ID.Value _ And Me.Mc.Value < Me.pp.Value _ And Me.Mc.Value < Me.ma.Value _ And Me.Mc.Value <...