Bonjour,
Voila mon soucis.
J'ai un ruban dans un formulaire Access.
Dessus une combobox alimentée manuellement.
1 2 3 4 5 6
| <comboBox id="me_impression" label="Impression" onChange="on_Change_me" getText="gettext_impression">
<div style="margin-left:40px"> <item id="me_imp1" label="Quantitatif"/>
<item id="me_imp2" label="Pose"/>
<item id="me_imp3" label="Liste des nomenclatures"/>
<item id="me_imp4" label="Liste des nomenclatures à expedier"/>
<item id="me_imp5" label="disponibilité stock des métrés"/></div></comboBox> |
Les labels sont des intitulé de rapports Access.
Donc avec la fonction (on_Change_me) ca me permet de lancer l'impression des états.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Public Sub on_Change_me(ByVal CONTROL As IRibbonControl, text As String)
Select Case CONTROL.Id
Case "me_impression"
mon_rapport = text
Ri_ruban_metre.InvalidateControl "me_impression"
start = Timer
Do While Timer < start + 1
DoEvents ' Donne le contrôle à d'autres processus.
Loop
If Nz(Trim(text)) = vbNullString Then
Exit Sub
Else
Call Forms("fr_gpMETRE").impression(mon_rapport)
End If
Exit Sub
end select
end sub |
Avec la fonction (gettext_impression) je remet a blanc le label de la combobox
1 2 3
| Sub gettext_impression(CONTROL As IRibbonControl, ByRef text)
text = ""
End Sub |
Sur la version Access 2010 ca fonctionnais bien.
Depuis la version Access 2013 ca ne fonctionne plus.
Quand je mets en commentaire
' Call Forms("fr_gpMETRE").impression(mon_rapport)
la combobox est bien mise à blanc mais l'impression du rapport perturbe la fonction InvalidateControl
Si quelqu'un à déjà rencontrer le problème ou si quelqu'un à une idée pour lancer les rapports à partir d'un ruban.
Sachant que parfois il y a beaucoup de rapports dans un formulaire.
Cordialement
Partager