title image


Smiley TIPP: Starteigenschaft ändern
Das geht etwa so:



Function StartEigenschaftAendern(strDBPath as String, strEigName As String, _

varEigTyp As Variant, varEigWert As Variant) As Integer



Dim db As DAO.Database, Prp As DAO.Property

Const conPropNotFoundError = 3270

Const conPropNotNullError = 3385

On Error GoTo Err



if strDBpath = "" then

Set db = CurrentDb

else

Set db = DBengine(0).Opendatabase(strDBpath)

end if

db.Properties(strEigName) = varEigWert

StartEigenschaftAendern = True

Ex:

Exit Function



Err:

If Err = conPropNotFoundError Then 'Eigenschaft nicht gefunden.

Set Prp = db.CreateProperty(strEigName, varEigTyp, varEigWert)

db.Properties.Append Prp

Resume Next

ElseIf Err = conPropNotNullError Then

db.Properties.Delete strEigName

Else

'Unbekannter Fehler

StartEigenschaftAendern = False

Resume Ex

End If

End Function





Und dann:



Call StartEigenschaftAendern("C:\woauchimmer\deine.mdb", "StartupForm", dbText, "frmStart"



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: