Private Sub Form_Open(Cancel As Integer) DoCmd.SetWarnings False DoCmd.OpenQuery "qry_MAKE_tblSelectSewer", acViewNormal DoCmd.SetWarnings True Call RefreshList End Sub