Question : Bouton par radio centrant dans le rapport d'accès

Réponse : Bouton par radio centrant dans le rapport d'accès

Je conviens, les boutons par radio suis laid une fois imprimé. Solutions de rechange :

 • Using des symboles dans la propriété de format d'une expression oui/non,
 • using des images (plus complexes),
 • traçant les cercles suivre la méthode de Me.Circle,
 • refrain des boutons par radio d'impression.

Pour la première solution, essai pour trouver deux symboles dans les polices disponibles qui pourraient passer pour le cercle vide et le cercle rempli. Si vous trouvez quelque chose vous aimez, nous pouvez te montrer comment les employer dans une boîte des textes liée à une expression basée sur votre champ.

Je peux comprendre l'idée d'imprimer quelque chose qui ressemble et se sent à la forme à l'écran, mais elle regarderait bien mieux avec une disposition plus traditionnelle.

Par exemple, définir « oui » ou « non », copie seulement l'option qui est choisie, etc. Vous pouvez également placer un rectangle autour de l'article choisi, "BOLD" lui et gris dehors l'autre, ou couleurs d'utilisation selon la destination définitive du rapport.
__________________

Le code au-dessous des instruments la deuxième idée : using Me.Circle. C'est le module entier d'un rapport : la fonction OldRadio tracera les cercles pour imiter les boutons d'option. Pour que ceci travaille, rendre les boutons d'option invisibles ; la fonction emploiera la métrique de commande pour tracer un cercle de la taille choisie (rendre les boîtes des commandes plus grandes à de plus grands cercles d'aspiration). Puisque les boutons d'option sont invisibles, leurs étiquettes seront également. Vous devez détacher les étiquettes des commandes (coupé-collé sur les travaux de section bien).

L'appel est fait à partir de toutes les sections contenant des boutons d'option, l'exemple est pour la section de détail seulement.

Bonne chance !
(°v°)

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 :

Option explicite Fonction privée OldRadio (picoseconde comme [_SectionInReport]) Faible ctl comme commande Faible lngCX en tant que longtemps Faible lngCY en tant que longtemps Faible lngRad en tant que longtemps Pour chaque ctl dans la picoseconde. Commandes Si ctl.ControlType = puis acOptionButton lngCX = ctl. Gauche + ctl. Largeur/2 lngCY = ctl. Dessus + ctl. Taille/2 lngRad = ctl. Largeur/2 'cercle d'aspiration Me.FillStyle = 1 'transparent Me.Circle (lngCX, lngCY), lngRad Me.FillStyle = 0 'opaque Si ctl. La valeur = rectifient alors Me.FillColor = vbBlack Me.Circle (lngCX, lngCY), lngRad/2 Ctl d'ElseIf. Valeur = faux puis 'rien Autrement 'nulle Me.FillColor = RVB (153, 153, 153) Me.Circle (lngCX, lngCY), lngRad * 3/4, vbWhite Finir si Finir si Prochain ctl Fonction de fin Detail_Format secondaire privé (annulation comme nombre entier, FormatCount comme nombre entier) Détail d'OldRadio Sous-marin d'extrémité