Bonjour,

Je recherche a faire une liaison entre deux tables. Je développe une application vb6 avec une bdd Access. Mon application permet d'alimenter la base a partir d'un fichier texte.

J'ai une table employé ou j'ai numSS, nom, matricule, etc...
J'ai une autre table qui possède numSS et le matricule qui fait référence au numSS.

Dans ma table employé j'arrive a insérer toutes mes données (mis a part le matricule) car le fichier qui permet d'insérer mes données ne contient pas le matricule (il posséde juste le numSS).

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
 
With rstRapprochment
     IDNumSS = .Fields("NumSSR").Value
     IDMatricule = .Fields("matriculeR").Value
End With
With rstEmploye
     .AddNew
     .Fields("numSS").Value = Mid(vLigne, 39, 13)
     .Fields("nom").Value = Mid(vLigne, 62, 25)
     If .Fields("numSS").Value = IDNumSS Then
          .Fields("matricule").Value = IDMatricule
     Else
          MsgBox "aucune correspondance"
     End If
     .Update
     IDEmploye = .Fields("idEmploye").Value
     totalBrutMsa = 0
End With
Le probléme est le suivant: l'incrémentation du IDNumSS est toujours sur le premier enregistrement. Ce que j'essaye de faire (Dumoins je cherche, mais ne voit pas comment faire) est une boucle permettant de trouver le bon numSS afin de pouvoir récupérer le matricule de la personne et ainsi l'insérer dans ma table Employe.

Si vous avez une petite idée, je suis preneur. Cordialement.

PS: j'ai oublié de préciser que le code était dans une boucle While not EOF. pour parcourir ligne par ligne le fichier txt