| |
 117 Кб. |
|
| | А вот еще один интересный вопрос. В базе работает календарь от Сергея Гаврилова. (Один из примеров). Работал он работал как вдруг в один прекрасный момент стал давать это =>
при выборе на нем месяца из списка. Приходится месяц менять кнопками.
Причем что интересно, в самом примере продолжает работать исправно. Что это может быть
(Признаюсь честно, сам не помню как всадил этот календарь в свою базу, Сейчас просто его надо привязать к другой, а как не помню, а тут еще косяк как раз всплыл.)  | |
| |
| |
| |
|
|
| | Функция IsLoaded описана в двух и более модулях как публичная.
В одном нужно удалить. | |
| |
| |
| |
|
|
| |  Вот это да! А как же она до этого работала? Заремлена была что ли?
Спасибо. Пошел искать удалять где чего. 
| |
| |
| |
| |
|
|
| | Isloaded - проверка, загружена форма или нет. Посмотри, присутвует модуль или нет? | |
| |
| |
| |
|
|
| | модуль присутствует и в нем функция
Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is open in Form view or Datasheet view.
Const conObjStateClosed = 0
Const conDesignView = 0
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If
End Function
Написана один раз. В других модулях нигде больше нет. Я эти модули и формы просто с примера импортировал в свою базу. (Осталось вспомнить как внедрил) Там где-то что-то поменять надо что ли в цифрах. но это ладно. Работало одно время. И вдруг стоп. Хотел удалить все и снова импортировать, но как привязать к своей кнопке и форме - пока затык. Осталось только найти причину косяка. Чего-то не получается. | |
| |
| |
| |
|
|
| | В VBE, меню FindNext по IsLoaded по всему проекту быстро покажет где и сколько.
Может переменная где так-же зовется. | |
| |
| |
| |
49 Кб. |
|
| | Пошел по иному пути. Из своей базы импортировал форму с календарем и модулями в другую. Работает без замечаний на удивление.
На ошибку в начальной дате можно не обращать внимания. Нету данных. В остальном-то работает. Жму месяц, выбираю нужный и ОК.
пошел искать меню FindNext, хотя переменные такие же быть не могут, поскольку я переменные более 2 знаков не ввожу. (уровень не позволяет)
| |
| |
| |
|
|
| |
|
|
| | Переиначил. Добавил в конец 1 и все без замечаний стало работать. Сам бы не допер в жизни. Спасибо всем. | |
| |
| |
