Discussion :

[Michel Hubert]

Exemple:

J'ai une table Personne avec les propriétés suivantes nom,prénom,age,adresse...

Dans cette table, il n'y a que les champs non et prénom qui sont remplis.
Admettons qu'il y a 2 lignes dans la table, Dupond René et Dupontel Jean-Louis

Dans une liste déroulante du formulaire, je sélectionne Dupond René et je veux compléter son age et son adresse (par exemple age = 48 et adresse = paris)

Comment je fais pour dire que dans la table personne ou le nom est dupond et le prénom René je veux mettre dans le champ age 48 et dans le champ adresse paris.

Je précise (c'est ce point là qui me gêne le plus) , je veux que soit inscrit dans la table uniquement lorsque j'aurai confirmé en cliquant sur un bouton.

Si vous pouviez m'indiquer comment faire...

[Heureux-oli]

Tu mets deux contrôles indépendants et lorsque tu clique sur le bouton, tu mets à jour les bons champs liés à ta table.

Je pige pas le raisonnement qui te pousses à utiliser cette méthode. Si tu change, c'est pour changer. Si t'es pas sûr, change pas.

Dans tous les cas, si tu te trompes, tu peu annuler.

[Jeannot2]

Bonjour.

Quand je veux rajouter des infos dans des tables pour des enregistrements deja existents je fais la chose suivant

Dim tb as recordset

sub aaaa
set

[Jeannot2]

Je n'ai pas termine. Je m'excuse.

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
 dim tb as recordset
sub aaaa
set tb=currentdb.openrecordset("nom de table",dbopendynaset)
if tb.eof=true then
else
  tb.movefirst
  do while tb.eof=false
    if tb![nom]=me!kombi1 then  'nom egal nom du champs
 if tb![prenom]=me!kombi2 then
     tb.edit
     tb![age]=me!tekst1
     tb![adresse]=me!tekst2
     tb.update
 else
 end if
    else
    end if
 
     tb.movenext
  loop
  tb.close
 
end if

Avant, il faut, dans la fenetre du module, selectionner la reference Microsoft DAO 3.6 Object Library (pour Access 2000).

Ce module est lance sur le clic de bouton.

C'est une solution que j'utilise pour faire ce genre d'ajout. Idem pour les suppressions ou remplacement de donnees.
Si tu veux rajouter un nouvel enregistrement, il suffit de remplacer tb.edit par tb.addnew.

Cdlt.
Jeannot

PS : Pour rajouter la reference a ADO menu en anglais Tools/References

[Jeannot2]

J'ai encore oublie un truc.
Evidemment, il y a end sub en fin de module.

Cdlt.
Jean.