dessiner un X sur un rapport à l'exécution

Question

est-il possible dans l'accès 2007 de dessiner un X pendant l'exécution à un point spécifié sur le rapport pendant l'exécution?

Answer 1

Vous pouvez regarder dans la méthode de ligne pour tracer des lignes sur les rapports. Il est difficile de trouver l'aide pour cela - le plus simple est d'ouvrir le VBE, tapez "line" dans la fenêtre immédiate, appuyez sur F1 pour l'aide, puis choisissez le choix de la ligne d'accès (pas VBA ou Line (objet)).

Ceci vous permet de spécifier une ligne avec des coordonnées x/y.

Cependant, c'est la partie facile.

Déterminer ce que x et y devraient être n'est pas trivial si vous dessinez quelque chose dans l'une des zones imprimables d'un rapport, en particulier pour les zones qui peuvent être redimensionnées au moment du formatage. Je n'ai jamais utilisé cela sauf pour dessiner des lignes verticales dans des sous-rapports dont la hauteur est variable, donc je ne peux pas vraiment donner de conseils utiles à ce sujet. Mais vous pouvez expérimenter et voir.

Je suggèrerais, cependant, que vous utilisez peut-être les mauvais outils si vous pensez que vous devez le faire de cette façon. Afficher un X peut être aussi simple que de créer une étiquette avec X comme légende, puis de contrôler la propriété visible en fonction des critères testés lors de l'exécution.

Answer 2

Eh bien, je ne suis pas Fenton mais je vais lui donner un coup! Voici un exemple de code d'un rapport qui fait partie d'un système de test à choix multiples, il met une croix si vous obtenez la réponse fausse et une coche si vous l'obtenez correctement, ohh et un drapeau si vous l'obtenez partie droite

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) 
Me.imgCross.Visible = False 
Me.imgFlag.Visible = False 
Me.imgTick.Visible = False 
Select Case Me.txtMax_score - Me.txtAnswer_value 
    Case 0 
     'user got the question 100% right, show the tick image 
     Me.imgTick.Visible = True 
    Case Is = Me.txtMax_score 
     'user got the question completely wrong show the cross image 
     Me.imgCross.Visible = True 
    Case Else 
     'not 100% right but not completly wrong, show the flag 
     Me.imgFlag.Visible = True 
End Select 
End Sub 

les images ou tout simplement des images normales, qui sont cachés par le code et sont simplement empilés les uns sur les autres