ACC 2003 Anwendungstitel zur Laufzeit ändern - Laufzeitfehler 3270

20/07/2009 - 23:39 von Joerg M. | Report spam
Hallo NG,

Access 2003

Kann mir jemand sagen, warum ich bei untenstehender Sub den Fehler
"Laufzeitfehler: 3270 - Eigenschaft nicht gefunden" erhalte?

Public Sub ChangeTitle()
'1 On Error Resume Next
2 Dim db As DAO.Database
3 Dim obj As Object
4 Set db = CurrentDb
5 Const conPropNotFoundError = 3270

6 db.Properties!AppTitle = "Sie sind angemeldet als " &
Environ("USername") & " seit: " & Now()

7 Application.RefreshTitleBar

End Sub

Als Verweise sind verfügbar:

Visaul Basic For Applications
Microsoft Access 11.0 Objetc Library
OLE Automation
Microsoft DAO 3.6 Object Library
Microsoft Visual Basis for Applications Extensibility 5.3
Microsoft Office 11.0 Object Library
Microsoft Scripting Runtime

Ziel ist ganz einfach, ich will den Anwendungstitel beim Start der Anwendung
àndern. Dabei soll der Anwendungstitel eben variable sein, also Benutzername
und Zeit des Startens der Anwendung anzeigen.

Danke, Gruß Jörg
 

Lesen sie die antworten

#1 Ekkehard Böhme
21/07/2009 - 00:00 | Warnen spam
Hallo Joerg,

Joerg M. schrieb:
Hallo NG,

Access 2003

Kann mir jemand sagen, warum ich bei untenstehender Sub den Fehler
"Laufzeitfehler: 3270 - Eigenschaft nicht gefunden" erhalte?

Public Sub ChangeTitle()
'1 On Error Resume Next
2 Dim db As DAO.Database
3 Dim obj As Object
4 Set db = CurrentDb
5 Const conPropNotFoundError = 3270

6 db.Properties!AppTitle = "Sie sind angemeldet als " &
Environ("USername") & " seit: " & Now()



Kann sein, dass Du diese Property erst ein Mal anlegen musst.
Currentdb.CreateProperty "AppTitle"
Currentdb.Properties.Append
Und wahrscheinlich "." statt "!"
db.Properties.AppTitle


7 Application.RefreshTitleBar

End Sub



<schnipp>

Danke, Gruß Jörg



hth
ekkehard

Ähnliche fragen