Bonjour
je veux réaliser les boutons de commandes comme ci-dessus sur un formulaire afin de bouger les contrôles d'un Etat précis en une fois (zones de textes) soit a gauche, droite, haut ou bas
y a t'il une truc pour faire cela?
Merci
Bonjour
je veux réaliser les boutons de commandes comme ci-dessus sur un formulaire afin de bouger les contrôles d'un Etat précis en une fois (zones de textes) soit a gauche, droite, haut ou bas
y a t'il une truc pour faire cela?
Merci
Bonjour,
Avec un peu de VBA, ça doit y faire !
Comment déterminer l'état ?
Est-il déjà ouvert au moment où tu veux intervenir ?
Déplacer de combien de twips ?
----
Merci de votre intervention
* non il n'est pas ouvert au moment où je veux intervenir
* pour la deuxième question quand je clique sur bouton droit par exemple les contrôles se déplacent d'un twips à droite et si je reclique une autre fois il se déplacent encore d'un autre twips a droite, et ainsi de suite et de même pour tous les boutons de direction.
et si possible j'aimerai avoir un autre bouton de commande qui sera nommé "par défaut" et qui permet de retourner tous le contrôles a son position initiale
J'ignore dans quel contexte tu veux faire cela.
Si tu veux pouvoir revenir à la situation initiale, il serait peut-être préférable de prendre d'abord une copie de l'état.
Comment réagir lorsque le déplacement d'un contrôle n'est plus possible, alors que d'autres ont déjà pu être déplacés ?
J'ignore dans quel contexte tu veux faire cela.
Si tu veux pouvoir revenir à la situation initiale, il serait peut-être préférable de prendre d'abord une copie de l'état.
Comment réagir lorsque le déplacement d'un contrôle n'est plus possible, alors que d'autres ont déjà pu être déplacés ?
---
Merci encore de votre intervention
et voila quelques éclaircissement a propos de vos interrogations
dans quel contexte, ça veut dire quel est mon but?
j'ai des formulaires papiers que j’insère à l'imprimante pour remplir les zones vides via un Etat relié à un formulaire dont je taperai les renseignements,
chaque mois je reçois des paquets de ces formulaires qui sont conçu par un magasin de rizographie, le problème c'est que les formulaires ne sont pas toujours identiques, et donc pour faire bien imprimer les champs d’État sur les zones vides du formulaire papier, il faut entrer à l'Etat concerne et faire mover les champs soit en haut ou en bas...
Moi je sais faire cela, mais l'agent qui travaille sur l'application veut lui faciliter la tache, et faire mover les champs directement sur la fenetre d'application formulaire de saisie
je souhaite que mes propos soit compréhensible par vous, malgré mon bas niveau en français
et pour la question "Comment réagir lorsque le déplacement d'un contrôle n'est plus possible, alors que d'autres ont déjà pu être déplacés ?" en faite j'ai pas compris cette question.
Pas de souci, ton niveau en français est très bon !je souhaite que mes propos soient compréhensibles par vous, malgré mon bas niveau en français
Imagine qu'il faut tout déplacer vers la droite.Comment réagir lorsque le déplacement d'un contrôle n'est plus possible, alors que d'autres ont déjà pu être déplacés ?
Le programme auquel je pense consiste à considérer chaque contrôle, l'un après l'autre, et à le déplacer vers la droite.
Il se pourrait qu'en traitant le énième, on constate qu'il est déjà contre le bord droit, Access va alors signaler une erreur et s'arrêter si on ne prévoit rien.
Ai-je bien compris ce que tu veux faire :
- l'opérateur fait un essai avec un seul formulaire ;
- il constate qu'il faudrait décaler vers la droite ;
- il estime le décalage nécessaire à 5 pixels ;
- il clique 5 X sur la flèche vers droite ;
- il refait une tentative avec le programme modifié ;
- il constate alors que c'est maintenant un peu trop à droite ;
- il clique 1 X sur la flèche vers gauche ;
- il refait une tentative avec le programme modifié ;
- c'est OK ;
- il lance le processus d'impression.
----
Merci de vos interventions,
vous avez bien compris quasiment tous ce que je cible
la question : "Comment réagir lorsque le déplacement d'un contrôle n'est plus possible, alors que d'autres ont déjà pu être déplacés ?"
maintenant j' l'ai compris bien
alors quand j'appui sur le bouton droite et un contrôle de l'Etat atteint la limite de bord de la page, alors là j'aimerai que tous s’arrête là, ou bien un Msgbox apparaît et signale que le bord limite droite et atteint
et bien évidement, quand j'appui sur un bouton de direction j'aimerai que tous les contrôles de l’État se déplacent en un tout.
---
oui l’opérateur essai d'imprimer une page deux pages ou trois pour voir est ce que les champs de l’État s’impriment exactement sur les champs vides de papier formulaire
c'est bien essayé
il peut alors mettre la rame de formulaires en question dans le support papier de l'imprimante et travaille alors tranquillement, là il peut lancer des impressions sans souci et bon placement des enregistrements sur papiers
Imagine que l'ajustement est OK.
Que va-t-il se passer ensuite ?
En d'autres mots, que faut-il faire avec la version ajustée ?
Imagine que l'ajustement est OK.
Que va-t-il se passer ensuite ?
En d'autres mots, que faut-il faire avec la version ajustée ?
---
alors l'ajustement est ok, que va-t-il se passer ensuite
la réponse c'est rien
je veux que la dernière ajustement réalisé soit fixe sur Etat en question
et bien sur y a d'autres contrôles ( bouton de commandes, zone de texte, liste déroulante, numéro auto) sur le formulaire de saisie en question
alors c'est l'ajustement est ok ==> je fais des impressions avec boutons "Imprimer"
la voici
oui une seule page
Merci ClaudeLELOUP
j’attendrai votre solution
Un peu plus long que je croyais, mais voici :
La db qui m'a servi de test est ici : http://claudeleloup.developpez.com/%...7Ramine123.mdb
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70 Option Compare Database Option Explicit Private Sub Form_Open(Cancel As Integer) On Error GoTo GestionErreurs 'Prendre une copie de l'état original au cas où DoCmd.CopyObject , "eCopie", acReport, "eOriginal" GestionErreurs: Select Case Err.Number Case 0 'pas d'erreur Exit Sub Case 2501 'on ne veut pas de nouvelle copie Resume Next Case Else MsgBox "Erreur dans Form_Open N° " & Err.Number & " " & Err.Description End Select End Sub Private Sub Gauche_Click() Call Decaler(Me.ActiveControl.Name) End Sub Private Sub Haut_Click() Call Decaler(Me.ActiveControl.Name) End Sub Private Sub Bas_Click() Call Decaler(Me.ActiveControl.Name) End Sub Private Sub Droite_Click() Call Decaler(Me.ActiveControl.Name) End Sub Public Sub Decaler(Direction As String) On Error GoTo GestionErreurs Dim oCtl As Control 'Ouvrir eOriginal en mode construction DoCmd.OpenReport "eOriginal", acViewDesign 'Déplacer les contrôles Select Case Direction Case "Gauche" For Each oCtl In Reports!eOriginal.Controls Reports!eOriginal(oCtl.Name).Left = Reports!eOriginal(oCtl.Name).Left - Me.txtCombien * 56.69 Next oCtl Case "Droite" For Each oCtl In Reports!eOriginal.Controls Reports!eOriginal(oCtl.Name).Left = Reports!eOriginal(oCtl.Name).Left + Me.txtCombien * 56.69 Next oCtl Case "Haut" For Each oCtl In Reports!eOriginal.Controls Reports!eOriginal(oCtl.Name).Top = Reports!eOriginal(oCtl.Name).Top - Me.txtCombien * 56.69 Next oCtl Case "Bas" For Each oCtl In Reports!eOriginal.Controls Reports!eOriginal(oCtl.Name).Top = Reports!eOriginal(oCtl.Name).Top + Me.txtCombien * 56.69 Next oCtl End Select DoCmd.Save acReport, "eOriginal" DoCmd.OpenReport "eOriginal", acViewPreview GestionErreurs: Select Case Err.Number Case 0 ' pas d'erreur Case 2100 'pas assez d'espace MsgBox "Ce décalage n'est pas possible !", vbCritical DoCmd.Close acReport, "eOriginal" Case Else MsgBox "Erreur dans Decaler N° " & Err.Number & " " & Err.Description End Select End Sub
Merci de votre effort
je vais l'essayé, et après je te réponds si fonctionne ou non
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager