PDA

Vollständige Version anzeigen : Fehler in der Onlinehilfe ???


Lupus
20.09.2001, 21:37
Hallo Leute ....

hilfe .. schnief ..
Bei folgendem Code (Access2000) erhalte ich folgene meldung
Sub oder Funktion nicht deffiniert (Courser steht auf ChangeProperty)

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Option</span> <span class="TOKEN">Compare</span> <span class="TOKEN">Database</span>
<span class="TOKEN">Option</span> <span class="TOKEN">Explicit</span>
<span class="TOKEN">Function</span> EinstellenStarteigenschaften()
<span class="TOKEN">Const</span> DB_Text <span class="TOKEN">As</span> <span class="TOKEN">Long</span> = 10
<span class="TOKEN">Const</span> DB_Boolean <span class="TOKEN">As</span> <span class="TOKEN">Long</span> = 1
ChangeProperty "StartupShowDBWindow", DB_Boolean, <span class="TOKEN">False</span>
ChangeProperty "StartupShowStatusBar", DB_Boolean, <span class="TOKEN">True</span>
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, <span class="TOKEN">False</span>
ChangeProperty "AllowFullMenus", DB_Boolean, <span class="TOKEN">False</span>
ChangeProperty "AllowBreakIntoCode", DB_Boolean, <span class="TOKEN">False</span>
ChangeProperty "AllowSpecialKeys", DB_Boolean, <span class="TOKEN">False</span>
ChangeProperty "AllowBypassKey", DB_Boolean, <span class="TOKEN">False</span>
ChangeProperty "AllowShortcutMenus", DB_Boolean, <span class="TOKEN">False</span>
ChangeProperty "AllowToolbarChanges", DB_Boolean, <span class="TOKEN">False</span>
ChangeProperty "AppTitle", DB_Text, DLookup("KundeName", "Sammelbesteller") & " Büro Express"
ChangeProperty "AppIcon", DB_Text, "c:\Bestell.ico"
Application.RefreshDatabaseWindow
<span class="TOKEN">End</span> <span class="TOKEN">Function</span>

<span class="TOKEN">Function</span> aendernEigenschaft(strEigName <span class="TOKEN">As</span> String, varEigTyp <span class="TOKEN">As</span> Variant, varEigWert <span class="TOKEN">As</span> Variant) <span class="TOKEN">As</span> <span class="TOKEN">Integer</span>
<span class="TOKEN">Dim</span> dbs <span class="TOKEN">As</span> Object, Eig <span class="TOKEN">As</span> Variant
<span class="TOKEN">Const</span> conEigNichtgefundenFehler = 3270
<span class="TOKEN">Set</span> dbs = CurrentDb
<span class="TOKEN">On Error GoTo</span> Change_Err
dbs.Property(strEigName) = varEigWert
aendernEigenschaft = <span class="TOKEN">True</span>
Change_Err:
<span class="TOKEN">Exit Function</span>
aendern_Ende:
<span class="TOKEN">Exit Function</span>
aendern_Fehler:
<span class="TOKEN">If</span> Err = conEigNichtgefundenFehler <span class="TOKEN">Then</span> <span class="REM">' Eigenschaft nicht gefunden.</span>
<span class="TOKEN">Set</span> Eig = dbs.CreateProperty(strEigName, _
varEigTyp, varEigWert)
dbs.Property.Append Eig
<span class="TOKEN">Resume</span> <span class="TOKEN">Next</span>
<span class="TOKEN">Else</span>
<span class="REM"> ' Unbekannter Fehler.</span>
aendernEigenschaft = <span class="TOKEN">False</span>
<span class="TOKEN">Resume</span> aendern_Ende
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>

wer kann mir helfen .. bitte bitte
dabei habe ich den Code aus der Onlinehilfe übernommen .. tz tz

Gruß ChangePropertygeschädigter Lupus

AWSW
20.09.2001, 21:53
Ohh - Hallo Meister,
seid bitte gnädig und lasst meine Antwort durch Eure Gucklöcher sausen: :D


Option Compare Database
Option Explicit

Sub EinstellenStarteigenschaften()
ÄndernEigenschaft "StartupForm", dbText, "DEIN START 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 Sub

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

Besonderes empfehlenswert sei Euch dieser Link hier Meister: http://support.microsoft.com/support/kb/articles/Q216/8/88.ASP Das ist die ganze Liste der Optionen zu Access 2000 von WinzigWeich.


In Eurer Auflistung kenne ich alle Argumente im oberen Teil und verwende sie auch, außer denen hier:

ChangeProperty "AppTitle", DB_Text, DLookup("KundeName", "Sammelbesteller") & " Büro Express"
ChangeProperty "AppIcon", DB_Text, "c:\Bestell.ico"


Eventuell liegts ja auch an der deu/engl. Schreibweise, bei meiner A2000 Version ist es so in deutsch in der OH enthalten...

Ich hoffe das hilft Euch :D

Lupus
20.09.2001, 22:15
ei jo ...

ich lasse auch mal was von meinen jüngern durch die augen gleiten ..
(hat ja auch viel platz hinter den augen zum sich im kreise drehen .. hi hi)

dein code kommt aus der access 97 ?
also habe ich das mal in a97 gemacht was ich will .. dort tut es
und habe es in a2000 konvertiert.
nun geht es auch da ...

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Function</span> EinstellenStarteigenschaften()
AendernEigenschaft "StartupShowDBWindow", dbBoolean, <span class="TOKEN">False</span>
AendernEigenschaft "StartupShowStatusBar", dbBoolean, <span class="TOKEN">True</span>
AendernEigenschaft "AllowBuiltinToolbars", dbBoolean, <span class="TOKEN">False</span>
AendernEigenschaft "AllowFullMenus", dbBoolean, <span class="TOKEN">False</span>
AendernEigenschaft "AllowBreakIntoCode", dbBoolean, <span class="TOKEN">False</span>
AendernEigenschaft "AllowSpecialKeys", dbBoolean, <span class="TOKEN">False</span>
AendernEigenschaft "AllowBypassKey", dbBoolean, <span class="TOKEN">False</span>
AendernEigenschaft "AllowShortcutMenus", dbBoolean, <span class="TOKEN">False</span>
AendernEigenschaft "AllowToolbarChanges", dbBoolean, <span class="TOKEN">False</span>
AendernEigenschaft "AppTitle", dbText, DLookup("KundeName", "Sammelbesteller") & " Büro Express"
<span class="REM"> ' ++++++++++ Es gibt eine Tabelle Sammelbesteller, dort steht der "KundeName", dieser erscheint in der</span>
<span class="REM"> ' ++++++++++ Titelleiste mit dem text "Büro Express" ... is doch schee, wenn der Kunde sein name sehen kann</span>
AendernEigenschaft "AppIcon", dbText, Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & "Bestell.ico"
<span class="REM"> ' "c:\Bestell.ico" ++++++++++ Habe ich abgekürzt zum testen eigendlich steht dort der Code für das Aktuelle Verzeichniss</span>
<span class="REM"> ' ++++++++++ aber der code dazu macht die seite so breit.</span>
Application.RefreshDatabaseWindow
<span class="TOKEN">End</span> <span class="TOKEN">Function</span>
<span class="TOKEN">Function</span> AendernEigenschaft(strEigenschaftenname <span class="TOKEN">As</span> String, varEigenschaftentyp <span class="TOKEN">As</span> Variant, varEigenschaftenwert <span class="TOKEN">As</span> Variant) <span class="TOKEN">As</span> <span class="TOKEN">Integer</span>
<span class="TOKEN">Dim</span> dbs <span class="TOKEN">As</span> Database, prp <span class="TOKEN">As</span> <span class="TOKEN">Property</span>
<span class="TOKEN">Const</span> conPropNotFoundError = 3270
<span class="TOKEN">Set</span> dbs = CurrentDb
<span class="TOKEN">On Error GoTo</span> Aendern_Fehler
dbs.Properties(strEigenschaftenname) = varEigenschaftenwert
AendernEigenschaft = <span class="TOKEN">True</span>
Aendern_Ende:
<span class="TOKEN">Exit Function</span>
Aendern_Fehler:
<span class="TOKEN">If</span> Err = conPropNotFoundError <span class="TOKEN">Then</span> <span class="REM">' Eigenschaft nicht gefunden.</span>
<span class="TOKEN">Set</span> prp = dbs.CreateProperty(strEigenschaftenname, _
varEigenschaftentyp, varEigenschaftenwert)
dbs.Properties.Append prp
<span class="TOKEN">Resume</span> <span class="TOKEN">Next</span>
<span class="TOKEN">Else</span>
<span class="REM"> ' Unbekannter Fehler.</span>
AendernEigenschaft = <span class="TOKEN">False</span>
<span class="TOKEN">Resume</span> Aendern_Ende
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>

und der code tut ....

hochachtungsvoll und erhabend lupus

AWSW
20.09.2001, 22:25
Hi Meister,
kann daran liegen, dass ich schon ein Auge zu hab ;) - Klappt´s jetzt oder nicht ???

Ich verwende den hier in Access 2000 - haargenau kopiert:

Option Compare Database
Option Explicit
Public Function EinstellenStarteigenschaften00()
ÄndernEigenschaft "StartupForm", dbText, "StartUp"
Ä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


So mache jetzt Schluss - Ich hoffe das hilft Dir :)

Lupus
20.09.2001, 22:50
jepp ..

klapperte scho ..

ich erlaube dir auch das andere auge zu schließen und die nacht zu ruhen

sandmännschen habe ich schon auf den weg gebracht :D

Gruß auchgleichaugenzu Lupus

AWSW
21.09.2001, 17:11
Also, warst Du das indirekt der das Sandmännchen auch noch gerufen hatte. War nämlich heute doppelt so gut ausgeschlafen, als sonst - DANKE :D