I am using the the following Function to calculate Working Days. I have a table of Holidays with 2 Fields Holidate(Field Type Date) Name (Field Type Text) The Code works fine when the day in the Holidate field of the table has more than 1 digit but it will not work when it is a single digit date...
I need to compare the data between 2years. I have a query that is run from a form that uses parameters between 2 dates from the form. Ineed to compare the date from the same period in the previous year. eg Between begindate a endDate and between begindate-365 and endDate-365. This gives me the...
I am using a form as a General purpose switchboard for an application. One of the functions of the form is to update data from text files exported from another application. I am using a text box to display the date of the last update using the function =DMax("[INV_DATE]","SCEX").Unless I open...
I am using a function Modified() that calculates when a file was last modified. I want to use this function to create a heading in a query eg. [Stock_On_hand] As SOH & Modified.
I am using the following code in a Command Button but cannot get it to work.
Private Sub CmdMthly_Click()
Dim db As...
I am using a report that uses code to generate Dynamic Column Headings. The report appears correctly in the print preview mode but when printed the report only prints multiple records of the last record on the report.
Any help appreciated
Errol
Iam using a form to send Parameters to a Query used to generate a report with Dynamic Column headings. I can get the report to work to work until I use a second Query to get further data. The error message is "To few parameters expected 5" The following is The query SQL:-
PARAMETERS...
I am using a text box on form to input records to a table. I need to to prefix each record in the table with the letters CPFE. The Input Mask that I am using a present is "CPFE"&&&&&&. This shows correctly in the text box but only the numbers are transferred to the table and not the CPFE...
When I use a combo box on a form to transfer a value to an update query the value transferred appears as a small square and not the value in the combo box.
Combo box code SELECT T_PICK_STATUS.NO_STATUS, T_PICK_STATUS.ID_STATUS
FROM T_PICK_STATUS;
Command Button code Private Sub CmdStat_Click()...
Iam exporting an Access report to to an RTF file.
I want to rename the file on each output by an automatic increment of 1 EG Order1,Order2,Order3 and so on.
I am using the following code
Private Sub CmdExport_Click()
On Error GoTo Err_CmdExport_Click
Dim stDocName As String
stDocName...
I am using a report that creates a Price List. Under certain categories I dont want a second price to appear.
I am using the following code in report to try and make this happen. the code works for the first condition but will not operate on the "And" section of the line marked in red...
Iam using a crosstab query that uses a function that should return a possible 3 values Commercial Retail or Not Valid the function code is as follows
Function RetGrp(MyGrp As Variant)
Select Case MyGrp
Case 1 To 11: RetGrp = "Retail"
Case 22: RetGrp = "Retail"
Case 25...
I am using a Form to run a crosstab query that has date column headings, I want the column headings to change according to the dates in the selected parameters from the input form.
I am us the following SQL at present
Private Sub CmdSelect_Click()
Dim db As DAO.database
Set db = CurrentDb...
I have a query that gets its criteria from a form. Is it possible to remove or replace fields in the query from the form in order to increase or decrease the data required.
TRANSFORM Sum(round([NETT]-[gst])) AS Sales
SELECT SCEX.AC_NO, DREX.NAME, DREX.CLASS, retgrp([SCEX].[CLASS]) AS GRP...
I have an access report that produces a price list. I need to insert into the report a special section to cover retail products that are alredy in the price list these products are already shown in their respective categories and I need them to still be in their general category but if they have...
I have a report that needs more columns in first six pages and for the first six pages to be printed in Landscape format. The rest of the report is printed in Potrait format with a lesser amount of columns. Is there any way to change the format with code so that I don't have to print and...
I have a table of imported data with 2 fields,I need to move 1 field up uniformly 1 row in order that I can use the imported data eg:
P/N Supplier
1234 Null
SuppName
Change To
1234 SuppName
I have been putting the data into Excel and moving 1 column up 1 row but I would like to get...
I am trying to use a form to enter data in a table. The form has a button in it that first deletes all the records from the table then runs an append query that adds the records to the table for editing in the form. However when this operation is carried out "Deleted# appears in every text...
I am using the following code to extract text and write a report, however I need a line of code to test if the table exists if it exists continue if not jump the line and continue.
Function ImportData()
Dim Message, Title, Default, MyValue
M
I have a report and I use the the following function to create an index
Option Compare Database
Option Explicit
Dim db As Database
Dim toctable As Recordset
Function InitToc()
' Called from the OnOpen property of the report.
' Opens the database and the table for the report.
Dim qd As...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.