ник: час
нифига себе
Я вот покороче нашёл, но не работает чего то
CurrentProject.Properties.Add "AppIcon", CurrentProject.Path & "\PVH1.ico"
Application.RefreshTitleBar
|
вот ещё пробую
dim strNew as string
strNew = CurrentProject.Path & "\myIco.ico"
If CurrentProject.ProjectType = acMDB Then
CurrentDb.Properties("AppIcon").Value = strNew
ElseIf CurrentProject.ProjectType = acADP Then
CurrentProject.Properties("AppIcon").Value = strNew
End If
|
http://www.sql.ru/Forum/actualthread.aspx?bid=4&tid=275717&hl=