Pausing between forms

[Deborah V. Gardner]

I am using Access 97. I would like to be able to pause between forms.

For example, I have 2 reminders I would like displayed separately, one
at a time. Here is part of the code I am using.

If Not rstReminders.EOF Then
rstReminders.MoveFirst
While Not rstReminders.EOF
strReminder = rstReminders!Reminder
strEventCaption = rstReminders!EventCaption

DoCmd.OpenForm "frmMessage"
Forms!frmMessage.Caption = strEventCaption
Forms!frmMessage!txtReminder = strReminder

rstReminders.MoveNext
Wend
End If

Making the form a Dialog form by adding acDialog does not work because
then I cannot set the Message Caption or the reminder.

I also tried adding DoEvents and Wait (found on Microsoft's site) to no
avail. I know that I can insert a MsgBox statement to halt the code
until the user clicks on okay but I want it to halt and have the user
click on the OK button of the frmMessage.

Does anyone have any suggestions? Thank you,
Deborah

[Ronald W. Roberts]

Deborah V. Gardner wrote:

I am using Access 97. I would like to be able to pause between forms.

For example, I have 2 reminders I would like displayed separately, one
at a time. Here is part of the code I am using.

If Not rstReminders.EOF Then
rstReminders.MoveFirst
While Not rstReminders.EOF
strReminder = rstReminders!Reminder
strEventCaption = rstReminders!EventCaption

DoCmd.OpenForm "frmMessage"
Forms!frmMessage.Caption = strEventCaption
Forms!frmMessage!txtReminder = strReminder

rstReminders.MoveNext
Wend
End If

Making the form a Dialog form by adding acDialog does not work because
then I cannot set the Message Caption or the reminder.

I also tried adding DoEvents and Wait (found on Microsoft's site) to
no avail. I know that I can insert a MsgBox statement to halt the code
until the user clicks on okay but I want it to halt and have the user
click on the OK button of the frmMessage.

Does anyone have any suggestions? Thank you,
Deborah

In the form that runs this code, change it to see if there are are
records in rstReminder. If there are,
open the frmMessage form and have it loop thru the reminder file
displaying the reminders. Use a
click button to have the loop go to the next record. When completed,
close the frmMessage form.

Ron
--

Ronald W. Roberts
Roberts Communication
rw*******************@robcom.com
To reply remove "_at_robcom_dot_com"

[Mike Storr]

On Sun, 22 Feb 2004 04:44:15 GMT, Deborah V. Gardner wrote:

I am using Access 97. I would like to be able to pause between forms.

For example, I have 2 reminders I would like displayed separately, one
at a time. Here is part of the code I am using.

If Not rstReminders.EOF Then
rstReminders.MoveFirst
While Not rstReminders.EOF
strReminder = rstReminders!Reminder
strEventCaption = rstReminders!EventCaption

DoCmd.OpenForm "frmMessage"
Forms!frmMessage.Caption = strEventCaption
Forms!frmMessage!txtReminder = strReminder

rstReminders.MoveNext
Wend
End If

Making the form a Dialog form by adding acDialog does not work because
then I cannot set the Message Caption or the reminder.

I also tried adding DoEvents and Wait (found on Microsoft's site) to no
avail. I know that I can insert a MsgBox statement to halt the code
until the user clicks on okay but I want it to halt and have the user
click on the OK button of the frmMessage.

Does anyone have any suggestions? Thank you,
Deborah

You can use acDialog to open the form, but you'll need to pass your caption
and message before you open the form. A quick and simple way is to delcare
strReminder and strEventCaption as public to the project, then just open
the form as acDialog. In the Open event of the message form, use those
public variables to set the caption and message.

A better, but slighlty more complicated way is to pass strReminder and
strEventCaption as the OpenArgs setting of the DoCmd.OpenForm. You'll need
to format them in a way that you can use InStr() to extract them reliably

--
Mike Storr
www.veraccess.com