PDA

Vollständige Version anzeigen : Datenbank Name im Header


steffeli
05.07.2006, 08:58
Hallo

Weiss jemand wie man den Namen definieren kann, der links oben im Access Fenster angezeigt wird (rechts neben dem Access-Schlüssel)? Geht das über VBA?

Danke
Sefan

J_Eilers
05.07.2006, 09:03
Hi,

reicht dir Extras / Start / Anwendungstitle nich aus?

steffeli
10.07.2006, 15:20
Danke, aber ich benötige eine VBA-Lösung, da ich viele DB's per Code periodisch anpassen muss. Weiss jemand wie man sas macht?

Danke
Stefan

J_Eilers
10.07.2006, 15:32
Müsste über hWnd gehen, aber ausprobiert habe ich das noch nicht.

steffeli
10.07.2006, 15:35
:entsetzt: sorry, aber was ist "hWnd" :entsetzt:

Arne Dieckmann
10.07.2006, 15:49
Ein anderer Ansatz findet sich in der VBA-Hilfe (AppTitle ist das, was du suchst).

AppIcon und AppTitle-Eigenschaften - Beispiel

Das folgende Beispiel zeigt, wie Sie die Eigenschaften AppIcon und AppTitle einer Microsoft Access-Datenbank (.mdb) ändern können. Wurden diese Eigenschaften noch nicht definiert oder erstellt, so müssen Sie sie neu erstellen und mit Hilfe der CreateProperty-Methode der Properties-Auflistung anfügen.

Sub cmdHinzufügenEigenschaft_Click()
Dim intX As Integer
Const DB_Text As Long = 10
intX = HinzufügenAnwEigenschaft("AppTitle", DB_Text, "Meine Anwendung")
intX = HinzufügenAnwEigenschaft("AppIcon", DB_Text, "C:\WINDOWS\AUTOS.BMP")
Application.RefreshTitleBar
End Sub

Function HinzufügenAnwEigenschaft(strName As String, varTyp As Variant, varWert As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo HinzufügenEigenschaft_Fehler
dbs.Properties(strName) = varWert
HinzufügenAnwEigenschaft = True

HinzufügenEigenschaft_Ende:
Exit Function

HinzufügenEigenschaft_Fehler:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strName, varTyp, varWert)
dbs.Properties.Append prp
Resume
Else
HinzufügenAnwEigenschaft = False
Resume HinzufügenEigenschaft_Ende
End If
End Function

steffeli
10.07.2006, 16:16
Perfekt, besten Dank. Bei mir sieht der Header nun folgendermassen aus:

"Meine Anwendung - [Formname]"

Weiss jemand, wie man den aktuellen Formularnamen ausblenden kann?

Danke
Stefan

steffeli
11.07.2006, 07:10
Weiss jemand wie man den Formularnamen im Datenbank-Header unterdrückt?

Danke
Stefan

Arne Dieckmann
11.07.2006, 17:50
So auf Anhieb: Nein. Du könntest unter den Formulareigentschaften die Beschriftung ändern (einfach ein Leerzeichen eintragen), aber dann bekommt man immer noch [ ] hinter dem Datenbanknamen zu sehen.
Codemässig lässt sich die Beschriftung mit <span style="font-family:Courier New;color:#000080;">Me.Caption= " " </span>ändern.