Supportnet / Forum / Datenbanken

Hallo Leute! Ich habe da eine DB mit einem Autoexec-Makro, welches gleich beim Start das Datenbankfenster ausblendet und ein Start-Formular maximiert. Dann habe ich bei DB-Eigenschaft noch angegeben: "Unbeschränkte Menüs" -> NEIN. Will ich die DB jetzt starten kommt die Meldung: "Der Befehl oder die Aktion 'FensterAusblenden' steht momentan nicht zur Verfügung." Wie kann ich das DB-Fenster trotzdem ausblenden, trotz BESCHRÄNKTER Menüs? Bitte, bitte dringende Hilfe!! Danke, danke! Bish

Du kannst mit VBA auch auf alle diese Eigenschaften zugreifen. Dann kansst die Reihenfolge der Aktionen selber steuern. Also erst DB-Fenster ausblenden dann Menüs beschränken oder am besten gleich die Standard-menüleiste ausblenden und eine Eigene einblenden.

Desweiteren gibts noch die Möglichkeit das schliessen des Start-Formulars zu verhindern und die Kontextmenüs anzupassen damit nicht von dort aus auf den entwurf zugegriffen werden kann.

Gruß

Hättest Du vielleicht ein Beispiel von diesem VBA-Script.
Ich bin leider nicht gut mit VBA bewandelt. Das wäre supi!

cu
bish

Function EigenschaftÄndern(strEigName As String, varEigTyp As Variant, varEigWert As Variant) As Integer
Dim dbs As DAO.Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strEigName) = varEigWert
Change_Bye:
dbs.Close
Exit Function
Change_Err:
If err = conPropNotFoundError Then 'Eigenschaft nicht gefunden.
Set prp = dbs.CreateProperty(strEigName, _
varEigTyp, varEigWert)
dbs.Properties.Append prp
Resume Next
Else
Resume Change_Bye
End If
End Function


Public Function Starteigenschaften()

EigenschaftÄndern "AppTitle", dbText, "DeinTitel"
EigenschaftÄndern "AppIcon", dbText, "Pfad\Dein.ICO"
EigenschaftÄndern "StartUpMenuBar", dbText, "DeineMenüleiste"
EigenschaftÄndern "StartUpShortcutMenuBar", dbText, "DeinKontextmenü"
'EigenschaftÄndern "StartupForm", dbText, "DeinStartformular"
EigenschaftÄndern "StartupShowDBWindow", dbBoolean, False 'Datenbankfenster anzeigen
EigenschaftÄndern "StartupShowStatusBar", dbBoolean, True 'Statuszeile anzeigen
EigenschaftÄndern "AllowShortcutMenus", dbBoolean, False 'Standard-Kontextmenüs zugelassen
EigenschaftÄndern "AllowToolbarChanges", dbBoolean, False 'Symbolleistenänderungen erlaubt
EigenschaftÄndern "AllowBuiltinToolbars", dbBoolean, False 'Eingebaute Symbolleisten zulassen
EigenschaftÄndern "AllowFullMenus", dbBoolean, False 'Unbeschränkte Menüs anzeigen
EigenschaftÄndern "AllowBreakIntoCode", dbBoolean, True 'Codeansicht nach Fehler zugelassen
EigenschaftÄndern "AllowSpecialKeys", dbBoolean, False 'Access-Spezialtasten verwenden
EigenschaftÄndern "AllowBypassKey", dbBoolean, True 'Umschalttaste zum Umgehen der Starteigenschaften ausschalten (False)
End Function

Die Funktion in der AutoExec aufrufen
Viel Spaß und
Gruß Marie

Hallo Bish,

du kannst zwei Startoptionen von Access verwenden, um zum gleichen Ziel zu kommen.

Datenbankfenster:
Menü Extras | Start | "Datenbankfenster anzeigen" deaktivieren

Formular automatisch laden:
Menü Extras | Start | "Formular/Seite anzeigen" -> Formular auswählen

Wenn du das Formular tatsächlich maximiert öffnen willst, dann rufe das Modulfenster des entsprechenden Formulars auf und füge folgende Codezeilen ein:

′--------------------------------------
Private Sub Form_Load()
   DoCmd.Maximize
End Sub
′--------------------------------------

Gruss
PotzBlitz

Danke für Eure Hilfe! Es funktioniert!

Danke, danke!

bish

Upps, das is aber mal ein liebes Dankeschön, da freut man sich richtig mit :-))))

• Objekt ausblenden wenn Spalte leer
• Button ausblenden
• Datensätze ausblenden