Check to see if a button has been clicked on a form

[Shaldaman]

Hi
Is there a property in MS Access for the following:
1) For a Command Button on a form, is there a property that can be used
to determine if it has been clicked?
eg: Me!button7.Clicked - I don't know if there is even a property like
that(Clicked)

2) For a Text Field on a form, is there a property that can be used to
find out if data has been entered in it?
I've tried Me!Textfield1.Value = Null but I'm not sure if that's the
right approach

Thanks

[pietlinden]

#1...
just the "click" event... of the button... Why do you need to know if
it's been clicked? If you want, you can disable it after it's been
clicked... or create a static variable in your form that gets set to
true when you click the button... other than that, I don't think so.
VB doesn't "remember" these things unless you code for it.

#2
use the Dirty event of the control... then it'll flag if the user has
entered or changed anything in it.

[Shaldaman]

There's a couple of buttons on the form that trigger different events.
"button1" adds records into a table, "button2" opens a new form based
on the newly entered record. If a user clicks on button2 before button1
has already been clicked, the new form will open with blank fields
since no data has been entered into the table. If you can think of a
better way of doing it, please let me know..Thanks

[Wayne Morgan]

There isn't a property to indicate that a button has been clicked, but there
is an Event that will do this. You could then set a "flag" variable in the
button's Click event to remember that it had been previously clicked. The
flag would need to be Static in the procedure or Dim'ed with module level
scope or higher.

Null is the absence of a value. You can set something to Null with x = Null,
but you can't check to see if something is currently Null that way. To see
if something is null, try IsNull(Me!TextField1). This will return True or
False.

--
Wayne Morgan
MS Access MVP
"Shaldaman" <sh************@gmail.com> wrote in message
news:11*********************@f14g2000cwb.googlegro ups.com...

Hi
Is there a property in MS Access for the following:
1) For a Command Button on a form, is there a property that can be used
to determine if it has been clicked?
eg: Me!button7.Clicked - I don't know if there is even a property like
that(Clicked)

2) For a Text Field on a form, is there a property that can be used to
find out if data has been entered in it?
I've tried Me!Textfield1.Value = Null but I'm not sure if that's the
right approach

Thanks

[Shaldaman]

Thanks a lot, Wayne. Using the IsNull(Me!TextField1) approach solved
my problem.

[osmethod]

Shaldaman wrote:

There's a couple of buttons on the form that trigger different events.
"button1" adds records into a table, "button2" opens a new form based
on the newly entered record. If a user clicks on button2 before button1
has already been clicked, the new form will open with blank fields
since no data has been entered into the table. If you can think of a
better way of doing it, please let me know..Thanks

Do you want the Form to Not open if no records are present?

To check if button1 was clicked put a checkbox on your main form. When
button1 is clicked, use the afterupdate event of button1 to set the
checkbox value to true. Then, in the onclick event of button2 check if
the checkbox is true (set), if true then open form if false use a
message box or cancel the open form event.

osmethod

[Tim Marshall]

Shaldaman wrote:

There's a couple of buttons on the form that trigger different events.
"button1" adds records into a table, "button2" opens a new form based
on the newly entered record. If a user clicks on button2 before button1
has already been clicked, the new form will open with blank fields
since no data has been entered into the table. If you can think of a
better way of doing it, please let me know..Thanks

Osmethod has suggested one viable way of doing this that is form level.
I'd prefer to do this the following way.

In the second form, the one that opens, in the on open event put in the
following code, near the top of your code, if you already have code
there for the on open event (watch for wrap):

Private Sub Form_Open(Cancel As Integer)

If Me.RecordsetClone.EOF Then

msgbox "You haven't added any records yet!", vbexclamation, "You Need
to Click Button1, first!"

Cancel = True

end if

End Sub

If you already have other code, do it this way:
Private Sub Form_Open(Cancel As Integer)

If Me.RecordsetClone.EOF Then

msgbox "You haven't added any records yet!", vbexclamation, "You Need
to Click Button1, first!"

Cancel = True

else

<do other code>

end if

End Sub

That's not all, just the above will raise an error with button2 if
button2 does not have error trapping.

Button2 should look something like:

Private Sub Button2_Click()

On Error GoTo Err_Proc

DoCmd.OpenForm "The FormThatOpensTheTableName"

Exit_Proc:

Exit Sub

Err_Proc:

Select case err.number

Case 2501 'DoCmd cancelled - form had no records

Resume Exit_Proc

Case Else

MsgBox "Error " & Err.Number & " " & Err.Description,
vbCritical, "Error Button2_Click", Err.HelpFile, Err.HelpContext

Resume Exit_Proc

End Select

End Sub
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[Shaldaman]

I just wanted to say thanks to everyone for helping out. I really
appreciate it. Thanks.

Tim Marshall wrote:

Shaldaman wrote:

There's a couple of buttons on the form that trigger different events.
"button1" adds records into a table, "button2" opens a new form based
on the newly entered record. If a user clicks on button2 before button1
has already been clicked, the new form will open with blank fields
since no data has been entered into the table. If you can think of a
better way of doing it, please let me know..Thanks

Osmethod has suggested one viable way of doing this that is form level.
I'd prefer to do this the following way.

In the second form, the one that opens, in the on open event put in the
following code, near the top of your code, if you already have code
there for the on open event (watch for wrap):

Private Sub Form_Open(Cancel As Integer)

If Me.RecordsetClone.EOF Then

msgbox "You haven't added any records yet!", vbexclamation, "You Need
to Click Button1, first!"

Cancel = True

end if

End Sub

If you already have other code, do it this way:
Private Sub Form_Open(Cancel As Integer)

If Me.RecordsetClone.EOF Then

msgbox "You haven't added any records yet!", vbexclamation, "You Need
to Click Button1, first!"

Cancel = True

else

<do other code>

end if

End Sub

That's not all, just the above will raise an error with button2 if
button2 does not have error trapping.

Button2 should look something like:

Private Sub Button2_Click()

On Error GoTo Err_Proc

DoCmd.OpenForm "The FormThatOpensTheTableName"

Exit_Proc:

Exit Sub

Err_Proc:

Select case err.number

Case 2501 'DoCmd cancelled - form had no records

Resume Exit_Proc

Case Else

MsgBox "Error " & Err.Number & " " & Err.Description,
vbCritical, "Error Button2_Click", Err.HelpFile, Err.HelpContext

Resume Exit_Proc

End Select

End Sub
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me