Discussion :

[Mou]

bonjour,

Toujours dans le cadre de mon developpement Excel Access.... J'aimerai savoir comment modifier un enregistrement precis dans une table...

La procedure que j'utilise pour enregister un nouvel enregistrement j'utilise un

Code :

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

1
2
3
.addnew
.fields("Nom du champs")= Valeur du champs
.update

Y a til un moyen de faire pareil pour modifier ?

Merci

[Invité]

Bonjour

A la place de Addnew utilise Edit. Et va faire un petit tour là avec ce tuto pour DAO.

Starec

[Mou]

Merci Starec.. J ai bien regarder le tutoriel et je pense avoir compris comment on utilise la fonction Edit... Par contre je ne veux modifier qu'un seul enregistrement. Comment selectionner donc dans la table, l'enregistrement à modifier sachant que ma base n'est pas numerotée?

Merci encore pour votre aide !

Mou

[Invité]

Re

Dans ta procédure actuel tu dois ouvrir ton recordset avec OpenRecordset et dedans tu as dut mettre ta table.
A la place de ta table tu mets une chaine SQL avec une clause Where pour déterminer ton enregistrement.

Starec

[Mou]

En fait Starec j'ai utilisé un code que tu as proposé dans une autre discussion (recylcage d'idée... mon coté écolo lol).

Donc voici mon code

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
 
Set cn = New ADOB.Recordset
cn.open "Provider=Microsoft.jet.oledb.4.0;" & "Q;\base\base.mdb"
 
Set rs = New ADOB.Recordset
Rs.Open "Portefeuille", cn, adOpenKeyset, adlockOptimistic, adCmdTable
 
Do Until Rs.EOF
     If RS.Fields("NomCLO")=PositionChoisi then
            With Rs
                  .Edit
                  .Fields("NomCLO")=PositionChoisi
                  .Fields("Prix")= Modification.textbox1
                  .Update
           End with
     End if
    Rs.MoveNext
Loop

Moralité... Je pense que je ne sais toujours pas utiliser le Edit lol

[Invité]

En fait Starec j'ai utilisé un code que tu as proposé dans une autre discussion (recylcage d'idée... mon coté écolo lol).

Tu es sûr que c'est moi, je ne travail quasiment en ADO, mais en DAO.

Plusieurs points :

1 - Il s'agit dans ton code de ADO et non de DAO, la méthode Edit n'éxiste pas, il me semble qu'il faut juste enlever la ligne, le update suffit.

2 - La chaine SQL est à mettre à la place de "Portefeuille".

Va revoir la technologie sur DAO.

Starec

[Mou]

Merci Starec ! Ca fonctionne en enlevant simplement le Edit...

(Quand je parlais du recylcage d'idée je parlais pour la boucle et l'utilisation de RS.EO )