Replies

If the db is not too large, your user could e-mail it to me and I would run the program against the db. Save yourself/your user $45

This product will work for Database Level passwords and for User-Level Passwords. If the password is in VBA, it will not work.

Judy: There is a product, Access Key 5.0.0. Try this link http://www.lostpassword.com/ I purchased it 2 months ago for $45.00 and has been a lifesaver for me. HTH.

K: Design your report and in design view, Click on File, Page Setup. Click on the Columns tab, select number of columns, then change column size (on portrait view, each column would be about 3-3.25″), then click down and across, click okay and save report. Also you can copy your headings so that you will have two sets (one set for each column). HTH.

Hello: Maybe these will help:

You can use the following expressions in a report footer to count the occurrences of Yes, No, or Null in a field named YesNoField with a data type of Yes/No:
Expression Sums What
——————————————–
=Sum(IIF([YesNoField],1,0)) Yes
=Sum(IIF([YesNoField],0,1)) No
=Sum(IIF(Not[YesNoField],1,0)) No
=Sum(IIF(IsNull[YesNoField],1,0)) Null
You can also create a related expression to count a specific value in a field. For example, the following sample expression counts all occurrences of the value 3 in a field called MyField.
=Sum(IIF([MyField]=3,1,0))

From the Microsoft Knowledge Base site, Keywords count yes/no

Linda: Try this for the year.

YearDate: DatePart(“yyyy”,[DateCompleted]).

HTH.

Paula: From Access 2000 help, keyword was specification – number of controls over the lifetime of a form or report is 754. If you have that many, WOW! 255 is the number of fields in a table or recordset. You may want to check these also.

Steve: Think of Many-to-Many relationships as two, one-to-many relationships. Then create forms and subforms to handle each, i.e., Main form # 1 would be based on Contacts table, subform would be based on a query of Address table and ContactsAddress table. Main form # 2 would be based on Address table and the subform would be based on a query of Contacts and ContactsAddress table. Check out the Student and Classes database wizard in Access 97 to see a good example of how this would work. HTH.

John: Here it is. Plus the TYPE definitions, etc. that go along with it. Good luck.

Option Compare Database
Option Explicit

Public CurrentStreet
Public CurrentZip
Public CurrentAddress

Type str_DEVMODE
RGB As String * 94
End Type

Type type_DEVMODE
strDeviceName As String * 16
intSpecVersion As Integer
intDriverVersion As Integer
intSize As Integer
intDriverExtra As Integer
lngFields As Long
intOrientation As Integer
intPaperSize As Integer
intPaperLength As Integer
intPaperWidth As Integer
intScale As Integer
intCopies As Integer
intDefaultSource As Integer
intPrintQuality As Integer
intColor As Integer

intDuplex As Integer
intResolution As Integer
intTTOption As Integer
intCollate As Integer
strFormName As String * 16
lngPad As Long
lngBits As Long
lngPW As Long
lngPH As Long
lngDFI As Long
lngDFr As Long
End Type

Function SetReportSize(rptName As String, rptPaper As Integer, rptOrientation As Integer)
Dim DevString As str_DEVMODE
Dim DM As type_DEVMODE
Dim strDevModeExtra As String
Dim rpt As Report
Dim intResponse As Integer
‘ Opens report in Design view.
DoCmd.OpenReport rptName, acViewDesign

Set rpt = Reports(rptName)
If Not IsNull(rpt.PrtDevMode) Then
strDevModeExtra = rpt.PrtDevMode ‘ Gets current DEVMODE structure.
DevString.RGB = strDevModeExtra
LSet DM = DevString

DM.intPaperSize = rptPaper ‘ 1-letter, 5-legal, 17- 11×17
DM.intOrientation = rptOrientation ‘1 – portrait, 2 – landscape

LSet DevString = DM
Mid(strDevModeExtra, 1, 94) = DevString.RGB
rpt.PrtDevMode = strDevModeExtra
DoCmd.Save

DoCmd.OpenReport rptName, acViewPreview
End If
End Function

Yes. Should have look a little harder. Thanks again.

Jayden: Thanks much. I never even thought to check for a custom function.

Charlotte: I inherited a system with SetReportSize as a function/procedure in an OnClick event of a button. Code is as follows:

Private Sub cmd_all_Click
Dim rptName as String
Dim rptSize as Integer
Dim rptOrientation as Integer

rptName = “Parking Permit Report”
rptSize = 17 ‘1-letter, 5-legal, 17-11×17
rptOrientation = 2 ‘1-portrait,2-landscape

SetReportSize rptName, rptSize, rptOrientation
End Sub

Was wondering if there were any more arguments/parameters, such as setting margins, etc.

Thanks for responding.

Cynthia: Try an Unmatched query on the two tables, the table of dates being table one, the table with names and dates being table two. The Unmatched query wizard will step you thru the process and have a nice weekend.

Here I go again, finding solutions to my own problems. I put the report in design view and under ‘Sorting and Grouping’ tool, I changed the ‘Keep Together’ property here from ‘No’ to ‘Whole Group’. Problem solved.

Let me re-phrase the problem. Is there a way to keep a header section and the corresponding detail section together if the data spans more than one page? Example: I have information about a street in a header, with detail information about the street in the detail section. The header sections breaks on [STREET1]

HEADER SECTION INCLUDES:

The parking regulations on the 203 foot long block face along the north side of [STREET1] from
[STREET2] extending to [STREET3] shall be:

Range, Code, Regulation

DETAIL SECTION INCLUDES:

000 – 115 feet, 2105.17, No Stopping Anytime
115 – 203 feet, 2105.14, Bus Stop Only

Would like to keep this all together if the detail goes to a different page. The detail section is variable, meaning the range could have many different regs applied.

Hope this clarifies.