Discussion :

[jmtpat]

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

[Jean-Philippe André]

Bonjour,

quelle est la question ? quelle est l'erreur ?

Merci pour nous !

[jmtpat]

Il ne trouve pas mes données qui contiennent un C

[Thumb down]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
rstTest.Filer ="Order Like 'C*'"
If rstTest.eof then msgbox "Pas trouvé !"

[jmtpat]

Merci, pour la réponse, mais 2 questions :
1) tu veux filter au lieu de filer
2) quand j'essaye avec filter il met operation non autorisé?

[Thumb down]

Oui désolé c'est filter!

Mais en fait je n'avais pas compris ta question !

J'ai répondu à chercher dans un recordset alors que tu cherches un lake dan un string !😡

If rstTest!Order Like "C*" <>""Then

[deedolith]

Salut,

Tu ne peux pas naviguer et modifier les enregistrements d'un recordset ADO en même temps.
Les modifications de l'enregistrement courant doivent être acquittées sinon elles ne sont pas prises en considération.

D'ailleurs il est étonnant que tu n'obtienne pas d'erreur d'exécution.

[hyperion13]

Salut
Je doute que la sub() en l'état fonctionne ! Il manque déjà un End If !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Commande0_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
 
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("tblRESEAU", dbOpenDynaset)
 
If rst.RecordCount = 0 Then Exit Sub
rst.MoveLast
rst.MoveFirst
 
While Not rst.EOF
    If rst.Fields("order") Like "C*" Then
        rst.Edit
        rst.Fields("projet") = "C" & Right(Left(rst.Fields("order"), 7), 6)
        rst.Update
    Else
        rst.Edit
        rst.Fields("projet").Value = Right(Left(rst.Fields("order"), 7), 6)
        rst.Update        
    End If
    rst.MoveNext
Wend
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
End Sub

[jmtpat]

Bonjour, et merci pour le retour,

je viens de tester le code, et malheureusement il ne rejoute pas le C dans le champs projet

[jmtpat]

finalement j'ai trouvé, le C est inclus dan mon champs order, et pas en début, il fallait juste mettre "*C*"

Merci à tous pour votre aide.