DoCmd.OpenTable "TableName" Screen.ActiveDatasheet.Filter = "Код = 3579" Screen.ActiveDatasheet.Filteron = True