Sub modif()
Dim dbsRES As DAO.Database
Dim rstTest As DAO.Recordset
Dim proj As String
Dim Projet As DAO.Field
Dim strCritere As String
Set dbsRES = CurrentDb
Set rstTest = dbsRES.OpenRecordset("tblRESEAU")
While Not rstTest.EOF
rstTest.Edit
For Each Projet In rstTest
If rstTest!Order Like "C*" Then
rstTest.Fields("Projet").Value = "C" & Right(Left(rstTest!Order, 7), 6)
Else
rstTest.Fields("Projet").Value = Right(Left(rstTest!Order, 7), 6)
Next
rstTest.MoveFirst
rstTest.Update
rstTest.MoveNext
'Loop
Wend
End Sub
Partager