Funkcija radi u Access 2003:
Code:
Function MenjajNaslov(var_NoviNaslov As Variant)
On Error GoTo MenjajNaslov_Err
If IsNull(var_NoviNaslov) Then Exit Function
Dim NoviProperty As Property
CurrentDb.Properties("AppTitle") = var_NoviNaslov
CurrentDb.Close
MenjajNaslov_Cao:
Exit Function
MenjajNaslov_Err:
If Err = 3270 Then
Set NoviProperty = CurrentDb.CreateProperty("AppTitle", dbText, var_NoviNaslov)
CurrentDb.Properties.Append NoviProperty
Resume
Else
'MenjajNaslov = False
Resume MenjajNaslov_Cao
End If
End Function
[Ovu poruku je menjao Aleksandar Ružičić dana 16.01.2009. u 20:49 GMT+1]