Discussion :

[Lullaby777]

Bonjour,
Avant la surchauffe et après de multiples fouilles sur les net et tests nombreux, je tente un SOS.

Mon cas :

Table 1
Champ 1 : ID_Table01 / NuméroAuto

Champ 2 : NomComplet / Texte
1 Rose architucta
2 promae Rose
3 Orchidea violatia
4 arhipopa Rose
5 alivii Orchidea
6 Nortica Rose lupita

Champ 3 : MAJ / Numérique (c'est le champ que je souhaite mettre à jour avec la requête, il est initialement vide, mais je mets les valeurs pour une meilleure compréhension de ce que je souhaite obtenir)
1 2
2 2
3 1
4 2
5 1
6 2


Table 2
Champ 1 : ID_Table02 / NuméroAuto
Champ 2 : NomTronque/ Texte
1 Orchidea
2 Rose

Ma quête de requête :
Obtenir la mise à jour dans la Table 1 du champ MAJ avec la valeur du champ ID de la Table 2, si et seulement si le champ Nom Complet contient une partie du champ NomTronqué.

Je précise que des ajouts peuvent être faits dans chacune des tables et que la requête sera relancée via macro après ajout de champ, pour remplir les valeurs ajoutées.

J'espère avoir été claire, et qu'une bonne âme charitable, promenant ses neurones par ici, acceptera de m'apporter quelqu'aide...
Merci d'avance.

[ClaudeLELOUP]

Bonjour et bienvenue parmi nous,

Je ferais comme ceci ;

- 1° une fonction qui donne l'id du nom tronqué au départ du nom complet (à loger dans un module)

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
Option Compare Database
Option Explicit
 
 
Public Function IdNomTronque(NomComplet As String) As Long
  Dim rst As Recordset
  'Créer un recordset avec les noms tronqués
  Set rst = CurrentDb.OpenRecordset("Table02")
  'Lire les enregistrements un à un jusqu'à en trouver un qui concorde
  Do Until rst.EOF
    If NomComplet Like "*" & rst("NomTronque") & "*" Then
          Debug.Print rst("NomTronque") '  & " " & rst("ID_Table02")
          IdNomTronque = rst("ID_Table02")
          GoTo Liberer
    End If
    rst.MoveNext
  Loop
Liberer:
  'Libérer
  rst.Close
  Set rst = Nothing
End Function

- une requête pour mettre la table à jour :

Code :

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

UPDATE Table01 SET Table01.MAJ = idNomTronque([NomComplet]);

[Lullaby777]

Bonjour bonjour,
Génial ! Merci de cette réponse rapide. Je teste et je reviens vous dire si ça fonctionne.
A tout vite.


C'est exactement ce que je souhaitais... C'est top top ! MERCI BCP.
Possible que je revienne pour d'autres questions.

Comme dit un proverbe indien, ne coupe pas les ficelles quand tu pourrais défaire les noeuds.

Merci d'avoir défait mon noeud

[ClaudeLELOUP]

PS : j'suis pas certaine de la manip que j'ai faite pour noter la question comme résolue...

Tu cliques sur le bouton "Résolu" au bas de la discussion.



À +