Discussion :

[jer64]

Bonjour,

Je débute sous WIndev et malgré mes recherches je ne trouve pas comment lancer une recherche dans une colonnes d'une table pour vérifier si mes valeurs sont identiques avec la saisie que je viens de faire.

En somme c'est de la gestion de doublons, je veux interdire à l'utilisateur de saisir dans une colonne définie un doublon.

Voici le code que j'ai mis en place et qui ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
//Sortie de Col_Utilisateurs(Table_LstUtilisateurs)
 
Colenr est une chaîne
 
Colenr= TABLE_LstUtilisateurs.COL_Utilisateurs[TableSelect(TABLE_LstUtilisateurs)]
 
 
SI TableCherche(COL_Utilisateurs,Colenr)<>-1 ALORS
	RETOUR
	SINON
	Avertissement("Cet utilisateur existe déjà ! Vous ne pouvez pas continuer !")
FIN

Merci d'avance pour votre aide.

[zouzoukha]

Salut!

Voici en gros le principe :

La ligne (colonne) en cours de saisie est donnée par Tableselect(MaTable)

Tu dois parcourir ta table de la première à la dernière ligne (non en cours de saisie) et vérifier si ta saisie existe!

Code :

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

1
2
3
4
5
6
7
Masaisie est une chaine = MaTable.Col
POUR i=1 _A_ Tableselect(MaTable)-1
  SI MaTable.Col[i]=Masaisie ALORS
    // traitement doublon trouvé
    SORTIR
  FIN
FIN

A vérifier, je n'ai pas WD sous la main

[channibal]

Ajoute un bouton invisible "BTN_Verifie" avec ce 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
i est un entier
Occu est un entier = TableOccurrence(TABLE_LstUtilisateurs)
 
SI TableSelect(TABLE_LstUtilisateurs) < 0 ALORS
	RETOUR
FIN
 
SI TableSelect(TABLE_LstUtilisateurs) = 1 OU Occu = 1 ALORS
	RETOUR
 
FIN
 
POUR i = Occu-1 A 1 PAS -1
	SI COL_Utilisateurs[i] = COL_Utilisateurs ALORS
		Avertissement("Cet utilisateur existe déjà ! Vous ne pouvez pas continuer !")
		RepriseSaisie(COL_Utilisateurs)
	FIN
FIN

remplace ton //Sortie de Col_Utilisateurs(Table_LstUtilisateurs)

par ceci:

Code :

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

ExécuteTraitement(BTN_Verifie,trtClic)

PS, ce code tolère l'ajout des enregistrements avec des utilisateurs "vides" alors fais attention a ce petit détail aussi dans tes contrôles

[miripesage]

bonjour, autre manière plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
Colenr est une chaîne= TABLE_LstUtilisateurs.COL_Utilisateurs[TableSelect(TABLE_LstUtilisateurs)]
 
POUR i=1 _A_ Tableselect(TABLE_LstUtilisateurs)-1
si TABLE_LstUtilisateurs.COL_Utilisateurs[i] = Colenr alors
  Avertissement("Cet utilisateur existe déjà ! Vous ne pouvez pas continuer !")
  RETOUR
 SINON
  Iinfo("L'utilisateur n'existe pas")
FIN

[channibal]

Après réflexion voici le bon 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
i est un entier
j est un entier = TableSelect(TABLE_LstUtilisateurs)
Occur est un entier = TableOccurrence(TABLE_LstUtilisateurs)
 
 
SI j < 0  OU  Occur <= 1 ALORS
	RETOUR
FIN
 
POUR i = 1 A Occur
	SI COL_Utilisateurs[i] = COL_Utilisateurs ET i <> j ALORS
		Avertissement("Cet utilisateur existe déjà ! Vous ne pouvez pas continuer !")
		RepriseSaisie(COL_Utilisateurs)
	FIN
FIN

[jer64]

