Не обновляются подформы и лента 2007, 2010 |
... er = 1 ButtonName = "Button61010" n = Right(ButtonName, 5) er = 2 If Nz(TitleOrder, "") = "" Then 'обнуление временных данных для контекстной вкладки CurrentProject.Connection.Execute ("UPDATE ControlRibbonTemp SET ControlRibbonTemp.Enableds = No WHERE (((ControlRibbonTemp.Namber)=" & n & "))") Else 'формирование временных данных для контекстной вкладки CurrentProject.Connection.Execute ("UPDATE (ControlRibbon INNER JOIN UserRibbon ON ControlRibbon.Id = UserRibbon.ControlRibbon) INNER JOIN ControlRibbonTemp ON ControlRibbon.Namber = ControlRibbonTemp.Namber SET ControlRibbonTemp.Enableds = [UserRibbon].[Enableds] WHERE (((ControlRibbonTemp.Namber) =" & n & ") And ((UserRibbon.UserType) = " & Forms!Password_entry!UserType & "))") End If er = 3 ' отработка изменения доступности кнопки ' данные по доступности в таблице, поля установки доступа которой обновляются и потом на основании ее обновляется кнопка myRib.InvalidateControl ButtonName
Public Sub GetEnabledButton(control As IRibbonControl, ByRef enabled) Dim n As Long n = Right(control.Id, 5) Set str = CurrentDb.OpenRecordset("SELECT Enableds FROM ControlRibbonTemp WHERE (((TypeControl)=3) AND ((Namber = " & n & ")))") If Not str.EOF Then enabled = str!Enableds Else enabled = False End If str.Close Set str = Nothing End Sub
http://www.sql.ru/forum/1113466/ne-obnovlyautsya-podformy-i-lenta-2007-2010
| Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |