Supportnet / Forum / Datenbanken
Datenbankfenster ausblenden
Frage
Hi, ich hab mal wieder ein kleines Problem.
Ich würde gerne das Datenbankfenster beim öffnen meiner ADP-Datei ausblenden, damit es nicht über einblenden angezeigt werden kann. Das ganze soll auch ohne Start-Einstellungen funktionieren.
Wenn mir jemand helfen könnte wäre ich sehr dankbar.
Antwort 1 von Marie
Das verstehe ich nicht ganz, Datenbankfenster ausblenden ist eine Starteinstellung!
Also: folgenden Code in ein Modul kopieren und beim Start mit der Autoexec Code Starteigenschaften ()ausführen:
Option Compare Database
Option Explicit
Function EigenschaftÄndern(strEigName As String, varEigTyp As Variant, varEigWert As Variant) As Integer
Dim dbs As DAO.Database
Dim prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strEigName) = varEigWert
Change_Bye:
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 "StartupShowDBWindow", dbBoolean, False
EigenschaftÄndern "StartupForm", dbText, "Name_Startformular"
End Function
Also: folgenden Code in ein Modul kopieren und beim Start mit der Autoexec Code Starteigenschaften ()ausführen:
Option Compare Database
Option Explicit
Function EigenschaftÄndern(strEigName As String, varEigTyp As Variant, varEigWert As Variant) As Integer
Dim dbs As DAO.Database
Dim prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strEigName) = varEigWert
Change_Bye:
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 "StartupShowDBWindow", dbBoolean, False
EigenschaftÄndern "StartupForm", dbText, "Name_Startformular"
End Function
Antwort 2 von Marie
Äh, Zusatz:
Damit überhaupt etwas gestartet wird, muss ein Startformular vorhanden sein, dies wird in der letzten Codezeile gestartet, also bitte dort den Namen einfügen, den das Formular hat, das gestartet werden soll.
Gruß Marie
Damit überhaupt etwas gestartet wird, muss ein Startformular vorhanden sein, dies wird in der letzten Codezeile gestartet, also bitte dort den Namen einfügen, den das Formular hat, das gestartet werden soll.
Gruß Marie
Antwort 3 von CerberaV12
Danke schon mal für deine Hilfe.
Ein Startformular habe ich natürlich. Der Punkt ist nur, wenn ich die Starteinstellungen so einstelle, dass das Datenbankfenster nicht angezeigt wird, kann ich das ganze dennoch mit "shift" umgehen.
Genau das will ich nicht.
Hab mich vielleicht etwas falsch ausgedrückt, sorry.
Ein Startformular habe ich natürlich. Der Punkt ist nur, wenn ich die Starteinstellungen so einstelle, dass das Datenbankfenster nicht angezeigt wird, kann ich das ganze dennoch mit "shift" umgehen.
Genau das will ich nicht.
Hab mich vielleicht etwas falsch ausgedrückt, sorry.
Antwort 4 von Marie
nö, Shifttaste ausschalten kannste zusätzlich dazumachen, dann kommste aber auch selbst nicht mehr an Deine Datenbank:
Fügst einfach die Zeile noch ein:
EigenschaftÄndern "AllowBypassKey", dbBoolean, False
Fügst einfach die Zeile noch ein:
EigenschaftÄndern "AllowBypassKey", dbBoolean, False
Antwort 5 von CerberaV12
Vielen lieben Dank!