PDA

Vollständige Version anzeigen : Fenster in Taskleiste


Tom99
17.10.2001, 07:21
Kann ich diese Option per VB verändern??

Gruß
Tom

AWSW
17.10.2001, 16:47
Hallo kannst Du, schau mal hier nach:
Statische Anzeige des Programmbuttons in der Startleiste bei Access 2000 ??? (http://www.ms-office-forum.net/forum/showthread.php?s=&threadid=42820)

Dort steht das drin. Alternativ wäre auch dieser Link interessant. Wenn möglich gib bitte im Beitrag Deine AccessVersion an, damit man gezielter suchen kann... Meine Antwort bezieht sich auf Access 2000 und XP... Hier der 2. Link: http://support.microsoft.com/support/kb/articles/Q216/8/88.ASP

Über dieses Modul aus der Access 2000 Hilfe kannst Du die Eigenschaften für die DB einstellen
(Verwendung auf eigene Gefahr - Sicherungskopie empfehlenswert, wenn Du auch die anderen von mir hier ausgeschalteten Optionen wieder aktivierst):

Option Compare Database
Option Explicit
Public Function EinstellenStarteigenschaften00()
'ÄndernEigenschaft "StartupForm", dbText, "DEIN StartUp FORMULAR"
'ÄndernEigenschaft "StartupShowDBWindow", dbBoolean, False
'ÄndernEigenschaft "StartupShowStatusBar", dbBoolean, False
'ÄndernEigenschaft "AllowBuiltInToolbars", dbBoolean, False
'ÄndernEigenschaft "AllowShortcutMenus", dbBoolean, False
'ÄndernEigenschaft "AllowFullMenus", dbBoolean, False
'ÄndernEigenschaft "AllowBreakIntoCode", dbBoolean, False
'ÄndernEigenschaft "AllowToolbarChanges", dbBoolean, False
'ÄndernEigenschaft "AllowSpecialKeys", dbBoolean, False
'ÄndernEigenschaft "AllowBypassKey", dbBoolean, False
Application.SetOption "ShowWindowsInTaskbar", False
'Application.SetOption "Cursor Stops at First/Last Field", True
'Application.SetOption "Show Hidden Objects", False
End Function

Function ÄndernEigenschaft(strEigenschaftenname As String, varEigenschaftentyp As Variant, varEigenschaftenwert As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Ändern_Fehler
dbs.Properties(strEigenschaftenname) = varEigenschaftenwert
ÄndernEigenschaft = True

Ändern_Ende:
Exit Function

Ändern_Fehler:

If Err = conPropNotFoundError Then ' Eigenschaft nicht gefunden.
Set prp = dbs.CreateProperty(strEigenschaftenname, _
varEigenschaftentyp, varEigenschaftenwert)
dbs.Properties.Append prp
Resume Next
Else
' Unbekannter Fehler.
ÄndernEigenschaft = False
Resume Ändern_Ende
End If
End Function

Ich hoffe das hilft Dir :D

Tom99
17.10.2001, 17:12
Super!!
Funzt Alles jetzt!!!

Vielen Dank
Tom