-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Не обновляются подформы и лента 2007, 2010

Воскресенье, 31 Августа 2014 г. 17:14 + в цитатник
Господа знающие, прошу помощи.
Создана база(разбита на 2 файла) в 2007. Сделана своя лента. Все работает отлично.
Сделал формирование ленты универсальным для 2007 и 2010.
Поставил человеку на Виндовс сервер 2008. Управление через РДП. Акс там 2010. Файл ".accdb"

Проблема:
Перестали обновляться подчиненные формы, связанные с основной ключевыми полями. - Никакого кода, просто связь.
Вставил код на насильное обновление. Стали обновляться.

Но осталась проблема с лентой. Да, интерактивные кнопки расположены на контекстной вкладке(тоже собою собрана).
Для того чтобы убрать остальные контекстные вкладки отключил их все в 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


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку