doCmd.openTable "contracts" docmd.applyFilter "contracts", "contract_nr = '81845'"
docmd.applyFilter , "contract_nr = '81845'"
DoCmd.SetFilter
DoCmd.ShowAllRecords
DoCmd.SetOrderBy
DoCmd.findRecord
DoCmd
Index