Discussion :

[emeland85]

Bonsoir a tous;

je voudrais déplacer enregistrement entre les tables ( UTILISATEUR, LIEU, STOCK_PC) grace a un bouton "assosier" et des combox pour selection les enregistrement a déplace vere la table cible EQUIPEMENT_PC.

plan de travail:

combox_USER pour selection quelque champs utilisateurs et les nom Complet de ma table UTILISATEUR
combox_EQP pour selection tout les champs ma table Stock_pc
combox_Lieu pour selection champ Emplacement ma table Lieu

Bouton Assosier pour copier les enregistrements user et nomcomplet et emplacement et déplacer complatement les enregistrements stock_pc vere ma table EQUIPEMENT_PC




Merci pour tout le mondes.

[Yusep]

Avant tout : Bonsoir
Ensuite "je veux", NON, "je voudrais"
Merci de collaborer.

[emeland85]

Avant tout : Bonsoir
Ensuite "je veux", NON, "je voudrais"
Merci de collaborer.

Bonsoir Mr Yusep

[Yusep]

Le plus simple c'est :
https://doc.pcsoft.fr/fr-FR/?3074006...ligne_fonction
Je cite :
"La fonction TableAjouteLigne peut être utilisée indifféremment sur :

• un champ Table ou Table hiérarchique fichier.
• un champ Table ou Table hiérarchique par programmation.
• un champ monosélection ou multisélection."

Quand à "déplacer", d'abord utilisez Hajoute("Destination"), puis à la fin Hsupprime("Origine").
N'oubliez pas de tester le résultat de de chaque operation (avec SI PAS H... ALORS).

[emeland85]

Le plus simple c'est :
https://doc.pcsoft.fr/fr-FR/?3074006...ligne_fonction
Je cite :
"La fonction TableAjouteLigne peut être utilisée indifféremment sur :

• un champ Table ou Table hiérarchique fichier.
• un champ Table ou Table hiérarchique par programmation.
• un champ monosélection ou multisélection."

Quand à "déplacer", d'abord utilisez Hajoute("Destination"), puis à la fin Hsupprime("Origine").
N'oubliez pas de tester le résultat de de chaque operation (avec SI PAS H... ALORS).

bonsoir;

J'ai essayé avec ce code mais ça n'a pas fonctionn!

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
PROCÉDURE BTN_Associer.Clic()
 
// Vérifiez si un élément est sélectionné dans le combo-box
SI COMBO_UTILISATEUR(COMBO_UTILISATEUR) ALORS
 
	// Récupérez la clé de l'élément sélectionné
	CléSelectionnée = ComboNumItem(COMBO_UTILISATEUR)
	CléSelectionnée = ComboNumItem(COMBO_Stock_pc)
	CléSelectionnée = ComboNumItem(COMBO_LIEU
	// Sélectionnez l'enregistrement correspondant dans TableSource
	UTILISATEUR..Recherche(CléSelectionnée, UTILISATEUR.ChampDeSelection)
	Stock_pc..Recherche(CléSelectionnée, Stock_pc.ChampDeSelection)
	LIEU..Recherche(CléSelectionnée, LIEU.Emplacement..ChampDeSelection)
 
	// Ajoutez l'enregistrement à TableDestination
	TableAjouteLigne(TABLE_Inventaire_EQP,COL_Utilisateur,COL_Nom_compler)
 
	// Supprimez l'enregistrement de TableSource
	Stock_pc..hSupprime()
 
	// Mettez à jour le combo-box pour refléter les changements
	ComboSupprimeTout(COMBO_UTILISATEUR)
	TableSource..First()
	WHILE NOT UTILISATEUR..Out()
		ComboAddItem(COMBO_UTILISATEUR, UTILISATEUR.ChampDeSelection)
		UTILISATEUR..Next()
		EndWhile
 
		// Rafraîchissez l'affichage des tables si nécessaire
		Rafraîchir(UTILISATEUR)
		Rafraîchir(Inventaire_EQP)
FIN

[serendib]

https://www.developpez.net/forums/d2.../#post11990516

[frenchsting]

Bonjour,

Yusep a donné les infos...

Quand à "déplacer", d'abord utilisez Hajoute("Destination"), puis à la fin Hsupprime("Origine").
N'oubliez pas de tester le résultat de de chaque operation (avec SI PAS H... ALORS).

Je vois que tu es débutant. Pas de mal à çà, je suis passé par là comme tout le monde. Un peu d'algorithmie et un passage par l'autoformation te feront le plus grand bien.

[serendib]

Bonjour,

Yusep a donné les infos...


Je vois que tu es débutant. Pas de mal à çà, je suis passé par là comme tout le monde. Un peu d'algorithmie et un passage par l'autoformation te feront le plus grand bien.

Démonstration magistrale, ici, du côté pervers des forums de développement.
Les débutants préfèrent poser des dizaines de questions les unes derrière les autres, plutôt que de commencer par une formation de base.
Il est vrai que de se prendre la tête pendant 3 semaines sur le cours d'autoformation de windev, c'est pas cool (comme ils disent).
Et comme il y a toujours quelqu'un pour leur pondre un code tout fait (auquel ils ne pigent rien, évidemment),
pourquoi s'en priver.
On dit que c'est mettre la charrue avant les bœufs.

@emeland85, ne prends pas cela pour toi, mais cogite le message de frenchsting.
On ne se met pas aux commandes d'un bolide sans une formation sérieuse.
(windev, c'est pas une bicyclette)