[WD9] Enregistrer donnée d'une table dans base Access

**Gilles_69** · 29/05/2008, 13h07

Ok si tu remets les points d'arrêt, as-tu toujours les mêmes valeurs ?

A+

**loic20h28** · 29/05/2008, 13h14

Donc, lorsque je remet des points d'arrêts :
* 'Table1.Acte_ou_Produit' --> me donne la même valeur (=41 63 74 65)
* 'Combo_CodeINTERVENTION' --> me donne comme valeur "32" au lieu de 0*2 alors que le code de l'intervention = "2".

Cordialement.

**Gilles_69** · 29/05/2008, 17h11

Salut,
peux-tu envoyer une image écran de ta fenêtre incluant la Table1 stp ?

A+

**loic20h28** · 29/05/2008, 17h18

La voici ci-joint dans le document word. En espérant que c'est bien cela que tu voulais.

Merci d'avance!!

**Gilles_69** · 30/05/2008, 05h58

Ok je ne vois malheureusement rien de spécial.
Par précaution, personnellement je remplacerais :
Indice est un entier = TableOccurrence(Table1)
par
Indice est un entier = Table1..Occurence

Dernière chose, n'aurais-tu pas sélectionné la visualisation HEXA en mode debug ?

A+

**loic20h28** · 30/05/2008, 10h33

Ok pour :

Code :

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

Indice est un entier = Table1..Occurence

n'aurais-tu pas sélectionné la visualisation HEXA en mode debug

Ben je ne peux pas te dire car je sait pas comment on fais cela. Moi lorsque je debug, je fais de la manière suivante :
* Je place mes points d'arrêts
* J'exécute mon application normalement.
* Puis, dés que j'arrive au point d'arrêt, j'exécute la suite en faisant du pas à pas.

Ya t'il un moyen de savoir si c'est une visualisation hexa...??

Cordialement.

**Gilles_69** · 30/05/2008, 13h08

Ya t'il un moyen de savoir si c'est une visualisation hexa...??

En mode debug (sur la V12), c'est un bouton qui se trouve en haut à droite de la fenètre de debug.

A+

**loic20h28** · 30/05/2008, 13h18

Ok, mais moi je travaille avec Windev 9.

Donc, mon problème maintenant c'est que ça n'enregistre pas les modifications. Je pense que ça viens du fait que 'Combo_CodeINTERVENTION'=32 au lieu de 2.
Comment faire??

Merci d'avance!!

**Jannus** · 30/05/2008, 14h15

Envoyé par Gilles_69

En mode debug (sur la V12), c'est un bouton qui se trouve en haut à droite de la fenètre de debug.

Idem sur WD9

**loic20h28** · 30/05/2008, 16h21

Merci Guardian.

Donc effectivement j'étais bien en affichage Hexa. Donc, j'ai refais le debug et voila ce que cela donne :
* 'Table1.Acte_ou_Produit' --> donne bien la valeur "Acte" lorsque c'est un acte et la valeur "Produit" lorsque c'est un produit.
* 'Combo_CodeINTERVENTION' --> cela m'affiche bien la valeur du numéro de l'intervention.

Donc je comprend vraiment plus pourquoi ça s'enregistre pas dans la base. Avez-vous une idée??

Merci d'avance!!

**Jannus** · 30/05/2008, 16h33

Tu n'as aucun message d'erreur ?

**loic20h28** · 30/05/2008, 16h35

aucun, sinon je l'aurai insérer.

Pour ça que je ne comprend pas ce qui se passe!!

**Gilles_69** · 31/05/2008, 06h22

Salut,
tout ceci est bien mystérieux.
Essaye de mettre des tests :

Code :

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

1
2
3
4
 
Si pas HAjoute(xxx) / HModifie(xxxx) alors
  info(herreur())
fin

à chaque fois que tu manipules les données.

A+

**loic20h28** · 31/05/2008, 11h08

