Hallo,
ist es in Access 2007 möglich per VB auf die Einstellungen die unter
Access-Optionen, Aktuelle DB liegen zuzugreifen?
Speziell möchte ich eine eigene Symbolleiste festlegen.
Viele Grüße,
Stefan

Hallo Stefan,

Stefan Pfister schrieb folgendes:
> ist es in Access 2007 möglich per VB auf die Einstellungen die unter
> Access-Optionen, Aktuelle DB liegen zuzugreifen?

Ja.

> Speziell möchte ich eine eigene Symbolleiste festlegen.

Meinst Du ein Ribbon oder Symbolleiste?
http://www.accessribbon.de/?Access_-...__Menueleisten

Gruß
Gunter
--
__________________________________________________ ________
Access FAQ: http://www.donkarl.com

home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

12. Access-Entwickler-Konferenz (AEK)
Nürnberg 10./11.10.2009 und 31.10/1.11.2009
http://www.donkarl.com/?AEK

Ich wollte wie früher eine eigene Symbolleiste einbinden bei ausgeblendetem
Ribbon.
Meine Idee war, Access eine Symbolleiste vorzugeben (wodurch ja das Ribbon
ausgeblendet wird).
Diese Möglichkeit existiert ja, wenn ich eine ältere DB mit vorhandenen
benutzerdef. Symbolleisten öffne.
Ich wollte jetzt beim Start eine nicht existierende Leiste einblenden, den
Fehler abfangen (Ribbon ist dann weg)
und dann zur Laufzeit eigene Symbolleisten mit VBA zu erzeugen.
Viele Grüße, Stefan

Hallo Stefan,

Stefan Pfister schrieb folgendes:
> Ich wollte wie früher eine eigene Symbolleiste einbinden bei ausgeblendetem
> Ribbon.
> Meine Idee war, Access eine Symbolleiste vorzugeben (wodurch ja das Ribbon
> ausgeblendet wird).
> Diese Möglichkeit existiert ja, wenn ich eine ältere DB mit vorhandenen
> benutzerdef. Symbolleisten öffne.
> Ich wollte jetzt beim Start eine nicht existierende Leiste einblenden, den
> Fehler abfangen (Ribbon ist dann weg)
> und dann zur Laufzeit eigene Symbolleisten mit VBA zu erzeugen.

evtl so:
Code in ein neues Standardmodul kopieren,
Aufruf mit: fnc_SetOptionValueMDB "StartupMenuBar",varText,"MyBar"


Option Compare Database

Enum IType
varText = 10
varBoolean = 1
End Enum

Function fnc_SetOptionValueMDB(strPropertyName, varType As IType, _
varValue As Variant, Optional bolDelete As Boolean
= False)

'************************************************* ****************************
' Aufruf : fnc_fnc_SetOptionValueMDB _
' ("AppTitle",varText,"TestAppTitel") zum
setzten
' fnc_fnc_SetOptionValueMDB _
' ("AppTitle",varText,"TestAppTitel", True) zum
löschen
'************************************************* ****************************

Dim strProcName As String
strProcName = "fnc_SetOptionValueMDB"

On Error GoTo fnc_SetOptionValueMDB_Err

Dim dbs As Object
Dim prop As Variant

Set dbs = CurrentDb
If bolDelete = False Then
dbs.Properties(strPropertyName) = varValue
Else
On Error Resume Next
dbs.Properties.Delete (strPropertyName)
End If
fnc_SetOptionValueMDB = True

fnc_SetOptionValueMDB_Exit:
Exit Function

fnc_SetOptionValueMDB_Err:
Select Case Err
Case 3270
Set prop = dbs.CreateProperty(strPropertyName, varType,
varValue)
dbs.Properties.Append prop
Resume
Case Else
fnc_SetOptionValueMDB = False
Resume fnc_SetOptionValueMDB_Exit
End Select

End Function



Gruß
Gunter
--
__________________________________________________ ________
Access FAQ: http://www.donkarl.com

home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

"Stefan Pfister" wrote:

> Hallo,
> ist es in Access 2007 mglich per VB auf die Einstellungen die unter
> Access-Optionen, Aktuelle DB liegen zuzugreifen?
IMO ja (zumindest in AC03 mache ich dies so)
> Speziell mchte ich eine eigene Symbolleiste festlegen.
Schau mal unter CurrentDB.CreateProperty mit dem Parameter StartUpMenuBar
im Internet nach, da habe ich die entsprechenden Referenzen gefunden
> Viele Gre,
> Stefan
>

Grüße aus dem Schwarzwald

Michael Sapich