Requery Not Working

  • Thread starter Thread starter sandpking
  • Start date Start date
S

sandpking

From the main menu, I have a Max query that displays the most recent
date of a particular field. When I go into a form off of the main
menu and update that field, I'd like the main menu to be updated. The
code below does not work. Any help is appreciated.
Private Sub Command15_Click()
Dim frm As Form

On Error GoTo Err_CloseImportForm_Click

If CurrentProject.AllForms("Frm_Main_Menu").IsLoaded Then
Set frm = Forms![Frm_Main_Menu]
frm.Requery
frm.Refresh
Set frm = Nothing
End If
If Me.Dirty Then Me.Dirty = False

DoCmd.Close

Exit_CloseImportForm_Click:
Exit Sub

Err_CloseImportForm_Click:
MsgBox Err.Description
Resume Exit_CloseImportForm_Click



End Sub
 
The Requery is working. You have your order of actions upside down. You
need to save the record before you requery the form. The refresh is
unnecessary. Try this version:

On Error GoTo Err_CloseImportForm_Click

If Me.Dirty Then
Me.Dirty = False
If CurrentProject.AllForms("Frm_Main_Menu").IsLoaded Then
Forms![Frm_Main_Menu].Requery
End If
End If

DoCmd.Close acForm, Me.Name, acSaveNo

This will only requery the form If the record was added to the table.
 
That closed the main menu too. I wanted the main menu to stay open,
but have a field on it update.
The Requery is working.  You have your order of actions upside down.  You
need to save the record before you requery the form.  The refresh is
unnecessary.  Try this version:

    On Error GoTo Err_CloseImportForm_Click

    If Me.Dirty Then
        Me.Dirty = False
        If CurrentProject.AllForms("Frm_Main_Menu").IsLoaded Then
            Forms![Frm_Main_Menu].Requery
        End If
    End If

    DoCmd.Close acForm, Me.Name, acSaveNo

This will only requery the form If the record was added to the table.

--
Dave Hargis, Microsoft Access MVP



[email protected] said:
From the main menu, I have a Max query that displays the most recent
date of a particular field.  When I go into a form off of the main
menu and update that field, I'd like the main menu to be updated.  The
code below does not work.  Any help is appreciated.
Private Sub Command15_Click()
Dim frm As Form
Click to expand...
On Error GoTo Err_CloseImportForm_Click
Click to expand...
If CurrentProject.AllForms("Frm_Main_Menu").IsLoaded Then
    Set frm = Forms![Frm_Main_Menu]
    frm.Requery
    frm.Refresh
    Set frm = Nothing
End If
If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Click to expand...

Exit_CloseImportForm_Click:
    Exit Sub
Click to expand...
Err_CloseImportForm_Click:
    MsgBox Err.Description
    Resume Exit_CloseImportForm_Click
Click to expand...
End Sub- Hide quoted text -
Click to expand...

- Show quoted text -
Click to expand...
 
My fault. I left an extra close in there. Thank you.
That closed the main menu too.  I wanted the main menu to stay open,
but have a field on it update.
The Requery is working.  You have your order of actions upside down.  You
need to save the record before you requery the form.  The refresh is
unnecessary.  Try this version:
Click to expand...
    On Error GoTo Err_CloseImportForm_Click
Click to expand...
    If Me.Dirty Then
        Me.Dirty = False
        If CurrentProject.AllForms("Frm_Main_Menu").IsLoaded Then
            Forms![Frm_Main_Menu].Requery
        End If
    End If
Click to expand...
    DoCmd.Close acForm, Me.Name, acSaveNo
Click to expand...
This will only requery the form If the record was added to the table.
Click to expand...
[email protected] said:
From the main menu, I have a Max query that displays the most recent
date of a particular field.  When I go into a form off of the main
menu and update that field, I'd like the main menu to be updated.  The
code below does not work.  Any help is appreciated.
Private Sub Command15_Click()
Dim frm As Form
On Error GoTo Err_CloseImportForm_Click
If CurrentProject.AllForms("Frm_Main_Menu").IsLoaded Then
    Set frm = Forms![Frm_Main_Menu]
    frm.Requery
    frm.Refresh
    Set frm = Nothing
End If
If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Exit_CloseImportForm_Click:
    Exit Sub
Err_CloseImportForm_Click:
    MsgBox Err.Description
    Resume Exit_CloseImportForm_Click
End Sub- Hide quoted text -
Click to expand...
Click to expand...
- Show quoted text -- Hide quoted text -
Click to expand...

- Show quoted text -
Click to expand...
 
Then change me.name to the name of the form you want to close.
--
Dave Hargis, Microsoft Access MVP


[email protected] said:
That closed the main menu too. I wanted the main menu to stay open,
but have a field on it update.
The Requery is working. You have your order of actions upside down. You
need to save the record before you requery the form. The refresh is
unnecessary. Try this version:

On Error GoTo Err_CloseImportForm_Click

If Me.Dirty Then
Me.Dirty = False
If CurrentProject.AllForms("Frm_Main_Menu").IsLoaded Then
Forms![Frm_Main_Menu].Requery
End If
End If

DoCmd.Close acForm, Me.Name, acSaveNo

This will only requery the form If the record was added to the table.

--
Dave Hargis, Microsoft Access MVP



[email protected] said:
From the main menu, I have a Max query that displays the most recent
date of a particular field. When I go into a form off of the main
menu and update that field, I'd like the main menu to be updated. The
code below does not work. Any help is appreciated.
Private Sub Command15_Click()
Dim frm As Form
Click to expand...
On Error GoTo Err_CloseImportForm_Click
Click to expand...
If CurrentProject.AllForms("Frm_Main_Menu").IsLoaded Then
Set frm = Forms![Frm_Main_Menu]
frm.Requery
frm.Refresh
Set frm = Nothing
End If
If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Click to expand...

Exit_CloseImportForm_Click:
Exit Sub
Click to expand...
Err_CloseImportForm_Click:
MsgBox Err.Description
Resume Exit_CloseImportForm_Click
Click to expand...
End Sub- Hide quoted text -
Click to expand...

- Show quoted text -
Click to expand...
Click to expand...
 
Back
Top