انت لم تتطرق الى هذا من قبل   تفضل      تم ايقاف الكود 3 ، وعمل الكود 4 ليوزع الباقين على المجموعات بالتساوي: Private Sub Dispatch_Click() On Error GoTo err_Dispatch_Click 'clear SALLECORRECTION for the selected subject mySQL = "Update TBLPRFTAWZI3" mySQL = mySQL & " SET SALLECORRECTION = 0" mySQL = mySQL & " WHERE MATIERE = '" & [Forms]![GROUPEPRF]![MODI_MATIERE] & "'" CurrentDb.Execute (mySQL) Dim rst As DAO.Recordset