Recent content by scottrod

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...

I'm building a project using an Access db and PWS. A frames page populates two combo boxes with information from two tables. No problem so far. The choices the user makes will build my SQL statement for reporting. I make the connection using an include, Jet 4.0 Provider. My problem is once I...

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.

Only knowing enough to get myself in trouble, I'm trying to delete records from a recordset. I'm writing the code in Excel97 against an Access97 database using an ADO connection. I populate a table with data from one of the Excel worksheets. This data contains certain records that need to be...

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...