paradox 10 etiquettes

[prevostc]

soit une base de de donne de x enregistrements

comment creer a partir d'un bouton poussoir une requete parametre qui pose la question d'un numero de fiche à rechercher et aprés avoir trouver cette fiche lancer l'impression d'un jeu d'etiquettes contenant certain renseignements de cette fiche (par ex nom prenom date de naissance et adresse)

les etiquettes sont preformés sur une planche A4 au format de 70x35mm soit 24 etiquettes par page

merci

b prevost

[Côme]

Bonsoir,

Voici une possibilité, si j'ai bien compris le problème :
Pouvoir imprimer X étiquettes identiques à partir d'une fiche

Code : Tout sélectionner

method pushButton(var eventInfo Event)
Var
	vNo,I	LongInt
	P1,P2	TCursor
	T 		Table
EndVar

;// Laisser le choix du N°Fiche

vNo=0
vNo.view("Quel N° Fiche voulez-vous ?")
if vNo=0 then
	return
endif

;// Créer une table réponse vide adaptée avec les champs souhaités

T = create ":Priv:Reponse.db"
             WITH "Nom" : "A30",
                  "Prenom" : "A20",
                  "DateNai" : "D"
endCreate

;// Localiser l'enregistrement demandé

P1.open(":MonAlias:MaTable")
if not P1.locate("NoFiche",vNo) then
	MsgStop("Erreur !","Impossible de trouver la fiche !")
	P1.close()
	return
endif

;// Le copier 24 fois dans la table Réponse (pour 24 étiquettes identiques)

P2.open(":Priv:Reponse")
P2.edit()
For I from 1 to 24
	P2.InsertRecord()
	P2.Nom=P1.Nom
	P2.Prenom=P1.Prenom
	P2.DateNai=P1.DateNai
	if not P2.PostRecord() then
		errorshow("Une erreur est survenue")
   	return
	endif
EndFor
P2.Endedit()
P2.close()
P1.Close()

;// Lancer l'édition

;// Construire un état d'étiquettes adapté (voir l'expert étiquettes)
;// Lancer l'éditon basée sur la table Reponse (cf le tutorial !)

endMethod

Bon tout ceci est à adapter bien sûr

Pour un besoin ponctuel l'assistant Etiquettes de Word permet de faire beaucoup de choses simplement. Il peut rendre service.