Discussion :

[xGuigui78]

Bonjour à tous et à toutes,

Je cherche à modifier un enregistrement dans ma base de donnée. Je fais des test avant de valider la modification pour voir si les champs sont correctement saisie. Après la vérification des champs, j'appelle la fonction Hmodifie mais celle ci au lieu de changer l'enregistrement que j'ai sélectionné, modifie toujours le premier enregistrement.
Peut-être et surement des gens trouveront directement et me prendront pour un idiot, mais la j'en ai vraiment aucune idée...

Voici mon code lorsque je clique sur le bouton modifier:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
// Une ligne est-elle sélectionné ?
SI TableSelect(Table_Destinataire)=-1 ALORS 
	RETOUR
SINON
	Info("Ligne sélectionnée")
FIN
 
Ouvre(FEN_Fiche_Destinataire,1)
 
// Rafraichissement de la table
TableAffiche(Table_Destinataire,taCourantBandeau)

et voici le bouton de mon code valider (je met que les choses utiles):

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
 
//Lecture des informations saisies 
EcranVersFichier(FEN_Fiche_Destinataire)
 
SINON SI pval=1 ALORS
	SI SAI_NumMutuelle<>i ALORS
		TestChamps() //Ma fonction marche correctement donc je met pas le code
		SI numrenseigné=Vrai ET NomDrenseigné=Vrai ET emailvalide=Vrai ALORS
			EcranVersFichier(FEN_Fiche_Destinataire)
			HModifie(Destinataire,hNumEnrEnCours)
		SINON
			AffichageErreurSaisie() 
			RETOUR
	    FIN
SINON
//blablabla
FIN
 
Ferme(FEN_Fiche_Destinataire)
 
//Valeur de retour de la fenêtre
MaFenêtre..ValeurRenvoyée=Vrai

J'ai bien tous mis, j'espère que j'ai été assez clair et désolé pour ceux qui trouveront sa facile, mais je débute et la j'en ai aucune idée donc soyez gentil...

Merci

[L.nico]

Bonjour,
avant d'ouvrir votre fenêtre de modification, regardez du côté des fonctions HlitRecherchePremier ou HlitRecherche.

Bonne suite

[xGuigui78]

C'est à dire? Désolé mais je vois pas trop ce que ça ferait si j'utilise ces fonctions.

J'ai changer ma table d'affichage et maintenant ça marche si je change une donnée en lui mettant un nombre supérieur à toutes les autres données.

Mais un autre problème est apparu. Par exemple, je veux changer la ligne 9 en lui mettant 30 comme nouvelle valeur. Si 29 et 31 existe, alors il va me remplacer la ligne 31 par la ligne 30 avec ses données et me laisser son ancien numéro, c'est à dire la ligne 9 avec ses données.

J'avance mais vraiment petit à petit...

[L.nico]

Un problème à la fois jeune homme (1 problème par fil de discussion voir les règles du forum) ....
Le fait de faire votre sélection dans votre table ne positionne pas pour autant le curseur de données sur l'enregistrement qui vous intéresse ....
Donc il faut se positionner sur l'enregistrement voulu avant d'entrer en modification :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
// Une ligne est-elle sélectionné ?
SI TableSelect(Table_Destinataire)=-1 ALORS 
	RETOUR
SINON
	Info("Ligne sélectionnée")
FIN

HlitRecherchePremier(Destinataire,Destinataire,Table_Destinataire.Destinataire)  // Je suppose bien sûr pour le nom de la colonne et du champ clé
Ouvre(FEN_Fiche_Destinataire,1)

// Rafraichissement de la table
TableAffiche(Table_Destinataire,taCourantBandeau)

[xGuigui78]

Désolé...
Je viens de rajouter votre ligne, mais sans succès.

Comme je vous ai dis avant, ce que je comprend pas, c'est que ça marche si c'est la nouvelle valeur max sinon ça marche pas...

[L.nico]

Quel est le code d'initialisation de votre feuille FEN_Fiche_Destinataire ?

[xGuigui78]

Code :

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

1
2
3
4
5
6
7
8
 
// Affichage des enregistrements
FichierVersEcran()
 
i=SAI_NumMutuelle
 
// Valeur de retour par défaut
MaFenêtre..ValeurRenvoyée = Faux

[L.nico]

Remplacez mon bout de code par :

Code :

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

