A partir d'une table "Contacts" j'ai créé une requête paramétrée en vue
d'établir une étiquette unique. A l'aide de l'assitant Etat Etiquette, je
peux appeler à tout moment une étiquette en fonction des besoins. Le
problème est que la position de l'étiquette se trouve toujours sur le côté
supérieur gauche de la feuille à imprimer. Je voudrais pouvoir, au fur et à
mesure de l'impression d'une étiquette unique, déplacer la zone d'impression
en fonction du nombre d'étiquettes encore disponibles sur la feuille.
Exemple: sur une feuille avec 7 étiquettes en ligne et 3 en colonne (21
étiquettes possibles réparties de la façon suivante:
1 2 3
4 5 6
.......
19 20 21
Comment arriver à commander l'impression de l'étiquette à l'emplacement 15,
19 ou 21?
A partir d'une table "Contacts" j'ai créé une requête paramétrée en vue d'établir une étiquette unique. A l'aide de l'assitant Etat Etiquette, je peux appeler à tout moment une étiquette en fonction des besoins. Le problème est que la position de l'étiquette se trouve toujours sur le côté supérieur gauche de la feuille à imprimer. Je voudrais pouvoir, au fur et à mesure de l'impression d'une étiquette unique, déplacer la zone d'impression en fonction du nombre d'étiquettes encore disponibles sur la feuille.
Colle ceci dans ton état...
Option Compare Database Option Explicit
Public intToSkip As Integer Public intSkipped As Integer
' Propriété de la zone Détail - Événement "Sur impression" Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) If intSkipped < intToSkip Then Me.NextRecord = False Me.PrintSection = False intSkipped = intSkipped + 1 End If End Sub
' Propriété de l'état - Événement "Sur ouverture" Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize Dim intEttiket As String, msg As String msg = "Si vous voulez laisser des étiquettes vides en début de page:" & vbCrLf & vbCrLf & _ "|=> Entrez le nombre d'étiquettes vides s.v.pl."
intEttiket = inputbox(msg, "Attention")
If IsNull(intEttiket) Then Cancel = True Else intToSkip = Val(intEttiket) End If End Sub
Ok ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Salut,
"Jean Martin"
A partir d'une table "Contacts" j'ai créé une requête paramétrée en vue
d'établir une étiquette unique. A l'aide de l'assitant Etat Etiquette, je
peux appeler à tout moment une étiquette en fonction des besoins. Le
problème est que la position de l'étiquette se trouve toujours sur le côté
supérieur gauche de la feuille à imprimer. Je voudrais pouvoir, au fur et à
mesure de l'impression d'une étiquette unique, déplacer la zone d'impression
en fonction du nombre d'étiquettes encore disponibles sur la feuille.
Colle ceci dans ton état...
Option Compare Database
Option Explicit
Public intToSkip As Integer
Public intSkipped As Integer
' Propriété de la zone Détail - Événement "Sur impression"
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
If intSkipped < intToSkip Then
Me.NextRecord = False
Me.PrintSection = False
intSkipped = intSkipped + 1
End If
End Sub
' Propriété de l'état - Événement "Sur ouverture"
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
Dim intEttiket As String, msg As String
msg = "Si vous voulez laisser des étiquettes vides en début de page:" & vbCrLf & vbCrLf & _
"|=> Entrez le nombre d'étiquettes vides s.v.pl."
intEttiket = inputbox(msg, "Attention")
If IsNull(intEttiket) Then
Cancel = True
Else
intToSkip = Val(intEttiket)
End If
End Sub
Ok ?
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
A partir d'une table "Contacts" j'ai créé une requête paramétrée en vue d'établir une étiquette unique. A l'aide de l'assitant Etat Etiquette, je peux appeler à tout moment une étiquette en fonction des besoins. Le problème est que la position de l'étiquette se trouve toujours sur le côté supérieur gauche de la feuille à imprimer. Je voudrais pouvoir, au fur et à mesure de l'impression d'une étiquette unique, déplacer la zone d'impression en fonction du nombre d'étiquettes encore disponibles sur la feuille.
Colle ceci dans ton état...
Option Compare Database Option Explicit
Public intToSkip As Integer Public intSkipped As Integer
' Propriété de la zone Détail - Événement "Sur impression" Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) If intSkipped < intToSkip Then Me.NextRecord = False Me.PrintSection = False intSkipped = intSkipped + 1 End If End Sub
' Propriété de l'état - Événement "Sur ouverture" Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize Dim intEttiket As String, msg As String msg = "Si vous voulez laisser des étiquettes vides en début de page:" & vbCrLf & vbCrLf & _ "|=> Entrez le nombre d'étiquettes vides s.v.pl."
intEttiket = inputbox(msg, "Attention")
If IsNull(intEttiket) Then Cancel = True Else intToSkip = Val(intEttiket) End If End Sub
Ok ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Jean Martin
Bonjour Pierre,
Merci de ta réponse. Je vais essayer de la mettre en oeuvre et je te dis quoi...
Jean
"3stone" a écrit dans le message de news:3fbd4f02$0$16852$
Salut,
"Jean Martin"
A partir d'une table "Contacts" j'ai créé une requête paramétrée en vue d'établir une étiquette unique. A l'aide de l'assitant Etat Etiquette, je
peux appeler à tout moment une étiquette en fonction des besoins. Le problème est que la position de l'étiquette se trouve toujours sur le côté
supérieur gauche de la feuille à imprimer. Je voudrais pouvoir, au fur et à
mesure de l'impression d'une étiquette unique, déplacer la zone d'impression
en fonction du nombre d'étiquettes encore disponibles sur la feuille.
Colle ceci dans ton état...
Option Compare Database Option Explicit
Public intToSkip As Integer Public intSkipped As Integer
' Propriété de la zone Détail - Événement "Sur impression" Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) If intSkipped < intToSkip Then Me.NextRecord = False Me.PrintSection = False intSkipped = intSkipped + 1 End If End Sub
' Propriété de l'état - Événement "Sur ouverture" Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize Dim intEttiket As String, msg As String msg = "Si vous voulez laisser des étiquettes vides en début de page:" & vbCrLf & vbCrLf & _
"|=> Entrez le nombre d'étiquettes vides s.v.pl."
intEttiket = inputbox(msg, "Attention")
If IsNull(intEttiket) Then Cancel = True Else intToSkip = Val(intEttiket) End If End Sub
Ok ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Bonjour Pierre,
Merci de ta réponse. Je vais essayer de la mettre en oeuvre et je te dis
quoi...
Jean
"3stone" <3stone@skynet.be> a écrit dans le message de
news:3fbd4f02$0$16852$ba620e4c@reader3.news.skynet.be...
Salut,
"Jean Martin"
A partir d'une table "Contacts" j'ai créé une requête paramétrée en vue
d'établir une étiquette unique. A l'aide de l'assitant Etat Etiquette,
je
peux appeler à tout moment une étiquette en fonction des besoins. Le
problème est que la position de l'étiquette se trouve toujours sur le
côté
supérieur gauche de la feuille à imprimer. Je voudrais pouvoir, au fur
et à
mesure de l'impression d'une étiquette unique, déplacer la zone
d'impression
en fonction du nombre d'étiquettes encore disponibles sur la feuille.
Colle ceci dans ton état...
Option Compare Database
Option Explicit
Public intToSkip As Integer
Public intSkipped As Integer
' Propriété de la zone Détail - Événement "Sur impression"
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
If intSkipped < intToSkip Then
Me.NextRecord = False
Me.PrintSection = False
intSkipped = intSkipped + 1
End If
End Sub
' Propriété de l'état - Événement "Sur ouverture"
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
Dim intEttiket As String, msg As String
msg = "Si vous voulez laisser des étiquettes vides en début de page:" &
vbCrLf & vbCrLf & _
"|=> Entrez le nombre d'étiquettes vides s.v.pl."
intEttiket = inputbox(msg, "Attention")
If IsNull(intEttiket) Then
Cancel = True
Else
intToSkip = Val(intEttiket)
End If
End Sub
Ok ?
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Merci de ta réponse. Je vais essayer de la mettre en oeuvre et je te dis quoi...
Jean
"3stone" a écrit dans le message de news:3fbd4f02$0$16852$
Salut,
"Jean Martin"
A partir d'une table "Contacts" j'ai créé une requête paramétrée en vue d'établir une étiquette unique. A l'aide de l'assitant Etat Etiquette, je
peux appeler à tout moment une étiquette en fonction des besoins. Le problème est que la position de l'étiquette se trouve toujours sur le côté
supérieur gauche de la feuille à imprimer. Je voudrais pouvoir, au fur et à
mesure de l'impression d'une étiquette unique, déplacer la zone d'impression
en fonction du nombre d'étiquettes encore disponibles sur la feuille.
Colle ceci dans ton état...
Option Compare Database Option Explicit
Public intToSkip As Integer Public intSkipped As Integer
' Propriété de la zone Détail - Événement "Sur impression" Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) If intSkipped < intToSkip Then Me.NextRecord = False Me.PrintSection = False intSkipped = intSkipped + 1 End If End Sub
' Propriété de l'état - Événement "Sur ouverture" Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize Dim intEttiket As String, msg As String msg = "Si vous voulez laisser des étiquettes vides en début de page:" & vbCrLf & vbCrLf & _
"|=> Entrez le nombre d'étiquettes vides s.v.pl."
intEttiket = inputbox(msg, "Attention")
If IsNull(intEttiket) Then Cancel = True Else intToSkip = Val(intEttiket) End If End Sub
Ok ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Jean Martin
Bonjour ou bonsoir,
Je viens de terminer un essai chez moi. Après bien des hésitations sur la façon de "coller" j'ai réussi à mettre les choses en place et ça a l'air de fonctionner. Je demande d'imprimer l'étiquette à la 5ème place de la feuille et c'est ce qu'il fait !!!
Merci pour la satisfaction offerte,
Jean
"3stone" a écrit dans le message de news:3fbd4f02$0$16852$
Salut,
Colle ceci dans ton état...
Option Compare Database Option Explicit
Public intToSkip As Integer Public intSkipped As Integer
' Propriété de la zone Détail - Événement "Sur impression" Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) If intSkipped < intToSkip Then Me.NextRecord = False Me.PrintSection = False intSkipped = intSkipped + 1 End If End Sub
' Propriété de l'état - Événement "Sur ouverture" Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize Dim intEttiket As String, msg As String msg = "Si vous voulez laisser des étiquettes vides en début de page:" & vbCrLf & vbCrLf & _
"|=> Entrez le nombre d'étiquettes vides s.v.pl."
intEttiket = inputbox(msg, "Attention")
If IsNull(intEttiket) Then Cancel = True Else intToSkip = Val(intEttiket) End If End Sub
Ok ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Bonjour ou bonsoir,
Je viens de terminer un essai chez moi. Après bien des hésitations sur la
façon de "coller" j'ai réussi à mettre les choses en place et ça a l'air de
fonctionner. Je demande d'imprimer l'étiquette à la 5ème place de la feuille
et c'est ce qu'il fait !!!
Merci pour la satisfaction offerte,
Jean
"3stone" <3stone@skynet.be> a écrit dans le message de
news:3fbd4f02$0$16852$ba620e4c@reader3.news.skynet.be...
Salut,
Colle ceci dans ton état...
Option Compare Database
Option Explicit
Public intToSkip As Integer
Public intSkipped As Integer
' Propriété de la zone Détail - Événement "Sur impression"
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
If intSkipped < intToSkip Then
Me.NextRecord = False
Me.PrintSection = False
intSkipped = intSkipped + 1
End If
End Sub
' Propriété de l'état - Événement "Sur ouverture"
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
Dim intEttiket As String, msg As String
msg = "Si vous voulez laisser des étiquettes vides en début de page:" &
vbCrLf & vbCrLf & _
"|=> Entrez le nombre d'étiquettes vides s.v.pl."
intEttiket = inputbox(msg, "Attention")
If IsNull(intEttiket) Then
Cancel = True
Else
intToSkip = Val(intEttiket)
End If
End Sub
Ok ?
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Je viens de terminer un essai chez moi. Après bien des hésitations sur la façon de "coller" j'ai réussi à mettre les choses en place et ça a l'air de fonctionner. Je demande d'imprimer l'étiquette à la 5ème place de la feuille et c'est ce qu'il fait !!!
Merci pour la satisfaction offerte,
Jean
"3stone" a écrit dans le message de news:3fbd4f02$0$16852$
Salut,
Colle ceci dans ton état...
Option Compare Database Option Explicit
Public intToSkip As Integer Public intSkipped As Integer
' Propriété de la zone Détail - Événement "Sur impression" Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) If intSkipped < intToSkip Then Me.NextRecord = False Me.PrintSection = False intSkipped = intSkipped + 1 End If End Sub
' Propriété de l'état - Événement "Sur ouverture" Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize Dim intEttiket As String, msg As String msg = "Si vous voulez laisser des étiquettes vides en début de page:" & vbCrLf & vbCrLf & _
"|=> Entrez le nombre d'étiquettes vides s.v.pl."
intEttiket = inputbox(msg, "Attention")
If IsNull(intEttiket) Then Cancel = True Else intToSkip = Val(intEttiket) End If End Sub
Ok ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
3stone
Salut,
"Jean Martin"
Je viens de terminer un essai chez moi. Après bien des hésitations sur la façon de "coller" j'ai réussi à mettre les choses en place
Les "en-têtes" désignait pourtant clairement les sub concernées ;-)
et ça a l'air de fonctionner.
Pas seulement l'air... je m'en sert plusieurs fois par semaine sans jamais de problème.
Merci pour la satisfaction offerte,
Merci pour le retour...
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Salut,
"Jean Martin"
Je viens de terminer un essai chez moi. Après bien des hésitations sur la
façon de "coller" j'ai réussi à mettre les choses en place
Les "en-têtes" désignait pourtant clairement les sub concernées ;-)
et ça a l'air de fonctionner.
Pas seulement l'air... je m'en sert plusieurs fois par semaine
sans jamais de problème.
Merci pour la satisfaction offerte,
Merci pour le retour...
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Je viens de terminer un essai chez moi. Après bien des hésitations sur la façon de "coller" j'ai réussi à mettre les choses en place
Les "en-têtes" désignait pourtant clairement les sub concernées ;-)
et ça a l'air de fonctionner.
Pas seulement l'air... je m'en sert plusieurs fois par semaine sans jamais de problème.
Merci pour la satisfaction offerte,
Merci pour le retour...
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Jean Martin
Bonjour Pierre,
Mes hésitations: je veux dire que dans un premier temps, comme je suis très novice en VBA, j'ai simplement recopié ton texte dans un module pour constater ensuite qu'il ne fonctionnait pas. Normal: je n'avais aucune liaison entre le texte et mon état! Ce n'est qu'après réflexion que j'ai compris tes deux "en-têtes".
Lorsque je disais 'ça avait l'air de fonctionner', c'est que je l'avais testé chez moi. Je suis aller l'implémenter aujourd'hui au bureau: et je dis "Ca marche!". Merci
Il me vient maintenant l'idée qu'il m'arrive de devoir faire deux ou plusieurs, ... étiquettes pour un même client. Pourrais-tu complèter le code dans ce sens.
Merci d'avance,
Jean
"3stone" a écrit dans le message de news:3fbfd58a$0$28304$
Salut,
"Jean Martin"
Je viens de terminer un essai chez moi. Après bien des hésitations sur la
façon de "coller" j'ai réussi à mettre les choses en place
Les "en-têtes" désignait pourtant clairement les sub concernées ;-)
et ça a l'air de fonctionner.
Pas seulement l'air... je m'en sert plusieurs fois par semaine sans jamais de problème.
Merci pour la satisfaction offerte,
Merci pour le retour...
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Bonjour Pierre,
Mes hésitations: je veux dire que dans un premier temps, comme je suis très
novice en VBA, j'ai simplement recopié ton texte dans un module pour
constater ensuite qu'il ne fonctionnait pas. Normal: je n'avais aucune
liaison entre le texte et mon état!
Ce n'est qu'après réflexion que j'ai compris tes deux "en-têtes".
Lorsque je disais 'ça avait l'air de fonctionner', c'est que je l'avais
testé chez moi. Je suis aller l'implémenter aujourd'hui au bureau: et je dis
"Ca marche!". Merci
Il me vient maintenant l'idée qu'il m'arrive de devoir faire deux ou
plusieurs, ... étiquettes pour un même client. Pourrais-tu complèter le
code dans ce sens.
Merci d'avance,
Jean
"3stone" <3stone@skynet.be> a écrit dans le message de
news:3fbfd58a$0$28304$ba620e4c@reader1.news.skynet.be...
Salut,
"Jean Martin"
Je viens de terminer un essai chez moi. Après bien des hésitations sur
la
façon de "coller" j'ai réussi à mettre les choses en place
Les "en-têtes" désignait pourtant clairement les sub concernées ;-)
et ça a l'air de fonctionner.
Pas seulement l'air... je m'en sert plusieurs fois par semaine
sans jamais de problème.
Merci pour la satisfaction offerte,
Merci pour le retour...
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Mes hésitations: je veux dire que dans un premier temps, comme je suis très novice en VBA, j'ai simplement recopié ton texte dans un module pour constater ensuite qu'il ne fonctionnait pas. Normal: je n'avais aucune liaison entre le texte et mon état! Ce n'est qu'après réflexion que j'ai compris tes deux "en-têtes".
Lorsque je disais 'ça avait l'air de fonctionner', c'est que je l'avais testé chez moi. Je suis aller l'implémenter aujourd'hui au bureau: et je dis "Ca marche!". Merci
Il me vient maintenant l'idée qu'il m'arrive de devoir faire deux ou plusieurs, ... étiquettes pour un même client. Pourrais-tu complèter le code dans ce sens.
Merci d'avance,
Jean
"3stone" a écrit dans le message de news:3fbfd58a$0$28304$
Salut,
"Jean Martin"
Je viens de terminer un essai chez moi. Après bien des hésitations sur la
façon de "coller" j'ai réussi à mettre les choses en place
Les "en-têtes" désignait pourtant clairement les sub concernées ;-)
et ça a l'air de fonctionner.
Pas seulement l'air... je m'en sert plusieurs fois par semaine sans jamais de problème.
Merci pour la satisfaction offerte,
Merci pour le retour...
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
3stone
Salut,
"Jean Martin"
Il me vient maintenant l'idée qu'il m'arrive de devoir faire deux ou plusieurs, ... étiquettes pour un même client. Pourrais-tu complèter le code dans ce sens.
Il te faut quelque part, un champ dans lequel tu indique le nombre d'étiquettes souhaitées pour ce client...
Ensuite... (réponse donnée le 20 de ce mois ;-)
- Crée un table "Compteur" avec un seul champ numérique "xLabel". Crée un trentaine d'enregistrements avec les valeurs de 1 à 30 (en fait, selon le nombre de duplicata possible)
- Crée ta requête avec tous les champs pour les étiquettes ( y compris le champ qui mémorise le nombre d'étiquettes souhaitées)
- Ajoue à cette requête la table "Compteur" SANS la lier et son champ "xLabel" Comme critère sous le champ "xLabel" tu mets:
< [TonChampNombreEtiquette]
ca marche ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Salut,
"Jean Martin"
Il me vient maintenant l'idée qu'il m'arrive de devoir faire deux ou
plusieurs, ... étiquettes pour un même client. Pourrais-tu complèter le
code dans ce sens.
Il te faut quelque part, un champ dans lequel tu indique le nombre d'étiquettes souhaitées pour ce
client...
Ensuite... (réponse donnée le 20 de ce mois ;-)
- Crée un table "Compteur" avec un seul champ numérique "xLabel".
Crée un trentaine d'enregistrements avec les valeurs de 1 à 30
(en fait, selon le nombre de duplicata possible)
- Crée ta requête avec tous les champs pour les étiquettes
( y compris le champ qui mémorise le nombre d'étiquettes souhaitées)
- Ajoue à cette requête la table "Compteur" SANS la lier et son champ "xLabel"
Comme critère sous le champ "xLabel" tu mets:
< [TonChampNombreEtiquette]
ca marche ?
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Il me vient maintenant l'idée qu'il m'arrive de devoir faire deux ou plusieurs, ... étiquettes pour un même client. Pourrais-tu complèter le code dans ce sens.
Il te faut quelque part, un champ dans lequel tu indique le nombre d'étiquettes souhaitées pour ce client...
Ensuite... (réponse donnée le 20 de ce mois ;-)
- Crée un table "Compteur" avec un seul champ numérique "xLabel". Crée un trentaine d'enregistrements avec les valeurs de 1 à 30 (en fait, selon le nombre de duplicata possible)
- Crée ta requête avec tous les champs pour les étiquettes ( y compris le champ qui mémorise le nombre d'étiquettes souhaitées)
- Ajoue à cette requête la table "Compteur" SANS la lier et son champ "xLabel" Comme critère sous le champ "xLabel" tu mets:
< [TonChampNombreEtiquette]
ca marche ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Jean Martin
Salut
Ca marche ! Mais j'ai dû commencer le compteur par 0 au lieu de 1 car lorsque je demandais 2 copies il ne m'en donnait qu'une. Et puis j'ai dû m'y reprendre à deux fois: j'ignore pourquoi, à un certain moment il se mettait à créer les colonnes verticalement et sur une seule colonne, sans que je parvienne à comprendre pourquoi.
A+
Jean
"3stone" a écrit dans le message de news:3fc13d0d$0$28316$
Salut,
"Jean Martin"
Il me vient maintenant l'idée qu'il m'arrive de devoir faire deux ou plusieurs, ... étiquettes pour un même client. Pourrais-tu complèter le code dans ce sens.
Il te faut quelque part, un champ dans lequel tu indique le nombre d'étiquettes souhaitées pour ce
client...
Ensuite... (réponse donnée le 20 de ce mois ;-)
- Crée un table "Compteur" avec un seul champ numérique "xLabel". Crée un trentaine d'enregistrements avec les valeurs de 1 à 30 (en fait, selon le nombre de duplicata possible)
- Crée ta requête avec tous les champs pour les étiquettes ( y compris le champ qui mémorise le nombre d'étiquettes souhaitées)
- Ajoue à cette requête la table "Compteur" SANS la lier et son champ "xLabel"
Comme critère sous le champ "xLabel" tu mets:
< [TonChampNombreEtiquette]
ca marche ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Salut
Ca marche ! Mais j'ai dû commencer le compteur par 0 au lieu de 1 car
lorsque je demandais 2 copies il ne m'en donnait qu'une. Et puis j'ai dû m'y
reprendre à deux fois: j'ignore pourquoi, à un certain moment il se mettait
à créer les colonnes verticalement et sur une seule colonne, sans que je
parvienne à comprendre pourquoi.
A+
Jean
"3stone" <3stone@skynet.be> a écrit dans le message de
news:3fc13d0d$0$28316$ba620e4c@reader1.news.skynet.be...
Salut,
"Jean Martin"
Il me vient maintenant l'idée qu'il m'arrive de devoir faire deux ou
plusieurs, ... étiquettes pour un même client. Pourrais-tu complèter le
code dans ce sens.
Il te faut quelque part, un champ dans lequel tu indique le nombre
d'étiquettes souhaitées pour ce
client...
Ensuite... (réponse donnée le 20 de ce mois ;-)
- Crée un table "Compteur" avec un seul champ numérique "xLabel".
Crée un trentaine d'enregistrements avec les valeurs de 1 à 30
(en fait, selon le nombre de duplicata possible)
- Crée ta requête avec tous les champs pour les étiquettes
( y compris le champ qui mémorise le nombre d'étiquettes souhaitées)
- Ajoue à cette requête la table "Compteur" SANS la lier et son champ
"xLabel"
Comme critère sous le champ "xLabel" tu mets:
< [TonChampNombreEtiquette]
ca marche ?
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Ca marche ! Mais j'ai dû commencer le compteur par 0 au lieu de 1 car lorsque je demandais 2 copies il ne m'en donnait qu'une. Et puis j'ai dû m'y reprendre à deux fois: j'ignore pourquoi, à un certain moment il se mettait à créer les colonnes verticalement et sur une seule colonne, sans que je parvienne à comprendre pourquoi.
A+
Jean
"3stone" a écrit dans le message de news:3fc13d0d$0$28316$
Salut,
"Jean Martin"
Il me vient maintenant l'idée qu'il m'arrive de devoir faire deux ou plusieurs, ... étiquettes pour un même client. Pourrais-tu complèter le code dans ce sens.
Il te faut quelque part, un champ dans lequel tu indique le nombre d'étiquettes souhaitées pour ce
client...
Ensuite... (réponse donnée le 20 de ce mois ;-)
- Crée un table "Compteur" avec un seul champ numérique "xLabel". Crée un trentaine d'enregistrements avec les valeurs de 1 à 30 (en fait, selon le nombre de duplicata possible)
- Crée ta requête avec tous les champs pour les étiquettes ( y compris le champ qui mémorise le nombre d'étiquettes souhaitées)
- Ajoue à cette requête la table "Compteur" SANS la lier et son champ "xLabel"
Comme critère sous le champ "xLabel" tu mets:
< [TonChampNombreEtiquette]
ca marche ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
3stone
Salut,
"Jean Martin"
Ca marche ! Mais j'ai dû commencer le compteur par 0 au lieu de 1 car lorsque je demandais 2 copies il ne m'en donnait qu'une.
Zut... mes excuses... ;-)
c'était bien sûr : <= [TonChampNombreEtiquette]
(plus petit ou égal à .... )
Et puis j'ai dû m'y reprendre à deux fois: j'ignore pourquoi, à un certain moment il se mettait à créer les colonnes verticalement et sur une seule colonne, sans que je parvienne à comprendre pourquoi.
Pour cela, regarde le menu Fichier, Mise en page, onglet Colonnes Nombre de colonnes 2 ou + et tout en bas... Format des colonnes
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Salut,
"Jean Martin"
Ca marche ! Mais j'ai dû commencer le compteur par 0 au lieu de 1 car
lorsque je demandais 2 copies il ne m'en donnait qu'une.
Zut... mes excuses... ;-)
c'était bien sûr : <= [TonChampNombreEtiquette]
(plus petit ou égal à .... )
Et puis j'ai dû m'y
reprendre à deux fois: j'ignore pourquoi, à un certain moment il se mettait
à créer les colonnes verticalement et sur une seule colonne, sans que je
parvienne à comprendre pourquoi.
Pour cela, regarde le menu Fichier, Mise en page, onglet Colonnes
Nombre de colonnes 2 ou +
et tout en bas... Format des colonnes
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Ca marche ! Mais j'ai dû commencer le compteur par 0 au lieu de 1 car lorsque je demandais 2 copies il ne m'en donnait qu'une.
Zut... mes excuses... ;-)
c'était bien sûr : <= [TonChampNombreEtiquette]
(plus petit ou égal à .... )
Et puis j'ai dû m'y reprendre à deux fois: j'ignore pourquoi, à un certain moment il se mettait à créer les colonnes verticalement et sur une seule colonne, sans que je parvienne à comprendre pourquoi.
Pour cela, regarde le menu Fichier, Mise en page, onglet Colonnes Nombre de colonnes 2 ou + et tout en bas... Format des colonnes
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
hm15
Bonjour Jean,
pour le changement de mise en colonne "intempestif", as-tu Access 2000 tout court ou 2000 SR1 (ou SP3) ? Si tu perds la mise en page après sauvegarde, tu as la première version d'Access 2000. Télécharge la mise à jour chez Microsoft (gratuite). En attendant, tu peux t'en sortir ainsi : - menu Outils | Options, onglet [Général] - désactive l'option "Suivi informations correction automatique"
"Jean Martin" a écrit dans le message de news: L%uwb.42276$
Salut
Ca marche ! Mais j'ai dû commencer le compteur par 0 au lieu de 1 car lorsque je demandais 2 copies il ne m'en donnait qu'une. Et puis j'ai dû m'y
reprendre à deux fois: j'ignore pourquoi, à un certain moment il se mettait
à créer les colonnes verticalement et sur une seule colonne, sans que je parvienne à comprendre pourquoi.
A+
Jean [...]
Bonjour Jean,
pour le changement de mise en colonne "intempestif", as-tu Access 2000 tout
court ou 2000 SR1 (ou SP3) ?
Si tu perds la mise en page après sauvegarde, tu as la première version
d'Access 2000.
Télécharge la mise à jour chez Microsoft (gratuite).
En attendant, tu peux t'en sortir ainsi :
- menu Outils | Options, onglet [Général]
- désactive l'option "Suivi informations correction automatique"
pour le changement de mise en colonne "intempestif", as-tu Access 2000 tout court ou 2000 SR1 (ou SP3) ? Si tu perds la mise en page après sauvegarde, tu as la première version d'Access 2000. Télécharge la mise à jour chez Microsoft (gratuite). En attendant, tu peux t'en sortir ainsi : - menu Outils | Options, onglet [Général] - désactive l'option "Suivi informations correction automatique"
"Jean Martin" a écrit dans le message de news: L%uwb.42276$
Salut
Ca marche ! Mais j'ai dû commencer le compteur par 0 au lieu de 1 car lorsque je demandais 2 copies il ne m'en donnait qu'une. Et puis j'ai dû m'y
reprendre à deux fois: j'ignore pourquoi, à un certain moment il se mettait
à créer les colonnes verticalement et sur une seule colonne, sans que je parvienne à comprendre pourquoi.
A+
Jean [...]
Jean Martin
Bonsoir Annette,
J'utilise MS Office2000 Praemium
Merci en tout cas pour le tuyau
Jean
"hm15" a écrit dans le message de news:u$
Bonjour Jean,
pour le changement de mise en colonne "intempestif", as-tu Access 2000 tout
court ou 2000 SR1 (ou SP3) ? Si tu perds la mise en page après sauvegarde, tu as la première version d'Access 2000. Télécharge la mise à jour chez Microsoft (gratuite). En attendant, tu peux t'en sortir ainsi : - menu Outils | Options, onglet [Général] - désactive l'option "Suivi informations correction automatique"
"Jean Martin" a écrit dans le message de news: L%uwb.42276$
Salut
Ca marche ! Mais j'ai dû commencer le compteur par 0 au lieu de 1 car lorsque je demandais 2 copies il ne m'en donnait qu'une. Et puis j'ai dû m'y
reprendre à deux fois: j'ignore pourquoi, à un certain moment il se mettait
à créer les colonnes verticalement et sur une seule colonne, sans que je parvienne à comprendre pourquoi.
A+
Jean [...]
Bonsoir Annette,
J'utilise MS Office2000 Praemium
Merci en tout cas pour le tuyau
Jean
"hm15" <hm15@no-horizon-micro.com> a écrit dans le message de
news:u$k9hOysDHA.3496@TK2MSFTNGP11.phx.gbl...
Bonjour Jean,
pour le changement de mise en colonne "intempestif", as-tu Access 2000
tout
court ou 2000 SR1 (ou SP3) ?
Si tu perds la mise en page après sauvegarde, tu as la première version
d'Access 2000.
Télécharge la mise à jour chez Microsoft (gratuite).
En attendant, tu peux t'en sortir ainsi :
- menu Outils | Options, onglet [Général]
- désactive l'option "Suivi informations correction automatique"
pour le changement de mise en colonne "intempestif", as-tu Access 2000 tout
court ou 2000 SR1 (ou SP3) ? Si tu perds la mise en page après sauvegarde, tu as la première version d'Access 2000. Télécharge la mise à jour chez Microsoft (gratuite). En attendant, tu peux t'en sortir ainsi : - menu Outils | Options, onglet [Général] - désactive l'option "Suivi informations correction automatique"
