جميل ،،، جملك الله بالايمان
قمت بتطبيق ما تفضلت به في التلميح الثاني ولكنه لا ينفذ الوحدة النمطية ويخرج خطأ ، وعندما استبدلتها بأخرى نفذت وعملت على أتم وجه ، وعند قارنتهما لم اجد فرقا ، وأنا الآن اطرحهما لك
لتجري عليهما فحصا وتشخص المشكلة
هذه عملت
Function Tmp()
Dim DB As Database
Dim P As Property
Set DB = DBEngine(0)(0)
Set P = DB.CreateProperty("Copyright Notice", DB_TEXT, "(C) JT Software 1995")
DB.Properties.Append P
End Function
وهذه لم تعمل
Function copyright()
Dim DB As Database
Dim P As Property
Set DB = DBEngine(0)(0)
Set P = DB.CreateProperty("Copyright Notice", DB_TEXT, " © Nart Lebzo Software ") & Year(Now)
DB.Properties.Append P
End Function