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
paradox 10 etiquettes
-
- Site Admin
- Messages : 855
- Enregistré le : sam. sept. 14, 2002 10:41 pm
- Localisation : Igny (Essonne)
Bonsoir,
Voici une possibilité, si j'ai bien compris le problème :
Pouvoir imprimer X étiquettes identiques à partir d'une fiche
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.
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
Pour un besoin ponctuel l'assistant Etiquettes de Word permet de faire beaucoup de choses simplement. Il peut rendre service.