title image


Smiley dann machst Du etwas falsch..
Set_Priv_Property "AppIcon", "\\ServerName\FreigabeName\evtlNochPfad\Dein.ICO"



Public Function Set_Priv_Property(ByVal PropertyName As String, ByVal PropertyWert As String)

On Error GoTo Er

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

Set db = CurrentDb

Set p = db.CreateProperty(PropertyName, DB_TEXT, PropertyWert)

db.Properties.Append p

Ex:

Exit Function

Er:

If Err.Number = 3367 Then 'Wenn schon existiert ...

db.Properties(PropertyName) = PropertyWert

Else

MsgBox "Set_Priv_Property, unerwarteter Fehler : " & Err.Number, vbCritical, "Fehler"

End If

Resume Ex

End Function


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: