Joerg Meier
2005-08-02 15:09:06 UTC
Hallo NG,
Ich habe folgendes Problem.
Win NT und Win XP
Access 2002, SP-2
DB in FE/BE aufgeteilt
Beim Start meiner DB gibt es folgenden Fehler:
Err.Number: 3033
Err.Description: Sie haben nicht die nötigen Berechtigungen, um das Objekt
'MSysDb' zu bearbeiten. Bitten Sie den Systemadministrator oder die Person,
die das Objekt erstellt hat, Ihnen die entsprechenden Berechtigungen
zuzuweisen.
Der Fehler entsteht bei Zeile 3 des kommenden Codes, des Formulars Fstart.
Fstart wird beim Starten der Anwendung über ein autoexec-Makro geöffnet..
Private Sub Form_Current() 'Symbolleisten aufrufen
1 Me!Bild24.Picture = FKTrepSymbol()
2 Call MenIDMSnurMenue
3 Call FKTappIcon
End Sub
Hier noch die Funktion FKTappIcon und die Funktion AddAppProperty.
Die Funktionen FKTanwendungsTitel und FKTappLogo holen mittels eines SQLŽs
die erforderlichen Daten.
Function FKTappIcon()
Dim intX As Integer
Const DB_Text As Long = 10
1 intX = AddAppProperty("AppTitle", DB_Text, FKTanwendungsTitel)
2 intX = AddAppProperty("AppIcon", DB_Text, FKTappLogo)
3 CurrentDb.Properties("UseAppIconForFrmRpt") = 1
4 Application.RefreshTitleBar
End Function
Function AddAppProperty(strName As String, _
varType As Variant, varValue As Variant) As Integer
'Funktion für FKTAppIcon Funktion. Falls die Eigenschaften noch nicht
definiert oder erstellt, so müssen Sie sie neu erstellen und mit Hilfe der
CreateProperty-Methode der Properties-Auflistung anfügen
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
1 Set dbs = CurrentDb
2 On Error GoTo AddProp_Err
3 dbs.Properties(strName) = varValue
4 AddAppProperty = True
5 AddProp_Bye:
6 Exit Function
7 AddProp_Err:
8 If Err = conPropNotFoundError Then
9 Set prp = dbs.CreateProperty(strName, varType, varValue)
10 dbs.Properties.Append prp
11 Resume
12 Else
13 AddAppProperty = False
14 Resume AddProp_Bye
15 End If
End Function
Nehme ich das "Call FKTappIcon" aus der Prozedur Form_Current des Formulars
Fstart raus, gibt es keine Fehlermeldung.
An was liegt das?
Wie kann ich das Problem lösen?
So wie es aussieht, ist das ein Fehler im Berechtigungssystem. Denn als
Administrator erhalte ich diese Meldung nicht.
Aber für welches Objekt muss ich welche Berechtigung setzen, damit dieses
Fehlermeldung nicht kommt?
Danke, Gruß Jörg
Ich habe folgendes Problem.
Win NT und Win XP
Access 2002, SP-2
DB in FE/BE aufgeteilt
Beim Start meiner DB gibt es folgenden Fehler:
Err.Number: 3033
Err.Description: Sie haben nicht die nötigen Berechtigungen, um das Objekt
'MSysDb' zu bearbeiten. Bitten Sie den Systemadministrator oder die Person,
die das Objekt erstellt hat, Ihnen die entsprechenden Berechtigungen
zuzuweisen.
Der Fehler entsteht bei Zeile 3 des kommenden Codes, des Formulars Fstart.
Fstart wird beim Starten der Anwendung über ein autoexec-Makro geöffnet..
Private Sub Form_Current() 'Symbolleisten aufrufen
1 Me!Bild24.Picture = FKTrepSymbol()
2 Call MenIDMSnurMenue
3 Call FKTappIcon
End Sub
Hier noch die Funktion FKTappIcon und die Funktion AddAppProperty.
Die Funktionen FKTanwendungsTitel und FKTappLogo holen mittels eines SQLŽs
die erforderlichen Daten.
Function FKTappIcon()
Dim intX As Integer
Const DB_Text As Long = 10
1 intX = AddAppProperty("AppTitle", DB_Text, FKTanwendungsTitel)
2 intX = AddAppProperty("AppIcon", DB_Text, FKTappLogo)
3 CurrentDb.Properties("UseAppIconForFrmRpt") = 1
4 Application.RefreshTitleBar
End Function
Function AddAppProperty(strName As String, _
varType As Variant, varValue As Variant) As Integer
'Funktion für FKTAppIcon Funktion. Falls die Eigenschaften noch nicht
definiert oder erstellt, so müssen Sie sie neu erstellen und mit Hilfe der
CreateProperty-Methode der Properties-Auflistung anfügen
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
1 Set dbs = CurrentDb
2 On Error GoTo AddProp_Err
3 dbs.Properties(strName) = varValue
4 AddAppProperty = True
5 AddProp_Bye:
6 Exit Function
7 AddProp_Err:
8 If Err = conPropNotFoundError Then
9 Set prp = dbs.CreateProperty(strName, varType, varValue)
10 dbs.Properties.Append prp
11 Resume
12 Else
13 AddAppProperty = False
14 Resume AddProp_Bye
15 End If
End Function
Nehme ich das "Call FKTappIcon" aus der Prozedur Form_Current des Formulars
Fstart raus, gibt es keine Fehlermeldung.
An was liegt das?
Wie kann ich das Problem lösen?
So wie es aussieht, ist das ein Fehler im Berechtigungssystem. Denn als
Administrator erhalte ich diese Meldung nicht.
Aber für welches Objekt muss ich welche Berechtigung setzen, damit dieses
Fehlermeldung nicht kommt?
Danke, Gruß Jörg