Discussion :

[alexphi]

Voila j'ai une table qui s'appelle "action-a-mener" et j'aimerai à partir d'une condition
If [Etat écologique] = "Bon" Then [Form]![priorite] = "1"

lire le champ (etat ecologique) de ma table et que ça remplisse automatiquement le champ priorite de cette meme table avec la condition ci-dessus.

Cette condition doit bien sur se faire sur toute la table et par l'intermédiaire d'un bouton .

Comment faire une boucle de lecture de la table (ADO) et que la modif puisse se faire automatiquement

voici le code que j'ai écrit mais ça marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim rs As ADODB.Recordset
 
Randomize
Set rs = CurrentDb.OpenRecordset("action-a-mener", adoDbOpenTable)
With rs
While Not .EOF
If [Etat écologique] = "Bon" Then [Form]![priorite] = "1"
 
Wend
.Close
End With

j'ai une erreur sur la ligne de openrecodset

cordialement

[domibigoudi]

Bonjour Alexphi,

Je pense que tu peux réaliser une fonction SQL de mise à jour de la table.

Code de mise à jour:

Code :

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

Docmd.RunSQL="Update <Nom Table>  Set NomColonne=NouvelleValeur Where critère"

Dans ton cas, ton code serait:

Code :

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

Docmd.RunSQL = "Update action-a-mener Set Priorite='1' Where [Etat écologique] = 'Bon' "

Et si tu veux créer une requête avec des variables,

Code:

Code :

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

1
2
3
Dim Valeur as Byte
Dim Condition as String
Docmd.RunSQL = "Update action-a-mener Set Priorite='" & valeur & "' Where [Etat écologique] = '" & Condition & "' "

Bonne journée.

[Tofalu]

Vous utilisez DAO et non ADO

L'argument est dbOpenTable et non adoDbOpenTable. Quant au mode OpenTable, il n'est pas utilisable avec des tables liées à une base externe. Utilisez plutot DbOpenDynaset qui vous permettra de scinder la base de données en deux.

[alexphi]

je connais pas trop, meme pas du tout, le langage sql aussi j'aimerai avoir plus d'explication, si je mets dao , il me marque erreur alors que ado fonctionne mais s'arrete à :
Set rs = CurrentDb.OpenRecordset("action-a-mener", DbOpenTable)

dois je mettre cette ligne et j'ai une erreur de compilation sur l'action:
DoCmd.RunSQL = "Update aveyron-pdm Set Priorite='1' Where [Etat écologique] = 'Bon' "

[Tofalu]

CurrentDb.OpenRecordset retourne un objet DAO.Recordset ... Cela ne peut donc fonctionner avec ADO !!

[alexphi]

quel doit etre le code exact alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim rs As ADODB.Recordset
 
Randomize
Set rs = CurrentDb.OpenRecordset("action-a-mener", DbOpenTable)
With rs
While Not .EOF
DoCmd.RunSQL = "Update aveyron-pdm Set Priorite='1' Where [Etat écologique] = 'Bon' "
 
Wend
.Close
End With

d'avance merci

[domibigoudi]

Rebonjour Alexphi,

Le code est bon sauf qu'il faut supprimer le '=' après SQL (désolé de l'erreur)

Ton code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CmdExecUpdate_Click()
    Dim Valeur As Byte
    Dim Condition As String
    Valeur = 4
    Condition = "Bon"
    'DoCmd.RunSQL "Update table1 set colonne2='6' where colonne1='Bon'"
    DoCmd.RunSQL "Update table1 Set colonne2='" & Valeur & "' Where colonne1 = '" & Condition & "'"
End Sub

Cela signifie que dans ta table1, tu retrouves la colonne1 et la colonne2, et la commande SQL remplace la valeur de la colonne 2 par la valeur attribuée par la variable 'Valeur' où la condition 'Bon' se retrouve dans la colonne 1.

Lors de l'évènement 'click' du bouton 'CmdExecUpdate', la fonction remplace toutes les valeurs de la colonne 2 par 4 (variable valeur=4) pour les données 'Bon' de la colonne 1.

Ce seul code est suffisant pour mettre à jour les données dans la table.

Bon courage.

[alexphi]

problème résolu, merci pour les réponses rapides