Commandbar

25/05/2009 - 11:10 von Jürgen Großmann | Report spam
Hallo
Ich habe ein Form mit mehreren Button und einer selbst erstellten
Menüleiste. Wenn ich den Button 1 drücke wird der unten aufgeführte Code
ausgeführt.(Wie gewünscht) wenn ich aber in der Menüleiste den dazugehörige
Button drücken wird der gleiche Code mehrfach ausgeführt.
Worin liegt mein Fehler?
Danke im Voraus
Jürgen

###### Code######

Function Schriftsteller_Bearbeiten()
If IsNull(Forms!frm_buch_Schriftsteller!lst_Schriftsteller) Then
MsgBox "Sie haben Keine Auswahl getroffen."
Exit Function
End If

If Me.lst_Schriftsteller.ListIndex = -1 Then
Exit Function
End If

DoCmd.OpenForm "frm_Buch_schriftstellerBearbeiten", , , , , ,
Me.lst_Schriftsteller

End Function

#########Commanbar button#########
Set MediaBarCtrl =
CommandBars("Schriftsteller").Controls.Add(msoControlButton, , , , True)
With MediaBarCtrl
.BeginGroup = True
.Style = msoButtonCaption
.Caption = "Schriftsteller Bearbeiten"
.OnAction = "=Schriftsteller_Bearbeiten"
End With

#######Button 1 im Form######
Private Sub btn_SchriftstellerBearbeiten_Click()
On Error GoTo myerror
Call Schriftsteller_Bearbeiten
my_err_exit:
Exit Sub
myerror:
MsgBox Err.Number & " " & Err.Description
Resume my_err_exit
End Sub
 

Lesen sie die antworten

#1 Jörg Ackermann
25/05/2009 - 11:45 | Warnen spam
Hallo Jürgen Großmann

Jürgen Großmann meinte:


Hallo
Ich habe ein Form mit mehreren Button und einer selbst erstellten
Menüleiste. Wenn ich den Button 1 drücke wird der unten aufgeführte
Code ausgeführt.(Wie gewünscht) wenn ich aber in der Menüleiste den
dazugehörige Button drücken wird der gleiche Code mehrfach ausgeführt.
Worin liegt mein Fehler?



Das passiert gelegentlich.

Lagere Schriftsteller_Bearbeiten in ein
Modul aus.

Gruß Acki

Ähnliche fragen