Search results for query: *

Sample to create toolbar on right with four custom button images: Sub Auto_Open() savestate = ActiveWorkbook.Saved On Error Resume Next NumTools = 4 For i = 1 To NumTools pn = "Picture" & Application.Trim(Str(i))...

Well, I figured it out, but don't understand the problem. I changed the table name (F2, type away) changed my code to reference the new (same old) table. Works like a charm. Thanks for the assistance though.

Forgive me, but I haven't quite experienced all the DSN DSN-less connection strings and haven't found what I'm looking for online. Do I increase the timeout settings with the provider (I'm providing with string in global.asa, first foray there) or when I make the connection (provided in...

...table within the DB and it works. I'm receiving the error only in regard to the table I want data from (figures). For example mySQL="SELECT * FROM Months" works but mySQL="SELECT * FROM Names" returns the error. The Months table has two fields, ID and Month, 12 records...

You can use Application.ScreenUpdating=False to keep the screen from flipping around, if you're selecting sheets, cells, etc. In some instances the process will be faster because the screen doesn't have to be updated. Application.ScreenUpdating=True turns it back on.

Believe I might have found the solution with the self join: SELECT IntrFac.NameID, IntrFac.AccountID, IntrFac_1.AbsAmount, IntrFac_1.Amount, IntrFac.S2KFormat FROM IntrFac INNER JOIN IntrFac AS IntrFac_1 ON (IntrFac.AbsAmount = IntrFac_1.AbsAmount) AND (IntrFac.AccountID = IntrFac_1.NameID) AND...

In an Access97 Db I have the following table: Table:IntrFac NameID,AccountID,AbsAmount,Amount,and S2KFormat Here's sample data: NameID AccountID AbsAmount Amount S2KFormat 4190 3290 536 536 419.0.2991.00.3290 3330 3290 536 536 333.0.2991.00.3290 3290 2100 536...

Thanks for the response. I forgot about DELETE. Once again, thanks.

...was to create a list in Excel, loop through the list passing the information as the WHERE in a SQL statement such as: mySQL = "SELECT * From IntrFac WHERE NameID='9650'" substituting my variable where I've hardcoded 9650. The resulting recordset could be none or any number of...

Call me a newbie but this is really a good tutorial using ASP pages. Lots of good information on the site as well. http://www.devguru.com/features/tutorials/ADOandASP/adoTutorial.html The tutorial has sample database and the ASP page to go with it.

I'm still learning too. Here's a great link of example code straight from the horse's mouth. http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmscadocodeexamplesinvisualbasic.asp The main ADO page has some good information and the above link...

Figured it out: Sub test() ActiveSheet.OLEObjects("Frame1").Object.OptScott.Value = 1 End Sub

I have a worksheet I'm testing controls with. I can place controls in the worksheet and run code off them but now I want to try something else. I've placed a Microsoft Forms 2.0 Frame on a worksheet. I then added two option buttons to the frame. How do I refer to those option buttons within...

Would something like this work? Aplication.ScreenUpdating=False Windows("mbr.txt").Activate ActiveWorkbook.SaveAs Filename:="C:\Scottr\mbr.dbf", FileFormat:=xlDBF4, _ CreateBackup:=False ActiveWindow.Close Application.ScreenUpdating=True This scenerio could work if run...

I've used this statement to close delimited files that I've opened: Application.DisplayAlerts = False ActiveWorkbook.SaveAs... Windows.Application.ActiveWindow.Close I open a delimited file, do some manipulations then save as a text file. I turn off Alerts so I'm not prompted to save as an...

You could use Application.ScreenUpdating=False so things happen in the background and set it back to True when done. You could record the macro and get the code for SaveAs. The only thing you might have to worry about is how you want things to be controlled; meaning I'm not familiar with .DBF...

Don't know if this will help you, but I pieced together pieces of code from this site to allow me to select a directory, look for all .bmp files in the selected folder and rename them a certain way if a condition was met. http://www.mvps.org/vbnet/index.html?code/fileapi/copyfile.htm I don't...

You can name a Range for the cell that will contain the information you are trying to include in the SaveAs statement. Say C6's contents is "Accounting" I would name the Range C6 as sFileName so I could then say StrCpy1=Range("sFileName") Whatever is in that cell will be...

In your code, you can try Application.ScreenUpdating=False Application.StatusBar = "Opening File X" This should allow you to open files in the 'background' without the screen changing. While screen updating is turned off, I like to use the second line to change the status bar, so I...

sAccount is dimmed as string. sAccount is populated by choosing an account from a combo box on the user form. Once the selection is made, it is stored on a sheet in a named range. When I need to use it, I set sAccount=Range("cmbAccount"). Since it works with short account names, I...