| |
|
|
| | База преобразована в mde формат, при открытии возникает ошибка: неизвестная функция Date(). Что делать  ? | |
| |
| |
| |
|
|
| | В mde проблемы со ссылками на внешние библиотеки - такие как dao например
То есть при попытке программного подключения.
Вы перед тем как в mde преобразовать = просмотрите и удалите не нужные
Вам ссылки  | |
| |
| |
| |
|
|
| | Да кстати
Вы врубаетесь о чём я говорю,
извините....
Это в коде наверху в строке меню где кнопки - кнопка tools в ней reference в них ссылки со словом missing слева.
ну сразу после квадратика для проставления галочек.  | |
| |
| |
| |
|
|
| | Спасибо,
Missing' ов нет.
Функция Date() нужна, в mdb все работает!
Как в процедуре на открытие формы в базе проверить подключение библиотек и если не подключены -> подключить? | |
| |
| |
| |
|
|
| | может базу вышлешь?
Так не знаю чё сказать...
Только не mde  | |
| |
| |
| |
|
|
| | Вот код от Анатолия(киев)
Но тут надо знать
какие параметры в функцию
передавать
Public Function CheckReference(StrDLL As String, StrID As String, StrRef As String) As Boolean
'StrDLL - "Scaner1C.dll"
'StrID -'Сканер'
'StrRef -"Scaner"
'обращение к функции
'(CheckReference("Scaner1C.dll", "Сканер", "Scaner")
'strPUTI = CurrentProject.Path & "\ocx_dll\Для сканера\Scaner1C.dll"
Dim ref As Reference, i As Integer
Dim strPUTI As String
CheckReference = False
On Error GoTo CheckReference_err
For Each ref In References
If ref.BuiltIn Then GoTo refNext
If ref.IsBroken Then
References.Remove ref
GoTo refNext
End If
If InStr(1, ref.Name, StrRef, vbTextCompare) > 0 Then
CheckReference = True
GoTo CheckReference_exit
End If
refNext:
Next ref
On Error Resume Next
References.AddFromFile (strPUTI)
If Err = 0 Then
CheckReference = True
GoTo CheckReference_exit
End If
Err.Clear
CheckReference_exit:
Exit Function
CheckReference_err:
MsgBox Err.Description
Resume CheckReference_exit
End Function
|
| |
| |
| |
| |
|
|
| | запусти код в отладчике
и в строке:
If InStr(1, ref.Name, StrRef, vbTextCompare) > 0 Then
наведя мышку на
ref.Name - увидишь названия подключеных  ссылок | |
| |
| |
| |
|
|
| | М.б. просто подскажете как подключить функцию Date()? | |
| |
| |
| |
|
|
| | подключить функцию Date()
Эта функция входит в состав библиотеки Visual Basic For Applications.
Отключить эту библиотеку, по-моему, невозможно.
Причина скорее всего в другом.
Попробуйте исправить все остальные ошибки компиляции приложения (если таковые имеются). | |
| |
| |
| |
|
|
| | После компиляции ошибок нет, проверял.
На событие текущая запись, в открывающейся форме, в процедуре используется функция Date(). В mde ошибка. | |
| |
| |
| |
|
|
| | Импорт всего в новый файл перед преобразованием к MDE пробовали? | |
| |
| |
|
|
| |
|
|
| | Уточнение!
База в формате mde работает нормально на компьютере на котором создана.
При запуске на другом возникает ошибка с функциями.
М.б. на др. комп. нужно что-то установить в настройках. | |
| |
| |
| |
|
|
| | Вы запускаете MDE на этом же компьютере, или на другом? | |
| |
| |
| |
|
|
| | Повторяю, на том компьтере на котором делается mde файл ошибок не возникает.
Ошибки появляются при запуске базы в mde формате на другом компьютере. | |
| |
| |
| |
|
|
| | может разные версии VBA? на той машине, на кот компилили и на той, на кот - запускаете.... | |
| |
| |
| |
|
|
| | в mdb все работает!
на другом компутере тоже работает mdb???
без ошибок??? | |
| |
| |
| |
|
|
| | На разных машинах в формате mdb всё работает.
Если на одной сделать mde , на других машинах не работает. | |
| |
| |
| |
|
|
| | Попробуйте VBA.Date()
Какая версия Access на компе, где делаете mde?
Установлены ли сервиспаки? | |
| |
| |
|
|
