Discussion :

[maxmusix]

Bonjour, je suis actuellement en stage et ma principale mission et de reprendre un projet Plant 4D, access. Je souhaiterai à partir d'un formulaire simple ( 2 listes déroulantes et un bouton) modifier les champs d'une colonne de ma table ayant pour valeur "300@277@40".
Voici mon code non fonctionnel rien ne se passe à l'exécution, la table n'est pas modifiée.

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
29
30
31
32
33
34
35
36
37
38
39
40
 
 
Private Sub Commande295_Click()
 
Dim modif As DAO.Recordset
 
'Modifiable306 est ma liste déroulante
If Modifiable306.Value = "300@277@40" Then
 
    'Ouverture de la table nomTable
    DoCmd.OpenTable "nomTable", acViewNormal, acEdit
 
    'Création d'un recordset, de type dbOpenTable : Modification en direct
    Set modif = CurrentDb.OpenRecordset("SELECT colonne1 FROM nomTable where colonne1='300@277@40'", [dbOpenDynaset])
 
    'On se place sur le premier enregistrement
    modif.MoveFirst
 
    'Tant que l'on atteint pas la fin du recordset
    While Not modif.EOF
        'Mode édition
        modif.Edit
        'Condition de changement de donnée
        Dim lField As DAO.Field
        For Each lField In modif.Fields
            If lField.Value = "300@277@40" Then lField.Value = 10
        Next
        'Mise à jour de la table
        modif.Edit
        'Passage au champ suivant
        modif.MoveNext
    Wend
 
    'Fermeture du recordset
    modif.Close
    Set modif = Nothing
 
End If
 
End Sub

Merci d'avance pour votre aide, cordialement.

[madefemere]

Bonsoir,

En plus simple (Code non testé)

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
 
Private Sub Commande295_Click()
 
Dim modif As DAO.Recordset
 
'Modifiable306 est ma liste déroulante
If Modifiable306.Value = "300@277@40" Then
    Set modif = CurrentDb.OpenRecordset("nomTable", dbOpenDynaset) ' Instancier le recordset
    with modif   'Faire des actions sur le recordset
        .FindFirst "[Colonne1]=" & "300@277@40"         ' Trouver première occurrence
        Do While Not .NoMatch                                  'Exécuter changement si trouver
            .edit
            ![Colonne1]= 10                                       'Modifier valeur
            .update         
            .FindNext "[Colonne1]=" & "300@277@40"     'Trouver les autres occurrences
        Loop
    end with
end if
 
    'Fermeture du recordset
    modif.Close
    Set modif = Nothing
 
End Sub

Bonne continuation

[maxmusix]

Bonjour madefemere je tiens à te remercier tout d'abord pour l'attention que tu m'as accordé mais également pour m'avoir apporté la solution. En effet je viens de tester ton code il fonctionne parfaitement, j'ai juste apporté une modification aux FindFirst et FindNext car Access détecté une erreur de syntaxe.

Code :

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

1
2
3
 
.FindFirst "[colonne1] = ' " & "300@277@40" & " ' "
.FindNext "[colonne1] = ' " & "300@277@40" & " ' "

Merci encore pour la rapidité de ta réponse, cordialement.

[madefemere]

Je n'ai effectivement pas fait attention au fait que c'est du texte.
C'est bien si ça marche !

[maxmusix]

Je reviens vers toi, j'ai un soucis pour rechercher une expression dans un champs.

En effet le contenue de la "colonne4" de ma table est de type: Colonne1-Colonne2-Colonne3. Elle reprend les 3 précédentes colonnes séparé par un tiret.

Dans mon find je cherche à trouver le premier champs de la colonne4 commençant par "300@277@40" ( le contenue de la première colonne) pour pouvoir tous les modifier par la suite comme j'ai modifié ma première colonne auparavant.

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
 
Set modif = CurrentDb.OpenRecordset("nomTable", dbOpenDynaset) ' Instancier le recordset
    With modif   'Faire des actions sur le recordset
        .FindFirst "[colonne4] = '" & "300@277@40" & "'"
        Do While Not .NoMatch                                  'Exécuter changement si trouver
            .Edit
            ![colonne4] = [colonne1].Value + "-" + [colonne2].Value + "-" + [Tcolonne3].Value
            .Update
            '.FindNext "[TAG1] = '" & valeur1 & "'"     'Trouver les autres occurrences
            .FindNext "[colonne4] = '" & "300@277@40" & "'"
        Loop
    End With
 
    'Fermeture du recordset
    modif.Close
    Set modif = Nothing

J'ai essayer l'opérateur * et la commande, comme "valeur", dans mon find mais toujours aucun résultat.

merci d'avance, cordialement

[madefemere]

Bonsoir,

Pour trouver une partie de texte comme critère, utiliser le syntaxe :

Code :

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

 .FindFirst "[colonne4] = '*" & "300@277@40" & "*'"

Si ce sont les premiers caractères :

Code :

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

 .FindFirst "[colonne4] = '" & "300@277@40" & "*'"

La même expression pour le Findnext