Pop-up reminder on Forms??

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Monish - 25 Oct 2005 18:06 GMT

Hi all -

Can anyone tell me how to set up a popup reminder when a user moves off a
record as they use my form to inpout data?

I want to reinforce a few specific fields to them, which I would like ensure
they have reviewed before moving to the next record input/update.

Thanks anyone!!
M

Reply to this Message

Ofer - 25 Oct 2005 18:30 GMT

You can use the before update event of the form, to check if specific fields
were used.

If IsNull(me.Field1Name) Or IsNull(Me.Field2Name) then
msgbox "Fields 1 and 2 must be filled"
cancel = True ' wont let the user move to the next record
End if

Signature

If I answered your question, please mark it as an answer. That way, it will
stay saved for a longer time, so other can benifit from it.

Good luck

> Hi all -
>
[quoted text clipped - 6 lines]
> Thanks anyone!!
> M

Reply to this Message

Monish - 25 Oct 2005 18:47 GMT

Thanks for the guidance...I want to make sure of one thing however:

I am trying to simply alert the user to the lack of data in certain fields.
I then want to allow them to hit OK and move to the next record if that was
their action (or close the form if that was their action)

Will this allow them to do so?

Also, an amateurish qn:
What is within the parentheses? Is me.Field1Name reflective of a field I
want to specify? And if so, can I simply keep adding to the string with
multiple fields ( I am looking at about 12-15 I wish to highlight in this
process)

M

> You can use the before update event of the form, to check if specific fields
> were used.
[quoted text clipped - 14 lines]
> > Thanks anyone!!
> > M

Reply to this Message

Ofer - 25 Oct 2005 18:59 GMT

For the first question, it will allow them but you need to remove the
cancel = true
Line in the code I provided you with
================================
The Me stand for the current form
Me.Field1name refer to the field Field1name in the current form.
To have a loop that check the field you can try this

Dim I as Integer
For I = 1 To 15
If IsNull(me("Fieldname" & I)) then
msgbox "Not all data was entered"
I = 15 ' To exit the loop
End If
Next I
You can use this loop if all fields has the same name, with an extra number
next to it.

Signature

If I answered your question, please mark it as an answer. That way, it will
stay saved for a longer time, so other can benifit from it.

Good luck

> Thanks for the guidance...I want to make sure of one thing however:
>
[quoted text clipped - 30 lines]
> > > Thanks anyone!!
> > > M

Reply to this Message

Monish - 25 Oct 2005 22:00 GMT

It is giving me a Compile Error when I tried to test as the following:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(PIPELINE REPORT.Sales Alert Date) Or IsNull(PIPELINE
REPORT.Eligibles) Then
MsgBox "Please check for valid entries in Sales Alert Date and Eligibles"
End If

End Sub

Any suggestions??

M

> For the first question, it will allow them but you need to remove the
> cancel = true
[quoted text clipped - 48 lines]
> > > > Thanks anyone!!
> > > > M

Reply to this Message

Ofer - 25 Oct 2005 22:06 GMT

What PIPELINE REPORT Stand for?

Try this
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.[Sales Alert Date]) Or IsNull(Me.Eligibles) Then
MsgBox "Please check for valid entries in Sales Alert Date and Eligibles"
End If
End Sub

Signature

If I answered your question, please mark it as an answer. That way, it will
stay saved for a longer time, so other can benifit from it.

Good luck

> It is giving me a Compile Error when I tried to test as the following:
>
[quoted text clipped - 62 lines]
> > > > > Thanks anyone!!
> > > > > M

Reply to this Message

Monish - 25 Oct 2005 22:18 GMT

This is awesome - thanks so much!!

I do have one follow-up qn however: how can I let the user stay on this
record, review the 2 fields visually and then decide to continue on with
their action, either after entering data in these fields or not (as it may
not be available yet)?

Currently, because I removed the one line from your code it simply goes to
the next record - this was per my earlier request of course, which I now wish
to reconsider...

Sorry for the extra qns, but I really appreciate your help.

M

> What PIPELINE REPORT Stand for?
>
[quoted text clipped - 71 lines]
> > > > > > Thanks anyone!!
> > > > > > M

Reply to this Message

Ofer - 25 Oct 2005 22:41 GMT

No problem, just add the other line again
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.[Sales Alert Date]) Or IsNull(Me.Eligibles) Then
MsgBox "Please check for valid entries in Sales Alert Date and Eligibles"
cancel = true
End If
End Sub

Signature

If I answered your question, please mark it as an answer. That way, it will
stay saved for a longer time, so other can benifit from it.

Good luck

> This is awesome - thanks so much!!
>
[quoted text clipped - 86 lines]
> > > > > > > Thanks anyone!!
> > > > > > > M

Reply to this Message

Monish - 26 Oct 2005 19:11 GMT

lastly, I dont want to keep them stuck on this record (as this function does
until they enter data into the 2 fields) - I simply want to alert them to the
fact that the two fields have not been populated...and then allow them to
move on if they wish.

There is a scenario where these elements may not be available...

Can you offer any advice on hiw I can do this?

Thanks again.

BTW, how do I mark a post as "Answered"?

M

> No problem, just add the other line again
> Private Sub Form_BeforeUpdate(Cancel As Integer)
[quoted text clipped - 94 lines]
> > > > > > > > Thanks anyone!!
> > > > > > > > M

Reply to this Message

Ofer - 26 Oct 2005 19:55 GMT

Give the user a message with an option to continue
If IsNull(Me.[Sales Alert Date]) Or IsNull(Me.Eligibles) Then
If msgbox ("Sales Alert Date and Eligibles are not complete, do you wish
to continue anyway?",vbYesNo)<>vbYes then
cancel = true
End If
============================
On the buttom of my replay it ask if I answered your question, you can mark
it as Yes

Good luck

> lastly, I dont want to keep them stuck on this record (as this function does
> until they enter data into the 2 fields) - I simply want to alert them to the
[quoted text clipped - 109 lines]
> > > > > > > > > Thanks anyone!!
> > > > > > > > > M

Reply to this Message

Monish - 26 Oct 2005 21:41 GMT

Honestly this is my last qn on this topic...

Is there a way I can format this messgae box so that it looks like this:

One or more of the following fields are incomplete:
Sales Alert Date
Eligibles
Something Else

Would you like to continue anyway?
======

Instead of how it currently scrolls across the screen?

M

> Give the user a message with an option to continue
> If IsNull(Me.[Sales Alert Date]) Or IsNull(Me.Eligibles) Then
[quoted text clipped - 121 lines]
> > > > > > > > > > Thanks anyone!!
> > > > > > > > > > M

Reply to this Message

Ofer - 26 Oct 2005 22:02 GMT

No problem, try this

Dim MyMsg As String
MyMsg = "One or more of the following fields are incomplete:" & Chr(13) & _
"Sales Alert Date " & Chr(13) & _
"Eligibles " & Chr(13) & _
"Something Else" & Chr(13) & Chr(13) & _
"Would you like to continue anyway?"

If IsNull(Me.[Sales Alert Date]) Or IsNull(Me.Eligibles) Then
If msgbox (MyMsg ,vbYesNo)<>vbYes then
cancel = true
end if
End If

Good luck

> Honestly this is my last qn on this topic...
>
[quoted text clipped - 137 lines]
> > > > > > > > > > > Thanks anyone!!
> > > > > > > > > > > M

Reply to this Message