Search results

Check the recordset that the report is bound to. If each record is replicated 3 times then you have a problem in the query. HTH RDH

If you are wanting to set focus to a control on the subform from the MainForm, then use this example: Me![YourSubFormControl].Form![ControlinSubForm].SetFocus Change "YourSubFormControl" to the name of the SubForm Control on the MainForm. Also change "ControlinSubForm" to the name of the...

I haven't used macros in years but here is code that will do what you ask: Private Sub EmailSnapshotFile(strReport As String, strRecipNames As String) On Error GoTo Err_EmailSnapshotFile DoCmd.Hourglass True If Len(strRecipNames) > 0 Then &nbsp DoCmd.SendObject acSendReport, strReport...

Rich is correct ... use the DMax() function to retrieve the highest number stored in the table for that specific field and add 1 to it to get the next number. To jwindon ......... When using an Autonumber datatype, if for any reason you don't complete a new record or the entry of a new record...

I don't know why you are having a problem but the "Kill" statement will delete "any" file as long as it is not open at the time of execution. RDH [This message has been edited by R. Hicks (edited 02-14-2002).]

You have a couple of problems here ........ First you have placed the line in the wrong place. The line will never execute the way you have it because the sub will exit and never get to the line of code. Try using this altered code. Notice where the line has been placed. Private Sub...

If you are using Access 2000 then you may have the original release. This problem existed in the original release. To fix the problem you need to install the Service Release patch from Microsoft as Rich suggested in his reply. Here is a link to the location where you can download the patch...

When you make the changes to the margins in the report ... you must save the change or they will revert back to what they were. RDH

You need to add "Error Handling" to the Routine. Here is an example of what you need: Private Sub YourSubName_AfterUpdate() On Error GoTo Err_Handler ' ' Your Code Here ' Err_Handler:   If Err.Number = 2501 Then   &nbsp Resume Next   Else     MsgBox Err.Number & vbCrLf & Err.Description    ...

Being you are wanting the "age at the date of interview" ... not the "age based on todays date" .... try this: DateDiff("yyyy", [DOB], [IDate]) + ([IDate] < DateSerial(Year([IDate]), Month([DOB]), Day([DOB]))) "DOB" should be the "Date of Birth" information and "IDate" should be the "Interview...

Try "Compacting and Repairing" the database. This will sometime clear up weird and unexplained things that can sometimes happen in Access. HTH RDH

Use the following function to calculate the age from the date of birth: Public Function fGetAge(DOB As Variant) As Integer If Not IsDate(DOB) Then Exit Function fGetAge = DateDiff("yyyy", DOB, Date) + (Date < DateSerial(Year(Date), Month(DOB), Day(DOB))) End Function HTH RDH [This message has...

Don .... don't take my reply wrong. I was not "Criticizing" your method. I only meant that it was much more than needed. The "rule of thumb" in programming is "simpler is better". I have learned most of what I know about Access and VBA by answering questions on forums such as this (and I have...

Hmmm .... I think that's a bit "overkill". Copy this Function to a new module: Public Function fGetAge(DOB As Variant) As Integer If Not IsDate(DOB) Then Exit Function fGetAge = DateDiff("yyyy", DOB, Date) + (Date < DateSerial(Year(Date), Month(DOB), Day(DOB))) End Function Now in the unbound...

This is not Jack ....... but how are you triggering the function (what event)? Being I don't know the details of what you are attempting to do .... could you explain? RDH

Why are you having to set the margins manually each time? You should be able to set them in design view, then save the report and they should remain. Unless .......... If you happen to be using the original release of Office/Access 2000, there is a samll bug that kept the setting being...

I can't take credit for coming up with it. I learned this trick a few years ago on a forum much like this ..... I can't remember who posted it, or where I saw it, but it works. RDH

Great .... Glad you got it working. RDH

One way to do this is to create a table that consists of one field. Name the field "CopyName", set the Datatype as Text, set the "Allow Zero Length" property for this field to "Yes". Close and Save the new table and give it a name ... something like "tblCopies". Open this table, enter a space as...

Check to see if to have code running in the background. You may have a form open that you are not working on that has something using the On Timer event. Code running in the background, it will cause weird things. HTH RDH