Code:
TRANSFORM Val(NZ(Sum(tblExpenses.Value),0)) AS SumOfValue SELECT tblExpenses.[ExpenseArea], tblExpenses.[ExpenseType] FROM tblExpenses GROUP BY tblExpenses.[ExpenseArea], tblExpenses.[ExpenseType] PIVOT tblExpenses.[Year];
parodux
Last Activity: Jan 19 '11, 09:10 AM
Joined: Jul 15 '10
Location: Denmark
-
er der andet, så kan du fange mig her!~) -
Hi,
* the filter on the company report buttons macro was a bit off
* the groupings on the report was a bit mixed up
* the financial info had to be taken out of the SQL for the report. That's what created the repetitions.
* the charts are made from a cross tab query, which is wrong in this case
* there was a company filter missing on your charts report
* and little things here and there....
* I added...Leave a comment:
-
severin at my username dot comLeave a comment:
-
Hi, I would like to help... but time is ..... if you send me the db I will take a look and see what I can do!~)Leave a comment:
-
What is the SQL for the chart?
What is the SQL for the report?
What is the SQL for the subreport?
And what fields binds the subreport to the report?~)Leave a comment:
-
If you run sql_Approvers_t o_MktPlacePOs on its own then it will ask you about the criteria you have in the query. If you have something like: BETWEEN [forms]![YourForm]![DateFrom] AND [forms]![YourForm]![DateTo] then your solution would look like this:
...Code:Dim db as DAO.Database Dim qdf as DAO.Querydef Dim rstTemp as DAO.Recordset Set db = CurrentDb() Set qdf = db.QueryDefs("sql_Approvers_to_MktPlacePOs")Leave a comment:
-
by the way slenish you never answered the question about rst.movefirst!~ )Leave a comment:
-
I agree with NeoPa... and the only reason I can see as to why you are doing what you are doing, is that you want the end user to press save before any changes is done.
If you can't get this unbound thing to work... You could turn the scenario around and do NeoPa's solution with an added 'please-let-me-take-it-back' button.. that's straight forward!~)Leave a comment:
-
can you do rst.movefirstLeave a comment:
-
are you sure that the sql has a record to edit?~)Leave a comment:
-
..if everything else work then your only problem is the rst.addnew it should be rst.edit!~)Leave a comment:
-
Leave a comment:
-
You could also try this:
Code:clng(DateDiff("d",Nz(CVDate(Format([FPYD],"&&/&&/&&")))),Nz(CVDate(Mid$([DOFD],5,2) & "/" & Mid$([DOFD],7,2) & "/" & Left$([DOFD],4))))))<120Leave a comment:
-
You mentioned the ControlName_Aft erUpdate() that's all..
I wouldn't use it!~)...Leave a comment:
-
I think I get your point!~)
Anyway, yes.. I do like to keep my code tidy and the Set rs = Nothing I just forgot, I normally use that to.
..About the afterupdate... edme just wants a value from the last post when in a new post. So if you open the form and goto new post you need to pick up the value from the last post on the way!~)...Leave a comment:
-
Sorry I was just elsewhere... Right click on the field in design view!~)Leave a comment:
-
Insert this expression on your conditional formatting:
Code:DateDiff("m";[YourDateField];Date())>3Leave a comment:
-
I believe the best way to do this is:
Code:Private Sub Form_Current() Dim rs As DAO.Recordset If Me.NewRecord Then Set rs = Me.RecordsetClone rs.MoveLast Me!NameOfField.DefaultValue = rs!NameOfField rs.Close End If End SubLeave a comment:
-
thanks, now I'm going to stay!~)Leave a comment:
-
thanks for clearing this issue.. I was getting a bit tense here!~)...Leave a comment:
No activity results to display
Leave a comment: