1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
ReqSQL = "SELECT [DMI_FINESS], [DMI_NUMRSA], [DMI_CODE], count(*) FROM [MCO_DMI] " & _
"GROUP BY [DMI_FINESS], [DMI_NUMRSA], [DMI_CODE] HAVING count(*)<>1;"
Set rs = CurrentDb.OpenRecordset(ReqSQL)
While Not rs.EOF
ReqSQL1 = "SELECT * FROM [MCO_DMI] WHERE [DMI_NUMDMI] = 1 AND " & _
"[DMI_FINESS]=" & Chr(34) & rs.Fields(0).Value & Chr(34) & " AND " & _
"[DMI_NUMRSA]=" & rs.Fields(1).Value & " AND " & _
"[DMI_CODE]=" & Chr(34) & rs.Fields(2).Value & Chr(34) & ";"
Set rs1 = CurrentDb.OpenRecordset(ReqSQL1)
i = 0
While i <= rs.Fields(3).Value And Not rs1.EOF
i = i + 1
rs1.Edit
rs1!DMI_NUMDMI = i
rs1.Update
rs1.MoveNext
Wend
rs1.Close
rs.MoveNext
Wend
rs.Close |
Partager