Updating form1 when changes are made to form 2

[Luvin lunch]

Hi All,

I have a grid (i.e. continuous form) on Form1, that opens a second form
(not a subform) Form2 when the user double clicks on it. On form2 the
user can save information. When the user selects Save, I want to
reload Form1 because the changes in Form2 will change the order that
records should appear on Form1. I have implemented this functionality
as follows:

Private Sub cmdSave_Click()
If validData Then
DoCmd.RunComman d acCmdSaveRecord
DoCmd.Close acForm, "Form1"
DoCmd.OpenForm "Form1"
Me.SetFocus
End If
End Sub

cmdSave is on Form2. The code above causes the forms to change
position on the task bar which I would like to avoid. Also, I think
it's just a bit rubbish. Can anyone suggest a better way to get Form1
to reload when save is selected on Form2?

All help appreciated as Access is currently a complete mystery to me.

Thanks

MM

[pietlinden]

just requery the form and it'll refresh itself from the data in the
table.

Instead of:

Private Sub cmdSave_Click()
If validData Then
DoCmd.RunComman d acCmdSaveRecord
DoCmd.Close acForm, "Form1"
DoCmd.OpenForm "Form1"
Me.SetFocus
End If
End Sub
use

Private Sub cmdSave_Click()
If validData Then
Me.Requery
End If
End Sub

[Jim M]

Not sure if this is exactly right, but I would do something like this
(air code):

Private Sub cmdSave_Click()
dim frm1 as form
If validData Then
DoCmd.RunComman d acCmdSaveRecord
Set frm1 = "Form1"
frm1.Requery
End If
Set frm1 = Nothing
End Sub

You might also try:

Private Sub cmdSave_Click()
If validData Then
DoCmd.RunComman d acCmdSaveRecord
docmd.Requery "Form1"
End If
End Sub

I've had some trouble with the docmd.Requery not always working...

[Luvin lunch]

Hey,

The following code does the trick:
If validData Then
Dim frmTemp As Form

DoCmd.RunComman d acCmdSaveRecord
Set frmTemp = Forms("Form1")
frmTemp.Requery

Set frmTemp = Nothing
End If

Thanks for the feedback.

MM
Jim M wrote:

Not sure if this is exactly right, but I would do something like this
(air code):

Private Sub cmdSave_Click()
dim frm1 as form
If validData Then
DoCmd.RunComman d acCmdSaveRecord
Set frm1 = "Form1"
frm1.Requery
End If
Set frm1 = Nothing
End Sub

You might also try:

Private Sub cmdSave_Click()
If validData Then
DoCmd.RunComman d acCmdSaveRecord
docmd.Requery "Form1"
End If
End Sub

I've had some trouble with the docmd.Requery not always working...