If you are using a Sum field in the Page Footer this is not very simple.
You can play with the 'Sales Totals by Amount.Page Total' Macro in Norhtwind database and get the results. It is used in 'Sales Totals by Amount' Report
But it gets complicated if you have some grouping fields and page...
The information for this used to be in Kodak developer's discussion forum. Now they seem to have discarded them.
Have you tried google.
Here is the relevant part from an old discussion. You need a pc with OS Win 2k or older. Check with it.
Copying Installed Files
Copy the following files from...
Not worked in Access97 for years now. So not sure of the syntax.
First of all ( atleast in Access 2k )
db.OpenRecordset("STATUSCOMMENTS", , dbOpenDynamic) should be like
db.OpenRecordset("STATUSCOMMENTS",dbOpenDynamic,, dbOptimistic)
Also the DBEngine.OpenDatabase should have the System...
For the Masters of the Access Universe
I always keep the Edit Toolbar visible in the Code Window. It has the Comment and Uncomment block buttons which do the same but in a very handy way :-)
Like Visual Basic :-D
This is not available as Menu in Access 2K. i don't understand Microsoft at all...
This may be an issue of datatype precedence order though I have not seen it documented anywhere. You can check with VB 6 documentation for ItemData and see if anything is given there
Living with Microsoft :-(
cboYear.Column(cboYear.boundcolumn-1,cboYear.ListIndex) Must return you the same...
I don't understand why John's method is not working. Try setting the control source as =Nz([MyField],0)
This does not work in rare cases when the return value is a calculated fied which is Empty
While using Format,
You cannot use the Equivalent name of Currency or Number. use the actual format...
It is difficult to have a blank line when you are using Table/Query type RowSource. Either you have to add an empty line in the table or paly with the query
To save a null value you can trap events like OnChange with something like
If Combo0.Text = "" Then Combo0 = Null
Best of luck
This issue is more of Network Share permissions than Access
So you may have to post in similar field
Can you set the permission for the directory where your database resides as deny delete for everyone except administrator?
I am not a Network Guru, but I guess you have to play with directory...
I am not sure what error you are getting now
Try this out
Private Sub PurchaseFrom_NotInList(NewData As String, Response As Integer)
On Error GoTo err_notlisted
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("tblSites")...
What do you mean by the Form does not update?
The Event Form AfterUpdate is not triggered?
This event is triggered only after the record is updated. But since the filter action is On maybe it is missing to be executed. This has happened to me when the form is closed right after updating a field...
Try replacing this part of the SQL
WHERE ((([Customer Information Table].Phone) In (SELECT [Phone] FROM [Customer Information Table] As Tmp GROUP BY [Phone] HAVING Count(*)>1 )))
By
WHERE ((Right([Customer Information Table].Phone),7) In (SELECT Right([Phone],7) FROM [Customer Information...
Guess you can play with the RecordSource of the Report
Add a new field in the Query for the Report
AgeGrp:iif([age]<17,1,iif([age]<65,2,3)
The result of theis Expression will be 1,2 or 3
Then group the report by this field
Best of luck
The generation of Text AutoNumbers is a common problem seen in this site
thread705-723396 is one of them
The suggestion is use Dmax to find the last Number. increment by 1 and use
The syntax will look like this
LastIdString= DMax("manifest_ids", Tablename","manifest_ids...
Union query is not the solution here. You will have to use a Left Join query.
Make a backup of your existing database before you start.
First Import the New Table in a different name. say NewTable
and Your Table is oldTable
The SQL will look like
INSERT INTO oldTable( ProdNo)
SELECT...
You have to put the option buttons in an Option group.(By default the group name comes as Frame#)
Set the value of the group to null on Form Open. This removes the default value
Best of luck
You have not confused me but it is not much clearer either :-)
What do you mean by 4 different criteria?
Are they Week1, Week2, Week3 and Week4
I was assuming Criteria means condition for filtering
What do you want to achieve in the end?
Are you building up an SQL for filtering?
Or is it...
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.