Création automatique d'un login unique par concaténation [Résolu]

[stefane26]

Bonjour
Je souhaite automatiser la création d'un login unique par concaténation de la l'initiale du prénom + nom complet + "1".
Mais si ce login existe déjà le "1" et remplacé par "2" et ainsi de suite.
Je m'explique :
DURAND Philippe ==> pdurand1
DURAND Patrick ==> pdurand2


un peu plus ...
si le prénom est composé du type DURAND jean-Pierre il faudrait avoir jpdurand1

Merci de vos informations précieuses
Stéphane

[stefane26]

J'ai résolu une partie de mon problème :
j'ai réussi à concaténer mes champs [prenom] & [nom] tronqués avec la (les) première(s) lettre(s) de(s) prénom(s) ==>çà fonctionne aussi avec les prénoms composés.

Je suis toujours bloqué avec la possibilité d'avoir des "homonimes", et je cherche la solution pour éviter les doublons.
Le login devient [première(s) letrtre(s) du prénom]&[nom]&"un numéro incrémentiel" ==> mais je ne sais pas comment incrémenter sur ce doublon

merci

[stefane26]

Pour être plus complet, je vous joins les codes (ou fonction) réalisant mes premiers désirs :


mettre en majuscule les initiales du prénom (même composé) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function MiseEnMajuscule(Chaine As String) As String
Dim nCar As Integer  'Compteur (position dans la chaine à traiter)
Chaine = Trim$(Chaine) 'Récupère la chaîne sans les espaces facultatifs
'Traitement spécifique sur le premier caractère
MiseEnMajuscule = UCase$(Left(Chaine, 1))
'Début de la boucle sur les autres caractères
For nCar = 2 To Len(Chaine)
'Teste le caractère précédent (" " ou "-")
If (Mid$(Chaine, nCar - 1, 1) = " ") Or (Mid$(Chaine, nCar - 1, 1) = "-") Then
'Si c'est vrai, mettre en majuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & UCase$(Mid(Chaine, nCar, 1))
Else
'Si c'est faux, mettre en minuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & LCase$(Mid(Chaine, nCar, 1))
End If
'Fin de la boucle sur les caractères
Next
End Function

Concaténer les initiales du prénom (même composé) avec le nom :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function InitialePrenom(Chaine As String) As String
Dim nCar As Integer  'Compteur (position dans la chaine à traiter)
Chaine = Trim$(Chaine) 'Récupère la chaîne sans les espaces facultatifs
'Traitement spécifique sur le premier caractère
InitialePrenom = Left$(Chaine, 1)
'Début de la boucle sur les autres caractères
For nCar = 2 To Len(Chaine)
'Teste le caractère précédent (" " ou "-")
If (Mid$(Chaine, nCar - 1, 1) = " ") Or (Mid$(Chaine, nCar - 1, 1) = "-") Then
'Si c'est vrai,récupére le caractère courant
InitialePrenom = InitialePrenom & Mid$(Chaine, nCar, 1)
''Else
'Si c'est faux, récupére le caractère courant
''InitialePrenom = InitialePrenom & LCase$(Mid(Chaine, nCar, 1))
End If
'Fin de la boucle sur les caractères
Next
End Function

Ces fonctons sont appelées dans un code comme celui-ci :

Code :

1
2
3
4
5
6
Private Sub Prenom_utilisateur_LostFocus()
If Len(Me.Prenom_utilisateur) <> 0 Then
Me.Prenom_utilisateur = MiseEnMajuscule(Me.Prenom_utilisateur)
Me.Utilisateur = StrConv(InitialePrenom(Me.Prenom_utilisateur), vbLowerCase) & StrConv(Me.Nom_utilisateur, vbLowerCase)
End If
End Sub

Mais je n'ai toujours ma solution pour éviter le doublon

[Philippe JOCHMANS]

Bonjour

Il y a plusieurs solutions pour éviter les doublons en voici deux parmi d'autres.

1 - Indexé le champ qui contient cette donnée de manière à refuser les doublons (c'est dans les propriétés du champ lorsque ta table est en mode création). Il y aura un message, mais pas top au niveau visu.


2 - Faire un test avec la fonction de domaine DLookup, pour chercher si celui-ci existe déjà.

Voilà quelques pistes, et de nombreuses discussions sur le forum (coté VBA Access) parlent des doublons.

Philippe

[stefane26]

Bonjour
désolé pour ma réponse tardive.

Merci pour cette première réponse, mais il me semble que le test dlookup ne marcherai pour 2 doublons maxi

[Philippe JOCHMANS]

Re

Envoyé par stefane26

Merci pour cette première réponse, mais il me semble que le test dlookup ne marcherai pour 2 doublons maxi

Faux le DLookup te permettra de chercher une occurrence, s'il y en a pas, tu peux ajouter une donnée, s'il y en a une tu incrémente ta numérotation et tu ajoutes ta donnée.

Philippe

[vodiem]

salut Philippe et bienvenu stefane26,

ou avec DCount() dans le genre:

Code :

Me.Utilisateur = Me.Utilisateur & (DCount("*","latable","login like '" & Me.Utilisateur & "?'")+1)

[stefane26]

Bonjour et merci pour cette réponse.
Mais, je suis quelqu'un de compliqué
Imaginons que nous ayons 2 login identiques => le résultat sera par exemple :

sbc1
sbc2

Maintenant, imaginons que le premier login (sbc1) disparaisse : un nouveau login identique deviendrait :

sbc3

alors que j'aimerais que le chiffre reprenne le numero manquant soit : sbc1

MErci

[vodiem]

he bien comme te l'a dit Philippe, un truc du genre:

Code :

1
2
3
i=1
while not isnull(dlookup("login","latable","login like '" & Me.Utilisateur & i & "'")):i=i+1:wend
Me.Utilisateur = Me.Utilisateur & i

[stefane26]

Merci Vodiem
Cela fonctionne parfaitement