Discussion :

[rogeryzf]

Bonjour,
J'ai 2 tables de structures identiques (T_Prospect et T_Prospect2). Les enregistrements de la table T_Prospect2 sont mises à jour régulièrement, je souhaite que les enregistrement de la table T_Prospect ayant le même identifiant soient mises à jour en cliquant sur un bouton situé dans un formulaire dont voici le 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
19
20
21
22
23
 
Dim F As Field
Dim rs As Recordset
Dim rs1 As Recordset
strSQL = "SELECT T_Prospect.[Téléphone fixe], T_Prospect.[Téléphone portable], T_Prospect.Email FROM T_Prospect;"
Set rs = CurrentDb.OpenRecordset(strSQL)
 
strSQL1 = "SELECT T_Prospect2.[Téléphone fixe], T_Prospect2.[Téléphone portable], T_Prospect2.Email FROM T_Prospect INNER JOIN T_Prospect2 ON T_Prospect.Id_prospect = T_Prospect2.Id_prospect;"
Set rs1 = CurrentDb.OpenRecordset(strSQL1)
 
While Not rs1.EOF
    For Each F In rs1.Fields
        If F.Value <> rs(F.Name) Then
            rs.Edit
            rs(F.Value) = rs1(F.Value)
            rs.Update
        End If
    Next F
 
    rs1.MoveNext
Wend
rs.Close
rs1.Close

Quand j'exécute le code, j'ai le message suivant : Erreur d'exécution 3265 Elément non trouvé dans cette collection sur la ligne : rs(F.Value) = rs1(F.Value)
Merci d'avance de votre aide.
Olivier

[loufab]

Bonjour,

Pourquoi utiliser DAO alors qu'une requête fait ça en une seule passe ?

99% des problèmes peuvent et doivent être réglés avec des requêtes, c'est le but de la base de données. Les 1% restants ont pour origine une mauvaise conception ou une connexion entre des MCD incompatibles.

Cordialement,

[rogeryzf]

Bonjour,
Je pensais qu'une requête mise à jour serait trop longue à exécuter. Comment mettre à jour uniquement les valeur qui ont changé à partir d'une requête ?
Merci et cordialement,
Olivier

[loufab]

Non une requête est plus rapide que parcourir un recordset.

Prend ta requête N°2. Elle a déjà la bonne liaison.

Ouvre-la en mode création dans l'éditeur, sélectionne les champs que tu souhaites mettre à jour.
Transforme-la en requête mise à jour en cliquant sur le bouton Requête Mise à jour du ruban.
Dans la zone mise à jour de chaque colonne met cette formule :

Code :

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

1
2
 
=iif(tableDestination.[Champ1]<>tableSource.champ1;tableSource.champ1;tableDestination.champ1)

Si le champ destination est différent du champ source Alors on y place le champ Source Sinon on laisse le champDestination.

Tu n'as plus qu'à exécuter la requête.
Fait un essaie sur une copie avant de te lancer.

Cordialement,

[rogeryzf]

Bonsoir,
Merci beaucoup pour ton aide.
J'ai un autre problème qui n'a rien à voir avec le précédent.
Je dois ajouter des enregistrements d'une table (table4) à une autre (table3). Je n'ai aucun souci pour trouver les enregistrements de non correspondance mais je rencontre un difficulté pour alimenter un champ numérique qui sert de clé primaire dans la table3. Voici mon code :

Code :

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

1
2
3
4
 
vNum = DMax("id_loc", "table3")
vSQL = "INSERT INTO Table3 ( id_loc, nom ) SELECT " & vNum & "+1, Table4.nom FROM Table3 RIGHT JOIN Table4 ON Table3.tok = Table4.token WHERE (((Table3.tok) Is Null));"
DoCmd.RunSQL vSQL

Le problème c'est qu'il n'ajoute qu'un seul enregistrement et j'ai un message me disant que les autres ne sont pas ajouter à cause d'une violation de clé.
la fonction DMAX ne se recalcule pas.
Merci d'avance
Olivier

[loufab]

Bonjour,

Il y a un problème de logique dans ton montage.

Tu cherches la plus grande valeur de Id_loc de table3 :

Code :

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

vNum = DMax("id_loc", "table3")

ça c'est bon.

Ensuite tu souhaites partir de cette valeur comme compteur, mais cette valeur est statique.

Par exemple ton max est 100, la requête sera toujours :

Code :

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

vSQL = "INSERT INTO Table3 ( id_loc, nom ) SELECT 100+1,...

Donc la même valeur pour tous les enregistrements. D'où le message de violation de clef. Pourquoi tu utilises dmax() à l'extérieur de la requête ? Toutes les fonctions publiques sont accessibles par les requête en DAO.

Cordialement,

[rogeryzf]

Bonjour,
J'ai trouvé une solution en utilisant un recordset et une boucle. Ca fonctionne super.
Merci encore
Olivier

[loufab]

Bonjour,

Effectivement on peut toujours utiliser des boucles, des recordsets... pour arriver au résultat. Pour une petite application personnelle ça peut convenir.

Personnellement je le déconseille fortement.

Cordialement,