August 13th, 2004, 04:22 AM
|
|
[OT] Access Viewer
P.S. Got the macro working... Earlier, I had put the name of the function in
the "Comment" column. Whooo boy... am I rusty!
Fred
"Jeff Conrad" wrote in message
...
"Fred Boer" wrote:
Yes, we got back last night, and today I've been wringing out all the
sopping wet clothes and camping gear from the soaking they got in Cape
Breton!
Welcome back, glad you made it home safe.
I've never actually used macros, and I couldn't make your instructions
work
(my fault I am sure!), but when I put the code behind a command button I
got
the desired effect. So *that's* what you are talking about...
1. Create a new macro
2. In the Action column select RunCode from the list
3. In the bottom left corner of the screen a new line will appear that
says "Function Name"
4. Just put funcCountdown () in that area
5. Save the macro with the name AutoExec
That's it.
Make sure you ask for that day off.
g
I thought it was the add-in, and you were just giving yourself a bit
more realistic lead
time!! (g,d,r.... as fast as possible!)
Ohhhhh ouch that hurt! :-)
Actually I started and finished creating another Add-In while I was on
vacation last week!
Would you like to be the first one to try it out after I finish testing
everything?
P.S. Thanks for helping with my database... obviously no hurry. I'll be
in
touch privately as soon as I get a bit more time...
No problem, right now I just have more questions than answers on your
database.
--
Jeff Conrad
Access Junkie
Bend, Oregon
*280 Days Left*
"Jeff Conrad" wrote in message
...
"Fred Boer" wrote:
*281 Days Left*
And counting!! ;=)))
You might be the only one who understands what that is.
;-)
Oh no, she's not!
Very good Fred!
Are you back? I thought you were still gone?
Strange coincidence, I was just working on your database a few minutes
ago
(serious).
So you never forget Fred:
1. Create a new blank database called Countdown
2. Copy/Paste the following code to a new standard module:
' Begin Code
Public Function funcCountdown()
On Error GoTo ErrorPoint
Dim strMessage As String
Dim TargetDate As Date
TargetDate = "05/19/2005"
strMessage = Chr$(83) & Chr$(116) & Chr$(97) & Chr$(114) & " " _
& Chr$(87) & Chr$(97) & Chr$(114) & Chr$(115)
strMessage = strMessage & " " & Chr$(45) & " "
strMessage = strMessage & Chr$(69) & Chr$(112) & Chr$(105) & Chr$(115)
_
& Chr$(111) & Chr$(100) & Chr$(101) & " " _
& Chr$(73) & Chr$(73) & Chr$(73)
strMessage = strMessage & vbNewLine
strMessage = strMessage & Chr$(34) & Chr$(82) & Chr$(101) & Chr$(118)
_
& Chr$(101) & Chr$(110) & Chr$(103) & Chr$(101) & " "
strMessage = strMessage & Chr$(111) & Chr$(102) & " " & Chr$(116) &
Chr$(104) _
& Chr$(101) & " " & Chr$(83) & Chr$(105) & Chr$(116) & Chr$(104) &
Chr$(34)
strMessage = strMessage & vbNewLine & vbNewLine
strMessage = strMessage & Chr$(79) & Chr$(112) & Chr$(101) & Chr$(110)
_
& Chr$(105) & Chr$(110) & Chr$(103) & " - "
strMessage = strMessage & TargetDate
strMessage = strMessage & vbNewLine & vbNewLine
strMessage = strMessage & Chr$(68) & Chr$(97) & Chr$(121) & Chr$(115)
_
& " " & Chr$(108) & Chr$(101) & Chr$(102) & Chr$(116) & Chr$(58) & " "
strMessage = strMessage & DateDiff("d", Now, TargetDate)
MsgBox strMessage, vbExclamation, "Mark Your Calendar!"
DoCmd.Quit
ExitPoint:
Exit Function
ErrorPoint:
MsgBox "The following error has occurred:" _
& vbNewLine & "Error Number: " & Err.Number _
& vbNewLine & "Error Description: " _
& Err.Description, vbExclamation, _
"Unexpected Error"
Resume ExitPoint
End Function
' Code End
3. Compile the code and save the module as modCountdown
4. Create a new macro with RunCode as the action and funcCountdown()
as
the Function Name.
5. Save the macro with the name AutoExec so it will run on Startup
6. Go to Tools--Startup and uncheck the Display Database Window option
7. Close the database and create a desktop shortcut icon and launch it
any
day you want to find out
how many days are left till the BIG day!!
;-)
--
Jeff Conrad
Access Junkie
Bend, Oregon
*280 Days Left*
|