Office: (Office 2010) Entwurfansicht frm sperren

Oh man sry... da habe ich den Wald vor lauter Bäumen nicht gesehen.

Ok also ACCDE ist jetzt klar.

noch eine Frage. Ich versuche gerade diesen code einzubauen es klappt aber nicht. Wo liegt mein Fehler?

Code:

Ich möchte einen vorhanden button einblenden wenn ich eine Tastenkombination tätige, der Button wird bei start automatisch ausgeblendet.
und wie ist das mit doppel Belegungen strg z = rückgängig machen wird das ersetzt oder wird es dann beides ausgeführt?

 

...das ist wohl richtig. Aber, wenn du dir ein eigenes Kontextmenü erstellst, kannst es so abändern,
dass nur das gezeigt wird, was du möchtest!
So in etwa, ist natürlich abänderbar...
Modul:
Code:

Formular:
Code:

Button ausblenden:
Tastenvorschau auf JA stellen...
Code:

...sollte funktionieren

 

Das mit der Tastenkombi klappt danke dir.

bei deinem Bsp. des Kontextmenü wollte ich das verwenden um zu schauen wie es dann aussieht und was ich dann verändern muss allerdings kommt eine Fehlermeldung

Code:

Benutzerdefinierter Typ nicht definiert.

Was muss hier definiert werden? wurde doch eig durch "set" definiert?

Muss ich von vornherein noch Veränderungen vornehmen oder ist der code allgemein genug? ich hab aus meiner laien sicht nichts entdeckt außer "My Button" aber das kann ich individuell bennenen im nachhinein oder?

 

Benutzerdefinierter Typ nicht definiert.

Was muss hier definiert werden? wurde doch eig durch "set" definiert?

Das CommandBar- (und CommandBarButton-) Objekt ist in der "Microsoft Office 14.0 Object Library" definiert. Diese musst Du in der VBA-Entwickungsumgebung unter Menu Extras->Verweise hinzufügen.

Alternativ sollte der Code auch funktionieren, wenn Du die Objectvariable AS Object deklarierst und anstelle der msoKonstanten deren numerischen Werte verwendest.

 

Hallo,

Lösung im Betrag vom 23.06.2015 14:30 Uhr.*mrcool

 

...ja ja schon ok, Button einblenden war natürlich gemeint *rolleyes.gif* !
Der Threadstarter hat es aber kapiert und das ist wohl das Wichtigste *wink.gif*

 

Danke für eure Hilfe.

ich sehe schon das mit der "Function" bzw. der Erstellung des eigenen Kontextmenüs übersteigt meine Fähigkeiten in VBA und

damit kann ich leider nichts anfangen da habe ich zu wenig Erfahrung.

die Option Verweise unter Extras ist bei mir grau hinterlegt.

Aus der Alternative werde ich auch nicht schlau *boah

Ich denke das ist wohl eine Nummer zu groß für mich, aber wenn noch jemand lust hat hier eine Alternative (code) zu Posten wäre ich natürlich dankbar *Smilie

 

Das ist entweder dann der Fall, wenn dein Code "läuft". Dann Menü "Ausführen"->"Zurücksetzen" und danach zu den Verweisen.
Oder wenn im "Projekt Explorer" eine andere Datenbank als deine selektiert ist. Dann einfach ein Element in deiner Datenbank selektieren und dann zu Verweisen.

Du änderst/ergänzt den Deklarationsbereich der Function wie folgt:
Code:

Du gibst zu schnell auf. Das ist am Anfang sicherlich etwas zeitraubend und frustrierend, aber wenn Du nur vorgekauten Lösung per Copy&Paste in deine Anwendung übernimmst, hast Du irgendwann ein echtes Problem, wenn Du mal irgendeine Kleinigkeit ändern willst. Besser ist es, die Zeit zu investieren und die Grundlagen zu verstehen.

 

ja die Verweise kann ich jetzt aufrufen allerdings kommt beim anhaken der Microsoft Office 14.0 Object Library "Name steht im Konflikt mit vorhandenem Modul, Projekt oder vorhandener Objektbibliothek"

ich habe jetzt mal den Deklarationsbereich geändert. jetzt läuft der code weiter bis

Code:

Public Function fncContexDel () wird als Fehler aufgeführt (gelb markiert)

Ja stimmt aufgeben will ich nicht =) das wäre der falsche weg


Ich habe eine Ergänzung habe es jetzt soweit das wenn ich das Modul mit dem code fülle und diesen separat laufen lasse eine MSg kommt. Allerdings ändert sich nichts am Kontextmenü ich sehe auch nicht wofür der Button da ist.

Und wenn ich einfach die DB neu starte passiert nichts.

Sehe ich das richtig das der code auf Error läuft und da in dem code hinterlegt ist

Code:

passiert Garnichts weil ja ein Fehler drin ist?

 

...steht bei dir im Kopf des Moduls...
Code:

hmmm... wenn der 1. Code durchläuft, sollte eigentlich der 2. auch passen...
da steht ja auch der Code
Code:

Könntest eigentlich testen, das...
Code:

im Formular weg lassen, denke ist nicht notwendig.

 

Ja das steht im Modul

 

...habe es eben getestet, den Teil beim Schließen des Formulars kannst weg lassen...
Das war doppelt gemoppelt *wink.gif*

 

Ok also
Code:

habe ich entfernt im Form steht jetzt

Code:

Da sagt der Debugger das Option Compare Database
Option Explicit nicht nach End Sub stehen darf, muss ich den code dann ganz an den Anfang stellen?

und im Modul steht
Code:

wenn ich den alleine ausführe kommt die MsgBox mit Button1 sonst passiert nichts

 

habe ich entfernt im Form steht jetzt

Dann wird der Eintrag im Context Menü nicht wieder gelöscht, wenn Du das Form schließt.

Die beiden Options-Einstellungen Option Compare Database und Option Explicit dürfen nur einmal am Anfang eines Moduls gesetzt werden.

 

Dann ist vermutlich eine andere Version der Microsoft Office Object Library bereits als Verweis hinzugefügt. - Allerdings hätte dann nicht der Fehler auftreten dürfen, dass CommandBar nicht deklariert ist. - ?

Public Function fncContexDel () wird als Fehler aufgeführt (gelb markiert)

Gibt es eine konkrete Meldung zu dem Fehler?

Du könntest mal unter Menü "Extras"->"Optionen"->"Allgemein"->"Unterbrechen bei Fehlern" schauen, ob dort "Bei nicht verarbeiteten Fehlern" angewählt ist. Das wäre die richtige Einstellung für den produktiven Einsatz und meistens auch für die Entwicklung. Während der Entwicklung kann es in manchen Fällen aber auch sinnvoll sein "Bei jedem Fehler" anzuwählen.