Search results

Hello everyone, I want to automate a query so when the user views it they see only the columns that have data. Columns that do not have data are not there. Is their a way to do this? I am using MS 2007 My Access tool is setup to import data into tables and then the user views the data...

jdraw... That was it!! Thanks so much! CurrentDb.Execute "DELETE * FROM tblProjectData WHERE [Project Name]='" & Me!Project_Name & "';"

This doesn't seem to be working either.... CurrentDb.Execute "DELETE * FROM tblProjectData WHERE [Project Name]=" & Me!Project_Name & ";" Error I get: Syntax Error (missing operator) in query expression '[Project Name] = ' Can I get some help. It will be much appreciated.

Hi everyone, I am trying to get the code below to delete rows with the specific text in Me!Project_Name. I have the code 99% complete, however, the "Enter Parameter box" is poping up and a blank input box. I can input the same text and it'll run but I want to bypass this "Parameter box"...

Hey Rx, still having issues with the code below. I took a look at the code you provided and info and can't seem to figure out a means to implement. Thanks for your continued help. Anyone know a solution? With Columns I am getting a Run-time error 1004 and with Cells I am getting a Object not...

Working Code Dim xlApp As Object Dim wb As Object Dim ws As Object Dim Lastrow As Long Dim i As Long Const xlSum = -4157 'Establishes xl App functions. Set xlApp = CreateObject("Excel.Application") With xlApp Set wb = .Workbooks.Open("D:\CLIN Summary.xlsx") Set ws = wb.Sheets(1)...

Yes. Thank you Rx. :)

Operating System: Windows 7 Software: Microsoft Excel 2010 and Access 2010 Sorry about not being more clear before. I have gotten it to work in Excel perfectly with help. Now I want to use this code below in Access 2010: Function RowsAddDollar() Dim i As Long Columns("B").Delete...

Hey everyone, I have a startup code that I found but I haven't been able to set it up to my required needs. In VBA I want to do the following: 1. I want to: Search the workbook in column A for something like the word "*Dollars*. 2. The code locates which rows have the keyword dollars and...

Range Class Fail, Subtotal Access to Excel VBA Hey everyone, I'm trying to subtotal data in an excel file but I am getting a subtotal method of Range class failed in the red text below. I have been trying to get this to work with no success. Any Ideas? Thank you!!:banghead: Public...

Been trying and can't seem to figure this out. Anyone have an idea what I may be doing wrong? Thanks!

Hey everyone. I am trying to do the following with the code below: 1. It copies the header of the sheet into SPBName for storage. 2. The code finds YR8 and copies over 7 cells to the right to YR15. 3. The code looks in each column for like *text* and delete the columns. 4. Copies the header...

I want the message box to pop up if that file "OffloadAnalysis isn't in the 'mydocuments' location and enable the user to retry until they put the file there or just cancel and proceed with the next step and skip. This worked perfectly. I am new to the error handling thing so I learned a lot...

Hey BlueIshDan sorry for the confusion. When you press the retry button if the file isn't in the my documents folder the code ends with a runtime error of 1004. I want it to loop through the code and everytime there's an error end up on the messagebox.

I'm trying to do the following with the code below: 1. If the file is not in your My Documents folder than goto errhandler and a message box pops up asking you to retry or cancel. 2. When the user clicks retry it goes back and trys again but if the file still isn't there a runtime error 1004...

Got it. Set wb = .Workbooks.Open(objFolders("mydocuments") & "\OffloadAnalysis.xlsx") Thanks for all your help.

Hmm still not working. It wants objFolders seperate, but if I do that I can't bind.

Ok I'm trying to put this in but I'm having an issue. I still want to bind the wb in at the same time. Anyone have a solution? Set wb = .Workbooks.Open objFolders("mydocuments\OffloadAnalysis.xlsx") 'Complie Error here Public Function AddITARPicOffloadAnalysis() Dim xlApp As Object...

Awesome, thanks. I will give this a try now in my code. Much appreciated.

I have the code below and I want it to open a file from my documents folder. The only problem is that every computers path is different to this folder. Does anyone know an easy way to work around and open a file in My Documents without the full path? I want to eliminate the part of the path...