Vba To Run Queries With Parameters |
Vba To Run Queries With Parameters - Excel |
|
I'm fairly new to this so be gentle with me.
I've got a few queries to run in a database but some need parameters.
Here's what I've got so far:-
Code:
Function test() Dim qdf As QueryDef reducer = 7 While Format(Date - reducer, "Dddd") "Monday" reducer = reducer + 1 Wend agent_start_date = Date - reducer leave_start_date = agent_start_date - 98 qrystartdate = InputBox("Enter Start date of data", "First day of Data Required", Date - 7) DoCmd.OpenQuery ("Update_Agent_Information") DoCmd.OpenQuery ("Append_Agent_Information") qdf.Parameters(0) = agent_start_date DoCmd.OpenQuery ("Delete_Agent_Leave") qdf.Parameters(0) = agent_start_date DoCmd.OpenQuery ("Update_Agent_Leave") qdf.Parameters(0) = agent_start_date DoCmd.OpenQuery ("Append_Agent_Leave") qdf.Parameters(0) = leave_start_date DoCmd.OpenQuery ("Output_Query") End Function
I've got the dates sorted but I can't seem to pass them to the query to use instead of a prompt box.
Anyone any ideas?
Similar Topics
So I am at work workin on this report and I need a function that will make Excel automatically insert the today's date in a cell (let's say D90) when I fill the content of another cell (for example C90) and the that will be inserted will never change. I tried to use the =TODAY( ) function but it keeps updating the date in the cell to the current date if i reopen the worksheet 2 days later. I need the cell to keep in the cell the date of the day when I filled in the content of cell C90 and do not updated it every time i open the document to the actual date.. Thanks in advance!!
I hope you can help me with what I would like to do. I've searched and searched and not come up with anything yet!!
I have one sheet which is my 'data' sheet with a number of columns, one of which is a date which may be repeated.
I then want to use another sheet with two cells where two dates can be entered and a button which allows you to copy the rows of data from the data sheet which have dates between the two specified originally. The list in the data sheet may not be in date order although I could update a macro to do this for me if needed. I would also like to do it so that if "ALL" is typed in the date fields, it pulls over ALL the data. (Or something similar)
Any help you can give would be much appreciated.
Cheers,
Kevin
I have the following code:
Code:
Sub Development() Pass = InputBox("Please enter development password", "Password") If Pass = "XYZ" Then UnhideAll Else: MsgBox ("Password incorrect, please try again") End If End Sub
This works, but I want to hide the text as it is entered.
Is there a way I can enter this as a property? i.e. inputbox.text.property = ... or something?? I've tried what seems intuitive, but nothing works.
Help!
But I do not want to insert any sheet for different dates & also the format will not be copied & paste in the same sheet. Just at the place of Date the date will be changed & the datas will be entered manually for each day.
In future, when I shall put the date, the datas will show that particular date's datas only.
Can anyone help me ?
I have formulas to add a number of days to a cell containing an entered date and display the resulting new date (ie. 03/01/2011 (c34)+11 = 03/12/2011)
I am seeking to leave resulting formula cell blank until a date is entered in the input cell. Currently when the input cell is empty the formula cell obviously displays 1/11/1900 using the above example.
What conditional format would achieve leaving the formula cell blank until date data in entered into the source cell?
Hopefully a simpler question for your experience level than mine.
current date when opened, using today(). Users then Save As to have an
archive copy of their spreadsheet. However, when they go back to access
their saved sheet, the date changes from the created date to the current
date. How do I stop this in Excel?
I know that Word lets you do this by changing the code from {DATE} to
{CREATEDATE}, but I can't find a similar setting in Excel.
Please help and thank you!
I want it to automatically fill in today's date, when a certain empty cell has a value put in, then freeze there.
Thanks in advance!
The following can be used to simulate the same, and avoid having to achieve the same with VBA's IsDate function:
STEPS:
1- Format the column (ex A) as text
2- Formula to check for valid dates:
=ISERROR(DATEVALUE(A1))
For instance,
A B
1 $32.17 8/17/08
2 $43.20 9/12/09
If I go in and update cell A1 to $33.98 today I would like cell B1 to read 2/16/10. But I don't want cell B2 to change.
Thanks
Thanks in advance for any assistance.
Mick
date (1/10/05) in cell A1 for example, then B1 automatically changes to
1/11/05, C1 to 1/12/05, etc. Can anyone help? Thanks!!
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("H10").Value & Format(Date, "mmdd")
This saves it as the correct cell value + the date, but it saves it to my documents. I need it to save to a shared folder on a network drive.
Any help would be greatly appreciated.
THANKS
I am trying to reference a cell on another worksheet, the cell is formatted to be a date. when i put in the following formula =Sheet2!A1 and i don't input a date into A1 on sheet 2 the cell containing the formula shows the date 00/01/1900, is there any way of stopping this showing, ideally the cell would be blank until I inputted a date into A1 on sheet 2
Any help would be very much appreciated
I am trying to calculate our On Time Delivery. I want this as a simple percentage of jobs. I have got this running in the following way:
Column M - Estimated Delivery dates
Column N - Actual Delivery dates
Column O - =IF(SUM(M2-N2)>0,1,0)
Then I have calculated On Time Delivery as: =SUM((SUM(O2:O252))/(COUNTA(N2:N252)))
This seems to work fine. My problem is, if we enter a date in Estimated without a corresponding Actual date, the formula for Column O fills out anyway and improves our On Time Delivery Percentage. How can I set this up so that the formula doesn't calculate if there is no data in Column N?
Any help much appreciated
Thanks,
James
This is what I have so far (hire date is in column B):
=((TODAY()-B4)/365)&" YEARS"
This function gives me a number with many decimal places.
I tried:
=ROUNDDOWN((TODAY()-B4)/365),0)&" YEARS"
It tells me I have too few arguments. Please help!
If any one could give me a solution for this its will be a great help for me.
I am working in a bank and on every day we receive Month to date data of Loans and advances made by every branch with Region wise total and manager wise total. With Sum of loan and count of loan. In our MIS format the in A coulum branches are sorted and listed in a sequence with sub total Region. I have data where if if do the pivot and change the data the out put should be displayed accordingly in the MIS format. Can any one help me how can we do this or is there any other office addins/softwares are available if so the data is changed on a daily basis and if we do the pivot it will automatically copy the data to the MIS format.
Thanks.
inbetween the two dates. Does anyone know how to then convert the number of
days into months?
I've been struggling with this for a while now and can't believe how hard it is!. I've searched on this site and on others to get some clarification but to no avail.
It's pretty simple really. I have a user form which contains a tex box for a user to input the date I want the format to be dd/mm/yyyy but can't find out how to set the format of the text box to this.
Please can someone give me a bit of guidence or link me to a good rescource if missed it in the search.
Thanks in advance.
G
Can someone please help? I've got quite a lot of data that I want to sort
by the persons date of birth, but because I have cells with formula in it
(this works out the persons age) the sort function is changing the formulas
so the formulas no longer work becuase it changes the cell where it is
getting the data from. Does anyone have any ideas how this could be fixed??
Thanks!