I have created the following function in my datebase so that i could specify the date a query works from.
Option Compare Database
Function GetParmValue() As Date
GetParmValue = InputBox("Please enter the date you wish to update!?")
End Function
I have a button on a form that runs the query in question, there is also an identical query that needs to be ran using the same result from the input box but rather than it display the input box twice i wondered if there was a way i could use the result from one of the boxes with both queries!?
Here is the code for the button;
Private Sub bImport5_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "Update"
DoCmd.OpenQuery "UpdateFuture"
DoCmd.OpenQuery "MoveFuture"
DoCmd.SetWarnings True
MsgBox "Files have now been updated to the specified date and moved to the Future Dated table!", vbOKOnly, "Update Complete"
I have several queries that perform an audit on data. I want to create a form that has two buttons, multiple labels and textboxes. When the first button is pressed, it runs all queries and returns a count of the records within each query into the corresponding textbox. Then I want a a button that will clear all textboxes. I don't want to see the queries, I just want them to run in the background and the count results to be populated in the textboxes.
I am working with Access 2010, on vista. What I have is a query made up of two tables, one product the other inventory. (see below) query.jpg
In the product table i have a field called "minimum reorder level". In the inventory table i have two fields one called "number in stock" and "number on order". What i want to happen is "number on order" to be filtered by the result, if the "number in stock", is less than "minimum reorder level", if it is, have the result placed in the "number on order" field. EG. if the "number in stock" = 2 and the "minimum reorder level" = 5 then 3 would be placed in the field "number on order" and only the second record from the query would be visible (see below) Query result.jpg The result of this would mean that the field "number on order" would be populated with the result and the and query would also use this to filter the record.
We currently manually run 5 different queries then copy and paste this data into 5 separate tabs on 1 workbook, I'm trying to automate some of this process if possible.
I am trying to use the 'transferspreadsheet' action within a macro to run a query and post it into a template excel file, using this code:
Trasfer Type Export Spreadsheet Type Excel 8-10 Table Name (query Name) FIle Name (FIle location) Has field names No Range Blank ---- This does seem to work and puts the data on a new tab on the specified workbook.
However I have a few questions:
1. Can you specify which query gets put onto which tab in excel? The tabs have different fixed names.
2. Can you specify which Cell the data gets pasted into to? As each tab has a set of headers and titles which need to remain.i.e would need to get query 1 to start in cell A4.
3. How would you expand the above out so that it runs all 5 queries, would you just add in multiple transfer spreadsheet actions in the same macro?
Well I got a little problem and well... is simply but just I didnt know How.
When I pop op a inputbox and then i enter value I want this value got parse under a field
The code is the follow:
Private Sub SetPSW_Click() Dim Boite As String Dim PSWNew As String
PSWNew = PSW.Value ' The current password is sotre under this field PSW Boite = InputBox("Entrez le nouveau mot de passe", "Nouveau Mot De Passe") PSWNew = Boite ' Here I want then the value of Boite is putting on PSWNew End Sub
Thx for help cuz i can't figure out how to do with a inputbox
Hi all, I have an Input box that appears on certain criteria, using the folllowing code Code:inputbox: myqty = inputbox("Please Enter Quantity!")If Nz(myqty, "") = "" ThenMsgBox "You must insert a value" GoTo inputboxElse![Issued] = myqty End If
Does anyone know how i can set the size of the Inputbox as at present it appears to big for what i want.
i I have two queries.. What i'm hoping is to combine the result into one query but not in one column only but instead the result of the second query should be beside the first query.. The result of the second query should be added as a new column.
First Query
SELECT tbl_uSers.UserName, Count(tbl_rEceived_eMail.EntryID) AS eMailReceived FROM tbl_rEceived_eMail INNER JOIN tbl_uSers ON tbl_rEceived_eMail.UseriD = tbl_uSers.UseriD GROUP BY tbl_uSers.UserName;
Second Query
SELECT tbl_uSers.UserName, Count(tbl_rEceived_eMail.EntryID) AS eMailProcessed FROM tbl_rEceived_eMail INNER JOIN tbl_uSers ON tbl_rEceived_eMail.UseriD = tbl_uSers.UseriD GROUP BY tbl_uSers.UserName, tbl_rEceived_eMail.ProcessedYN HAVING (((tbl_rEceived_eMail.ProcessedYN)="Y"));
Okay, I've been working on this database for weeks now, I'm almost done, there is a light at the end of the tunnel and my boss is anxious to implement the db as I'm only here for 3 more weeks and it MUST be completed, tested, error checked before I leave. So I'm running out of time FAST!
Okay, the problem is simple. I'm using a Data Access Page in Access to build a nice little front-end for my database for my co-workers to use. On this DAP (Data access page) I have an Input box that allows the users to browse their directory and select a file. I need to take the path/file name that pops up in the input box and just save it to the table. I can take care of all the other elements.
So, through DAP, how do I save the value in the inputbox into my table. Please, any help would be great! :eek:
I have an input box in which the user types in a password to enable the shift bypass, when the user types in the password it show it letter for letter, is there a way to mask the input so that it shows the characters as the traditional *
[CODE]strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & _ "Please key the programmer's password to enable the Bypass Key." strInput = InputBox(Prompt:=strMsg, title:="Disable Bypass Key Password")CODE]
I am using an input box to find a Street name in a record using the following:
Dim rs As Object Dim strCriteria As String DoCmd.OpenForm "frmStreets" strCriteria = InputBox("Please enter Street Name") DoCmd.OpenForm "frmStreets"
[Code] .....
I know that if the search criteria is a number, then the .findfirst will work OK, as I am also using that, but I am not seeing where the " or ' or * should go so the correc
I want a user to enter a number into an input box and then based on the number in this box a form will be opened with records associated only with that employee number. (All employee numbers are stored as text)The code below opens the form, but it is blank.
Private Sub cmdOpenAddKeys_Click() Dim EmployeeNumber As String EmployeeNumber = InputBox("Please Enter Employee Number:") DoCmd.OpenForm "frmAddKeys", acNormal, , "[Forms]![frmAddKeys]![empno]=" & EmployeeNumber End Sub
I am trying to get a record from tbl_new_accounts to tbl_closed_accounts, based on the number entered in a input box.
Code: Dim StoreNumber As String StoreNumber = InputBox("Please Enter The Store Number", "") CurrentDb.Execute ("INSERT INTO Tbl_Closed_Accounts SELECT Tbl_New_Accounts.* From Tbl_New_Accounts WHERE (((Tbl_New_Accounts.Fld_Store_Number)=" & StoreNumber & "));")
Instead of using an update query, so my Audit Trail will continue to update correctly, I'd like to use an input box and run a function that performs much like an update query.
My problem is, only one out of 4 records updates correctly.
If I created a query named qry1, then, I created another query (qry2) which include qry1. Is that meaning running 2 queries? Firstly, run qry1 result, then run qry2.
I've got a Macro that runs well over 100 queries as well as sub-macros. I'd like to know what query the Macro is running. My best solution so far was to create a bunch of forms that open and close with the name of each query, but that's kind of sloppy. I don't think I can use the msgbox because it prompts me to press 'OK' to continue. Any thoughts?
If you have a form that is based on a select query that has selected no records, the form will display as totally blank.
One way to avoid this is to ensure that the query is always able to select at lest one record; but Is there a way a message can be displayed if no records are selected?
I have a query which i need to get Zero as a result if NULL value. How Can i do this ? Present SQL code is as follows;
SELECT tbl_Impts_main.Bkg_number, Count(tbl_Impts_main.Bkg_number) AS CountOfBkg_number FROM tbl_Impts_main INNER JOIN tbl_booking ON (tbl_Impts_main.Voyage=tbl_booking.Voyage) AND (tbl_Impts_main.Vessel=tbl_booking.Vessel) AND (tbl_Impts_main.Bkg_number=tbl_booking.Bkg_number) GROUP BY tbl_Impts_main.Bkg_number HAVING (((tbl_Impts_main.Bkg_number)=[forms]![frm_Export_data_entry]![bkg_number]));