Merci beaucoup pour votre aide, ca marche mais je m'aperçois de quelques problèmes de gestion :

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
19
20
21
22
23
24
25
26
 
 
 
i est un entier
Colenr est une chaîne=TABLE_LstUtilisateurs.COL_Utilisateurs[TableSelect(TABLE_LstUtilisateurs)]
 
 
POUR i=1 _A_ TableSelect(TABLE_LstUtilisateurs)-1
 
		SI TABLE_LstUtilisateurs.COL_Utilisateurs[i]=Colenr ALORS
 
			Avertissement("Cet utilisateur existe déjà ! Création Annulée")
			ExécuteTraitement(BTN_SupprLstuti1,trtClic)
 
 
 
		FIN
FIN
 
		SI Colenr="" OU Colenr=" " ALORS
 
			Avertissement("Vous ne pouvez pas créer de champs vide ! Création Annulée")
 
			ExécuteTraitement(BTN_SupprLstuti1,trtClic)
 
		FIN

Les problèmes sont les suivants :

- La comparaison tient compte des majuscules/minuscules et accents. Je voudrais que cela n'en tienne pas compte.

- J'ai prévu la chaîne vide mais si l'utilisateur tape 10 fois sur la barre d'espace mon code ne considérera pas que l'enregistrement est vide.

[zouzoukha]

Salut!

1°) Voir l'aide sur sanscasse

2°) Voir l'aide sur Sansespace()

Bonne continuation

[jer64]

Bonjour,

J'ai déjà vu l'aide, mais je n'arrive pas à mettre en application dans mon code.

Merci d'avance.

[jer64]

J'ai essayé ce code mais sans succés :

Code :

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

1
2
3
 
 
SI ChaîneFormate(TABLE_LstUtilisateurs.COL_Utilisateurs[i]=Colenr,ccSansCasse) ALORS

[jer64]

Je vous remercie à tous de votre aide. Tout est OK.

Pour le problème de casse j'ai essayé le code suivant qui fonctionne :

Code :

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

1
2
3
 
 
SI ChaîneFormate(TABLE_LstUtilisateurs.COL_Utilisateurs[i],ccMajuscule+ccMinuscule+ccSansAccent)=ChaîneFormate(Colenr,ccMajuscule+ccMinuscule+ccSansAccent) ALORS

Merci encore.

[Hemgé]

Bonsoir,

Vous pouvez avantageusement remplacer la boucle de test par la fonction TableCherche (V15 et suivantes) qui me semble taillée sur mesure pour votre problème.

Hemgé

[jer64]

Bonsoir,

J'ai voulu au départ utiliser Tablecherche mais je n'ai pas réussi à le faire marcher.

[Hemgé]

Bonsoir,

Effectivement, j'ai vu votre message original.
Je suis étonné. A priori le code était correct.

Vous n'y avez pas indiqué ce qui ne fonctionnait pas.
Avez-vous tracé le code pour voir où cela foirait ?

Est-ce une table fichier ou une table mémoire ?

Dans une table fichier, la colonne de recherche doit être liée à une rubrique de type clé.

Quant à la casse,

Dans une table mémoire, la recherche effectuée avec la fonction TableCherche n'est pas sensible à la casse (majuscules/minuscules).
Dans une table fichier, la recherche effectuée avec la fonction TableCherche tient compte des caractéristiques de recherche définies dans l'analyse pour la rubrique liée à la colonne de recherche (sensible ou non à la casse, ...).

Donc, première chose à vérifier : table fichier ou table mémoire ? et si table fichier, liaison ou non à une rubrique.

Si Table mémoire ou table fichier avec colonne liée à une rubrique, alors il faut tracer.

Ceci, pour autant que vous ayez envie de creuser puisque le problème est résolu.

Bonne soirée

Hemgé

[jer64]

Bonsoir,

C'est une table mémoire.

Je vais creuser un peu quand même dés que j'aurais un peu de temps.

Merci pour tout.