Is ACCOUNT.LETTER a date field? Looks like text.
Try: WHERE ((([ACCOUNT Query].MAJCOM)="PRIMARY") AND
(CDate(ACCOUNT.LETTER)<DateAdd("yyyy",-1,Date())));
Need each department's data to start on new page.
Setting Department Header Force New Page to Before Section leaves first page without data.
Setting Department Footer Force New Page to After Section forces Report Footer to new page (undesirable, especially when the report is limited to one...
Have you double-checked your tab order? Can you get to a new record via navigation buttons? I've added a "next" button at the end of a form before, but there was some other specific reason for that.
Look at the InStr function. You probably want something like:
Right([fieldname], Len([fieldname])-InStr(">",[fieldname]))
(check all syntax - I'm a little out of practice)
Are the Section's CanShrink and CanGrow properties also set to yes? Try decreasing the spacing between subreport controls until they all touch, no white space between and no overlap.
You can link to all your tables, and use a union query if you want to use them all together again. Why do you need to keep each year separate, and how else were you thinking of accessing them again?
How about Between Date()+1-weekday(Date()) And Date()-1? Or tell the weekday function that Monday is the first day of the week (don't use the function, but have heard it can be done) and skip the "+1".
...not a dup and not after a gap, previous was one less
CodeStatus.CodeRt = CodeStatus.CodeRt - 1
End If
If StatusFlag = "*" Then
'If it's after a gap, previous was at least two less
CodeStatus.CodeRt = CodeStatus.CodeRt - 2
End If...
...not a dup and not after a gap, previous was one less
CodeStatus.CodeRt = CodeStatus.CodeRt - 1
End If
If StatusFlag = "*" Then
'If it's after a gap, previous was at least two less
CodeStatus.CodeRt = CodeStatus.CodeRt - 2
End If
End...
You would need to nest your IIfs, more like:
IIf([Local School Districts]=-1,"Local School Districts" & IIf([Academic
Educators]=-1,"Academic Educators",""),"")
IIf(condition1, truepart & IIf(condition2, truepart & IIf(condition3...
...End If
End If
If (Not blnNoCalc) Then
If (CLng(CodeStatus.CodeRt) + 1 <> [CodeRt]) Then
StatusFlag = "*"
End If
End If
Me.txtStatus = StatusFlag
With CodeStatus
.Branch = [Branch]
.CodeRt = [CodeRt]
End With
End Sub...
What in your macro is calling for the dates? Your query doesn't need to be open before the report, but the form does, otherwise Access has nowhere to look for the dates and will ask you for them.
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.