Discussion :

[mattmax]

Bonjour a tous ,

J'ai un problème de boucle infini dans mon code, je carge une table des personnes et une table des domiciles de personnes , dans la table des domiciles j'ai le nom et le prénom de la personne et je doit trouver son identifiant dans la table des personnes

Le problème c'est quand dans ma table des personnes j'ai plusieurs prénoms stocké sous cette forme : "Toto,Tutu,Titi"
J'ai ecrit ce code pour ce faire :

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
 
vlcritere = "[NomPatro]=" & Trim(vlrs.Fields("nom"))
 
vlrsidpersonne.FindFirst vlcritere
 
 If Not vlrsidpersonne.NoMatch Then
 
   Do Until fgExtraitSousChaine(vlrsidpersonne("Prenoms"), 1, ",") = Trim(vlrs.Fields("prenom"))
 
 
        vlrsidpersonne.FindNext vlcritere
 
   Loop
   vlidpersonne = vlrsidpersonne("ididentite")
 Else
    vlidpersonne = 0
 End If

Le probleme c'est que dans ma boucle do until j'ai une boucle infini car Trim(vlrs.Fields("prenom")) ne se trouve pas dans ma selection avec le critere donc je tourne en boucle.

Si vous avez une solution pour sortir de cette boucle infini merci d'avance

MAtthieu

[ilank]

Bonjour,

N'est-il pas plus logique d'avoir uniquement l'identifiant des personnes dans la table des domiciles ?
Je ne comprends pas le fait d'avoir plusieurs prénoms, il s'agît d'une seule personne ou de plusieurs de la même famille ?

Quel resultat obtiens-tu avec le code suivant ?

Code :

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

1
2
3
4
vlcritere = "[NomPatro]=" & Trim(vlrs.Fields("nom")) & " And [Prenoms] LIKE " & chr(34) & "*" & Trim(vlrs.Fields("prenom")) & "*" & chr(34)
vlidpersonne=0
vlrsidpersonne.FindFirst vlcritere
If Not vlrsidpersonne.NoMatch Then  vlidpersonne = vlrsidpersonne.Fields("ididentite")