M
Michelle
I have the following code what I want is for a form to pop up before the code
runs then close when the code is done running. It does pop up however it
never closes.
Private Sub Command25_Click()
DoCmd.SetWarnings False
DoCmd.OpenForm "frmUpdateDBMsg"
CurrentDb.QueryDefs("qurinmtinfoAppend").Execute dbFailOnError
CurrentDb.TableDefs.Refresh
DoEvents
CurrentDb.QueryDefs("qurOldInmates").Execute dbFailOnError
CurrentDb.TableDefs.Refresh
DoEvents
CurrentDb.QueryDefs("qurDeleteOldInmates").Execute dbFailOnError
CurrentDb.TableDefs.Refresh
DoEvents
DoCmd.SetWarnings True
CurrentDb.TableDefs.Refresh
DoEvents
DoCmd.Close acForm, "frmUdateDBMsg"
End Sub
runs then close when the code is done running. It does pop up however it
never closes.
Private Sub Command25_Click()
DoCmd.SetWarnings False
DoCmd.OpenForm "frmUpdateDBMsg"
CurrentDb.QueryDefs("qurinmtinfoAppend").Execute dbFailOnError
CurrentDb.TableDefs.Refresh
DoEvents
CurrentDb.QueryDefs("qurOldInmates").Execute dbFailOnError
CurrentDb.TableDefs.Refresh
DoEvents
CurrentDb.QueryDefs("qurDeleteOldInmates").Execute dbFailOnError
CurrentDb.TableDefs.Refresh
DoEvents
DoCmd.SetWarnings True
CurrentDb.TableDefs.Refresh
DoEvents
DoCmd.Close acForm, "frmUdateDBMsg"
End Sub