Je viens de mettre des tests et donc 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Indice est un entier = Table1..Occurrence
Compteur est un entier
POUR Compteur = 1 A Indice
	TableSelectPlus(Table1, Compteur)
	SI Table1.Acte_ou_Produit = "Acte" ALORS
		HLitRecherche(LIGNE_MO_ATELIER,LMA_CODEINT, Combo_CodeINTERVENTION..ValeurAffichée)
		SI PAS HTrouve(LIGNE_MO_ATELIER) ALORS
			LIGNE_MO_ATELIER.LMA_CODEINT = Combo_CodeINTERVENTION..ValeurAffichée
			LIGNE_MO_ATELIER.LMA_REFACTE = Table1.Référence
			LIGNE_MO_ATELIER.LMA_NBHUTIL = Table1.NbreHeure
//			HAjoute(LIGNE_MO_ATELIER)
			SI PAS HAjoute(LIGNE_MO_ATELIER) ALORS
				Info(HErreur())
			FIN
		SINON
			LIGNE_MO_ATELIER.LMA_NBHUTIL = Table1.NbreHeure
//			HModifie(LIGNE_MO_ATELIER)
			SI PAS HModifie(LIGNE_MO_ATELIER) ALORS
				Info(HErreur())
			FIN
		FIN
	SINON
		HLitRecherche(LIGNE_PRODUIT_ATELIER,LPA_CODINT, Combo_CodeINTERVENTION..ValeurAffichée)
		SI PAS HTrouve(LIGNE_PRODUIT_ATELIER) ALORS
		LIGNE_PRODUIT_ATELIER.LPA_CODINT = Combo_CodeINTERVENTION..ValeurAffichée
		LIGNE_PRODUIT_ATELIER.LPA_REFPDT = Table1.Référence
		LIGNE_PRODUIT_ATELIER.LPA_QTECONS = Table1.Quantité
//			HAjoute(LIGNE_PRODUIT_ATELIER)
			SI PAS HAjoute(LIGNE_PRODUIT_ATELIER) ALORS
				Info(HErreur())
			FIN
		SINON
			LIGNE_PRODUIT_ATELIER.LPA_QTECONS = Table1.Quantité
//			HModifie(LIGNE_PRODUIT_ATELIER)
			SI PAS HModifie(LIGNE_PRODUIT_ATELIER) ALORS
				Info(HErreur())
			FIN
		FIN
	FIN
FIN

J'ai tête trouvé le problème. Hier, j'ai réalisé une nouvelle intervention et lorsque j'avais qu'un acte, qu'un produit alors les modification s'enregistré mais si j'ai 2actes, 2produits que je modifie en même temps alors je pense avoir remarqué que les modifications concernant les produits s'enregistre mais pas les modifications concernants les cates.

Merci d'avance!!

**Gilles_69** · 31/05/2008, 11h27

Salut,
juste une chose, il ne faut pas mettre :

Code :

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

1
2
3
4
5
 
HAjoute(LIGNE_MO_ATELIER)
SI PAS HAjoute(LIGNE_MO_ATELIER) ALORS
  Info(HErreur())
FIN

mais juste

Code :

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

1
2
3
4
 
SI PAS HAjoute(LIGNE_MO_ATELIER) ALORS
  Info(HErreur())
FIN

Teste de cette manière et tiens moi au courant.

A+

**loic20h28** · 31/05/2008, 11h36

T'inquiète j'ai bien mis :

Code :

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

1
2
3
SI PAS HAjoute(LIGNE_MO_ATELIER) ALORS
  Info(HErreur())
FIN

car si tu regarde bien

Code :

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

HAjoute(LIGNE_MO_ATELIER)

est en commentaire.

Mais cela m'affiche aucune erreur. Par contre, lorsque c'est un acte, le curseur passe par la boucle(va sur "Info(HErreur())") mais si c'est un produit le curseur ne rentre pas dans la boucle mais cela modifie bien la valeur dans la base.

Cordialement.

**Jannus** · 31/05/2008, 12h00

Si je comprends bien (un de tes problème est que) ton test :

Code :

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

SI Table1.Acte_ou_Produit = "Acte" ALORS

fonctionne si c'est bien un "Acte", mais pas si c'est un "Produit" ?

**loic20h28** · 31/05/2008, 12h03

En fait, mon problème c'est que le curseur va bien ou il faut. Mais si c'est un acte, il n'enregistre pas la MODIFICATION dans la base par contre si c'est un produit, cela enregistre parfaitement la MODIFICATION dans la base.

Pour les AJOUT cela fonctionne parfaitement que ce soit un acte oùun produit

Merci d'avance!!