ACCESS FEED: Re: [MS_AccessPros] Referencing form?

Kamis, 15 Agustus 2013

Re: [MS_AccessPros] Referencing form?

Thank you Diane.

--- In MS_Access_Professionals@yahoogroups.com, Duane Hookom <duanehookom@...> wrote:
>
> Phucon,
>
> Assuming the form you are validating is the current form I think you need to use:
>
> Private Sub Form_BeforeUpdate(Cancel As Integer)
> Call ValidateData(Me)
> End Sub
>
> Duane Hookom MVP
> MS Access
>
> ----------------------------------------
> > To: MS_Access_Professionals@yahoogroups.com
> > From: saigonf7q5@...
> > Date: Thu, 15 Aug 2013 18:36:03 +0000
> > Subject: [MS_AccessPros] Referencing form?
> >
> > Hello
> > I have the procedures as shown below. If I enter the argument without the "Form_" which is like this "frmPshowData". It will generate a "variable not defined" error.
> >
> > When is it necessary to include the "Form_" and when it's not? e.g. Form_frmPShowData, frmPShowData.
> >
> > Another question that I have is, when a user left a require field blank, in this case, a date. How do I keep the user from closing or exit out the form without entering the correct data?
> >
> > Thank you
> > Phucon
> >
> > Private Sub Form_BeforeUpdate(Cancel As Integer)
> > Call ValidateData(Form_frmPShowData)
> > End Sub
> >
> > Public Sub ValidateData(Frm As Form)
> > On Error GoTo ErrorHandler
> >
> > Select Case txtVData
> > Case "Yes"
> > Frm!txtVDate.Enabled = True
> > If Frm!txtVDate & "" = "" Then
> > MsgBox "Please enter a date.", vbExclamation, "Invalid data"
> > Frm!txtVDate.SetFocus
> > End If
> > Case "No"
> > Frm!txtVDate.Enabled = False
> > Case Else
> > MsgBox "Enter ""Yes"" or ""No"" only", vbExclamation, "Invalid Data"
> > End Select
> >
> > ExitProcedure:
> > On Error Resume Next
> > Exit Sub
> >
> > ErrorHandler:
> > MsgBox Err.Number & vbCrLf & Err.Description
> > Resume ExitProcedure
> > Resume
> > End Sub
> >
> >
> >
> >
> > ------------------------------------
> >
> > Yahoo! Groups Links
> >
> >
> >
>