Function problem

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

niclive@gmail.com - 22 May 2007 09:41 GMT

Please help.I am new to VBA.
I want to create a public function and embed it in my startup splash
form that quits the application if date() > mydate unless a user puts
in a value(input box in the function will take this value and assign
it to a variable).
Please help.

Reply to this Message

Stefan Hoffmann - 22 May 2007 10:09 GMT

hi,

> Please help.I am new to VBA.
> I want to create a public function and embed it in my startup splash
> form that quits the application if date() > mydate unless a user puts
> in a value(input box in the function will take this value and assign
> it to a variable).

Public Sub Quit(ADate As Date)

On Local Error GoTo LocalError

If ADate < Date() Then
If Len(Trim(Nz(txtInput.Value, ""))) = 0 Then
DoCmd.Quit acSavePrompt
End If
End If

Exit Sub

LocalError:
MsgBox Err.Description & "; Err#:" & Err.Number

End Sub

mfG
--> stefan <--

Reply to this Message