Replies

In the criteria line of each column, put IS NULL; in the ‘update to’ line of each column, put 0 (Zero). Copy your table first, then try this.

Cathy: Try this:

=DateSerial(Year(Date()),Month(Date())+1,0)

My post read, set the breakpoint as normal, or as you would normally set a breakpoint, i.e., in VBE, Debug, Toggle breakpoint. Exit from VBE and click your button. Your code should stop at the breakpoint. Sorry I was a little vague. HTH.

Lisa: This problem happened to me just yesterday. What I had to do was set the breakpoint as normal, then exit the VBE and return to my form and run the code (from a button click) and all worked well. HTH.

Roberta: Try this, making necessary name changes to meet your specs.

‘ Check to see that ending date is later than beginning date

If IsDate(BeginningDate) And IsDate(EndingDate) Then
If EndingDate < BeginningDate Then
MsgBox "The ending date must be later than the beginning date."
SetDate.Caption = "Set Ending Date"
SelectDate.SetFocus
Exit Sub
End If
Else
MsgBox " Please us a valid date for the" & vbCrLf & _
"beginning date and ending date values"
Exit Sub
End If

Thomas: Thanks. This will give me a start. Appreciate the reply.

Thomas: Could just the structures be viewed?

Thomas: I would love to see your survey Db. If you would, could you attach it to an e-mail. My address is bckessinger@cmhmetro.net. TIA.

Try Like *-FX

Wendell: Thanks for the insights. I appreciate your response and I think I will take your advice to convert front-end/back-end at the same time.

I found the information I was looking for on, of all places, MS KB site, Q237313 which has a conversion white paper that can be downloaded.

These work for me in calculating age in years and months. HTH.

Function AgeInYears(Bdate As Long)
Dim age
If IsNull(Bdate) Or Bdate > Now Then
age = Null
Exit Function
End If

AgeInYears = Year(Now) – Year(Bdate) + (DateSerial(Year(Now), _
Month(Bdate), Day(Bdate)) > Now)

End Function

Function AgeInMonths(Bdate As Long)
Dim age
Dim AgeTemp
If IsNull(Bdate) Or Bdate > Now Then
age = Null
Exit Function
End If

AgeTemp = DateDiff(“m”, Bdate, Now) + (Day(Bdate) > Day(Now))
AgeTemp = AgeTemp / 12 – Int(AgeTemp / 12)
AgeInMonths = Format(AgeTemp * 12, “##”)

End Function

Select * from table
ORDER BY Ageinyears([dtmBirthdate]), AgeInMonths([dtmBirthdate]);

It looks like you are parsing correctly for the most part. If you want to omit the hyphen in OFFICE, add 1 to the value in TEMP similar to this example.

OFFICE: Mid([Next],[Temp Name]+1)

This will start the parse 1 character past the hyphen. HTH.

Sean: Try this link

http://www.mvps.org/access/reports/index.htm

Scroll down to ” Printing First and Last Page Numbers for Report Groups”. I have used it and it works. I think it is what you want. Do read it carefully as it is intense. HTH.

John: I had the same question some time back and this is the response I received from Microsoft. I never had the chance to try it though, so let us know. HTH.

If you are curious about how to have more than 8 buttons per switchboard page,
you can perform the following steps to test:
I assume that you have a main switchboard form named “switchboard” in your
database.
1. Back up the database first.
2. Open the “switchboard” form in design view.
3. Add the ninth button named “Option9” and in the “On Click” event property
sheet input “=HandleButtonClick(9)”.
4. Add the ninth label named “OptionLabel9” and in the “On Click” event
property sheet input “=HandleButtonClick(9)”. Also, set its “caption” property
to “command9”
5. Save the changes and then open VBE by press ALT+F11.
6. Find the underlying VBA module of “switchboard”. Its name should be
“Form_switchboard”.
7. In this module, find the FillOptions() procedure. Then, change the code
below
From
Const conNumButtons = 8
To
Const conNumButtons = 9
8. Compile and save the changes.
9. Now, you can add the ninth option directly to the “Switchboard Items” table.
Note: you are still not allowed to new the ninth switchboard item through
Switchboard Manager.
For example, if the record of “option 8” is:
SwitchboardID ItemNumber ItemText
18 commond 8
Then, add a new record like below:
SwitchboardID ItemNumber ItemText
1 9 commond 9
Save the changes.
10. Open Switchboard Manager, you will note the command 9 is in the switchboard
item list. Then, you can set the operation for the “commond 9” switchboard
item.