eigene Ribbons und Buttons [ACC10]

01/02/2012 - 19:14 von Hubert Holler | Report spam
Ich verwende für meine Access2010 eine eigene Ribbonleiste.
Diese funktioniert auch ohne Probleme.

Jetzt wollte ich aber eine weiere VBA Funktion ausführen, wenn ich auf
einen Druckenbutton klicke eines Berichtes. Ich weiß aber leider nicht
wo ich dieses Ereignis ausführen kann.

Meine XML Datei für den Druckenbutton sieht wie folgt aus:

<group id="grpDrucken" label="Drucken" getVisible="GetVisible">
<button idMso="PrintDialogAccess" size="large"
label="Drucken"
tag="RibbonName:=;inMenu:=;CustomPicture:=;CustomPicturePath:=" />
<button idMso="PrintPreviewClose" size="large"
label="Vorschau schließen" imageMso="ProposeNewTime"
tag="RibbonName:=;inMenu:=;CustomPicture:=;CustomPicturePath:=" />
</group>


Meine Ereignisse der Buttons im VBA Code sieht wie folg aus:

Sub OnActionButton(control As IRibbonControl)
Select Case control.ID
Case "btnSuchen1"
DoCmd.OpenForm "frm_kunde_suche"
Case "btnNeu1"
DoCmd.OpenForm "frm_kunde"
DoCmd.GoToRecord , , acNewRec
end select
end sub

Bei normale Buttons funktioniert dies ohne Probleme.

Nur wie kann ich zusàtzlich auf ein Ereignis eines Durckbuttons wie
idMso="PrintDialogAccess" reagieren.

Ich habe da schon versucht im xml File eine id einzugeben. Das
funktioniert nicht. Auch habe ich im XML Feile am Ende
onAction="OnActionButton" eingefügt.

Leider wird dann beim Öffnen der Access Datenbank mein Ribbon nicht mehr
angezeigt.

Jetzt wollte ich fragen, ob dies überhaupt möglich ist, dass ich da
zusàtzlich ein Eregnis beim Drücken auf den Druckbutton einbauen kann
und wie ich dies dann durchführen könnte.

Vielen Dank für jede Antwort
 

Lesen sie die antworten

#1 Gunter Avenius
01/02/2012 - 19:40 | Warnen spam
Hallo Hubert Holler,

Hubert Holler schrieb folgendes:
Ich verwende für meine Access2010 eine eigene Ribbonleiste.
Diese funktioniert auch ohne Probleme.

Jetzt wollte ich aber eine weiere VBA Funktion ausführen, wenn ich auf
einen Druckenbutton klicke eines Berichtes. Ich weiß aber leider nicht
wo ich dieses Ereignis ausführen kann.

Meine XML Datei für den Druckenbutton sieht wie folgt aus:

<group id="grpDrucken" label="Drucken" getVisible="GetVisible">
<button idMso="PrintDialogAccess" size="large"
label="Drucken"
tag="RibbonName:=;inMenu:=;CustomPicture:=;CustomPicturePath:=" />
<button idMso="PrintPreviewClose" size="large"
label="Vorschau schließen" imageMso="ProposeNewTime"
tag="RibbonName:=;inMenu:=;CustomPicture:=;CustomPicturePath:=" />
</group>

Meine Ereignisse der Buttons im VBA Code sieht wie folg aus:

Sub OnActionButton(control As IRibbonControl)
Select Case control.ID
Case "btnSuchen1"
DoCmd.OpenForm "frm_kunde_suche"
Case "btnNeu1"
DoCmd.OpenForm "frm_kunde"
DoCmd.GoToRecord , , acNewRec
end select
end sub

Bei normale Buttons funktioniert dies ohne Probleme.

Nur wie kann ich zusàtzlich auf ein Ereignis eines Durckbuttons wie
idMso="PrintDialogAccess" reagieren.

Ich habe da schon versucht im xml File eine id einzugeben. Das
funktioniert nicht. Auch habe ich im XML Feile am Ende
onAction="OnActionButton" eingefügt.

Leider wird dann beim Öffnen der Access Datenbank mein Ribbon nicht mehr
angezeigt.

Jetzt wollte ich fragen, ob dies überhaupt möglich ist, dass ich da
zusàtzlich ein Eregnis beim Drücken auf den Druckbutton einbauen kann
und wie ich dies dann durchführen könnte.



Ich würde einen normalen Button mit dem imageMso="PrintDialogAccess"
verwenden und dann kannst Du jeden x-beliebigen Code ausführen.
z.B.

case "DeineReportPrintID"
DoCmd.RunCommand acCmdPrint
' nun Deinen Code
...

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com

http://www.avenius.de - http://www.AccessRibbon.de
http://www.ribboncreator.de - http://www.ribboncreator2010.de

Ähnliche fragen