Access 2003 Menüleisten einblenden

Computer: Software & Programmierung Microsoft Access
#1

Ok das mag für einige sicherlich komisch klingen. Ich habe eine Datenbank, die wenn ich sie öffne mit einem Startformular beginnt. Hierbei habe ich alles ausgeschaltet an Menüs was geht.

Nun habe ich folgendes Problem. Wenn ein Nutzer an einer Stelle das Richtige Kennwort eingibt soll er in den Entwurfsmodus gelangen und alle Rechte und standartmenüs zur Bearbeitung haben.

Ich möchte also einen VBA code oder ein Makro welches es ermöglicht alle menüs, Icons etc. wieder einzublenden.

Ich hoffe ihr habt mich verstanden.

mfg Sebastian Plötz

#2

Hallo Sebstian,

Ok das mag für einige sicherlich komisch klingen. Ich habe
eine Datenbank, die wenn ich sie öffne mit einem Startformular
beginnt. Hierbei habe ich alles ausgeschaltet an Menüs was
geht.

nö ist nicht komisch, das ist ganz normal

Ich möchte also einen VBA code oder ein Makro welches es
ermöglicht alle menüs, Icons etc. wieder einzublenden.

die Sysmbolleisten (Menüs) kannst du mit der VBA - Funktion:

DoCmd.ShowToolbar Toolbarname, acToolbarNo
DoCmd.ShowToolbar Toolbarname, acToolbarYes

jeweils ein- und ausschalten.

Keine Ahnung, welche Icons du da einschalten willst?
Falls du das Datenbankfenster meinen solltest, das wird per Taste F11 wieder sichtbar.

Auch erschließt sich mir nicht, was du mit etc. meinst!?

Da du konkrete Hinweise erhalten willst, wäre eine genaue Auflistung dessen was du abgeschaltest und wieder einschalten möchtest sinnvoll.

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

#3

Hallo Netwolf

Ich versuche einfach die Standard Menüleiste wieder einzublenden und bräuchte hierfür den namen da Standart nicht geht.

mfg
Sebastian Plötz

#4

Hallo Sebastian,

Ich versuche einfach die Standard Menüleiste wieder
einzublenden und bräuchte hierfür den namen da Standart nicht
geht.

richtig, klicke mal mit der rechten Maustaste auf die Symbol/Menüleiste und wähle ANPASSEN.

Das kleine Fenster ist in drei Bereiche geteilt. Wähle den Reiter [Symbolleisten].

Dort findest du alle Menü- und Symbolleisten nach Namen aufgelistet.

Du wirst herausfinden, das die Standard - Menüleiste einfach heißt. Mit dem Häkchen daneben kannst du sie aus- und einschalten.

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

#5

Naja das die namen gehen wusst ich nicht nun habe ich aber die Einstellung unter Extras–>Start–>Symbolleisten-und Men+anderungen zulassen. nicht angehackt. Da mann sonst die Menüleiste ja anpasen kann und so in den Entwurfsmodus kommt. Ich brauche also eine VBA funktion die quasi diese Eigenschaft auf true setzt oder es mir ermöglicht trotz dieser Einstellung die Menüleisten zu ändern(via VBA-Code)

mfg
Sebastian Plötz

#6

Hallo Sebastian,

Ich brauche also eine VBA funktion die quasi diese Eigenschaft
auf true setzt oder es mir ermöglicht trotz dieser Einstellung
die Menüleisten zu ändern(via VBA-Code)

das kannst du ganz einfach über die Eigenschaften (Properties) der Anwendung (Application) erreichen.

Ich habe dir mal die entsprechenden Property-Begriffe die im Start - Einstellungsmenü vorkommen aufgelistet:

Anwendungstitel Eigenschaft: AppTitle
Anwendungssysmbol Eigenschaft: AppIcon
Menüleiste Eigenschaft: StartupMenuBar
Unbeschränkt Menüs anzeigen Eigenschaft: AllowFullMenus
Standard-Kontext-Menüs zulassen Eigenschaft: AllowShortcutsMenus
Formular/Seite anzeigen Eigenschaft: StartUpForm
DatenbankFenster anzeigen Eigenschaft: StartupShowDBWindow
Statusleiste Anzeigen Eigenschaft: StartupShowStatusBar
KontextMenüleiste Eigenschaft: StartupShortcutMenuBar
Eingebaute Symbolleisten- und Eigenschaft: StartupShowStatusBar
Menü-Änderungen zulassen
Access-Spezialtasten verwenden Eigenschaft: AllowSpecialKeys

Nachzulesen hier:
http://www.a1-it.ch/Guides/Edu/_MS_Access_I%20&%20II…

ein Beispiel:

Private Sub Form_Load()

DefaultFontName = Application.GetOption(„Default Font Name“)

DefaultFontSize = Application.GetOption(„Default Font Size“)

Application.SetOption „Default Font Name“, „Tahoma“

Application.SetOption „Default Font Size“, 8

End Sub

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)