1
2
Res est un Booleen
Res = HlitRecherchePremier(Destinataire,Destinataire,Table_Destinataire.Destinataire)  // Je suppose bien sûr pour le nom de la colonne et du champ clé

Et donnez moi la valeur de Res juste après la recherche

[EDIT] : vous avez bien remplacé mes parametres de HlitRecherchePremier par vos parametres ? : http://doc.pcsoft.fr/fr-FR/?3044036&...cherchePremier

[xGuigui78]

Vous pouvez me tutoyer, il n'y a aucun soucis.

Lorsque j'utilise votre code, mon booléen est bien à vrai.

Merci de votre aide!

[EDIT]: Oui mes paramètres sont corrects

Code :

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

1
2
 
res=HLitRecherchePremier(Destinataire,DestinataireMutuelle,Table_Destinataire.DestinataireMutuelle)

[frenchsting]

Il correspond à quel paramètre ton 1 dans :

Code :

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

Ouvre(FEN_Fiche_Destinataire,1)

[xGuigui78]

1 pour la modification d'un enregistrement et 2 pour l'ajout d'un enregistrement

[L.nico]

Ok pour le tutoiement
Qu'est-ce qui se passe si tu changes une valeur clé par une valeur qui existe ?
Comment est-ce que c'est contrôlé ?
Dans ta procédure TestChamps() ?

[EDIT] : Aussi, il y a un EcranVersFichier() en trop mais le problème n'est pas là ....

[xGuigui78]

Oui dans ma procédure testchamps, en gros je test tous mes champs et pour chaque champs, j'ai un booléen. Si le champs est correct, alors je met ce booléen à vrai et si les trois booléen sont corrects alors je peut modifier dans ce cas là.

Voici le 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
 
//TEST SI TOUS LES CHAMPS SONT CORRECTEMENTS REMPLIS
PROCEDURE Test_Champs()
 
//TEST SI LE NUMERO DE MUTUELLE EXISTE
HLitRecherchePremier(Destinataire,Destinataire.DestinataireMutuelle,SAI_NumMutuelle)
SI HTrouve()=Vrai ALORS
	num_non_existant=Faux
SINON
	num_non_existant=Vrai
FIN
 
//TEST SI LE NOM EST RENSEIGNE
SI SansEspace(SAI_NomDestinataire1) <> "" ALORS
	Nom_valide=Vrai
SINON
	Nom_valide=Faux
FIN
 
//TEST LA VERIFICATION DE L'EMAIL
SI VérifieExpressionRégulière(SAI_EmailDestinaire1, "[-.a-z0-9]+[@][-.a-z0-9]+[.][a-z]{2,4}") = Vrai ET SansEspace(SAI_EmailDestinaire1)<>"" ALORS
	Email_valide=Vrai
SINON
	Email_valide=Faux
FIN

[EDIT]: J'ai changé mes noms de booléens depuis ce matin mais ça marche, pas d'inquiétude
Si j'utilise juste HModifie sans mes tests, bah ça marche, mais du coup, la personne peut remplir n'importe quoi... Pour ça que je veux faire absolument mes tests...

[L.nico]

Et bien le voilà le problème ...
le fait de faire une recherche dans cette procédure fait que tu perds ton positionnement pour la fiche ....
tu peux contourner cela en faisant ton contrôle de champs par une requête ou en se repositionnant sur ta fiche après le contrôle (Valeur de i) puis en faisant à nouveau EcranVersFichier juste après pour récupérer la valeur modifiée et ensuite seulement enregistrer ...

[xGuigui78]

Ah bah je savais pas que sa perdait le positionnement... Merci!
Par contre, juste une dernière question, quand vous dites vous repositionnez sur la fiche après le contrôle, quel fonction il faut que j'utilise?

Merci encore en tous cas!

[L.nico]

Celle que tu utilises déjà : HlitRecherchePremier()

[xGuigui78]

D'accord je vais essayer maintenant, merci en tous cas!

[xGuigui78]

Ça marche niquel, merci encore! Je met le sujet en résolu!
Encore merci car je crois que j'aurai pu chercher encore longtemps vu que sa fais que une semaine que je pratique windev...

[djejackk]

Bonjour,

Pour juste tester l'existence d'un enregistrement, je vous conseille d'utiliser la fonction HRecherchePremier (sans le Lit).
Ça permet de savoir si un enregistrement existe, mais sans le lire (et ça évite donc les multiples lectures)...

[xGuigui78]

Je vais essayer, merci pour le conseil !