Bonsoir,
Encore à l'état larvaire sur VBA, je m'essaie actuellement sur l'évènement suivant et malgré plusieurs heures de recherche je n'ai toujours pas trouvé !
Voici ce que j'essaie de faire :
Après la mise à jour de la valeur d'un contrôle du formulaire en cours, une procédure se lance uniquement si la valeur de ce dernier est strictement supérieure à 0. Une boite de dialogue alors apparait obligeant la saisie obligatoire d'un commentaire (texte, 255 caractères), dont la valeur ira se loger dans le champ correspondant du formulaire principal. Cela parait absurde mais je n'ai plus aucune place dispo. sur le formulaire et il s'agit de commentaires à saisir...et la palabre ça prend trop de place
J'ai bien trouvé une possibilité avec InputBox sauf que c'est moins conviviale qu'un formulaire "sur mesure", pas de place pour visualiser un texte d'un max de 255 c. :
Je me suis également lancer sur une autre mais qui me génère des erreurs :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub PointsExceptionnelsCE_() Dim ComCE As String If Me![PointsExceptionnelsCE].Value > 0 Then ComCE = inputbox("Vous venez d'attribuer des points exceptionnels,saisissez votre commentaire : ", "ATTENTION ! SAISIE OBLIGATOIRE !") Me![CommentairesPointsExcep] = ComCE End If End Sub
Je n'ai pas encore réfléchi à la meilleure façon de visualiser ces commentaires une fois saisis...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub PointsExceptionnelsCE_AfterUpdate() Dim stFormAttrib As String stFormAttrib = "ATTRIBUTIONS POINTS EXCEPTIONNELS" sttxtComExCE = "ComExCE" If Me![PointsExceptionnelsCE].Value > 0 Then DoCmd.OpenForm stFormAttrib, , , , , acDialog ?????????? End If End Sub
Quelqu'un aurait-il la bonté de bien vouloir m'aider ?
Votre Obligée
Partager