Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: AddressOf...

Тема: AddressOf в Access97

15.06.2007 21:03:22

Сергей2

2 сообщения

Тема: AddressOf в Access97

Здравствуйте!

Я понимаю, что AddressOf не может быть использована в Access97. Но может быть есть хоть что-то заменяющее ее? Или как по другому работать с таймерами Windows ( SetTimer, KillTimer и пр.)Подскажите пожалуйста, а то проект остановился.

Заранее большое спасибо.

P.S. Использование API функций
Автор: Сергей от 12.11.2002 8:04:01 Источник ...

15.06.2007 21:03:22

All

4316 сообщения

RE: AddressOf в Access97

Private Declare Function GetCurrentVbaProject Lib "vba332.dll" Alias "EbGetExecutingProj" _
(hProject As Long) As Long

Private Declare Function GetFuncID Lib "vba332.dll" Alias "TipGetFunctionId" _
(ByVal hProject As Long, ByVal strFunctionName As String, _
ByRef strFunctionId As String) As Long
Private Declare Function GetAddr Lib "vba332.dll" Alias "TipGetLpfnOfFunctionId" _
(ByVal hProject As Long, ByVal strFunctionId As String, _
ByRef lpfn As Long) As Long

'strFuncName - имя процедуры
Public Function AddrOf(strFuncName As String) As Long
Dim hProject As Long
Dim lngResult As Long
Dim strID As String
Dim lpfn As Long
Dim strFuncNameUnicode As String
Const NO_ERROR = 0

strFuncNameUnicode = StrConv(strFuncName, vbUnicode)
Call GetCurrentVbaProject(hProject)
If hProject <> 0 Then
lngResult = GetFuncID( _
hProject, strFuncNameUnicode, strID)
If lngResult = NO_ERROR Then
lngResult = GetAddr(hProject, strID, lpfn)
If lngResult = NO_ERROR Then
AddrOf = lpfn
End If
End If
End If
End Function

P.S. Использование API функций
Автор: Николай от 0:00:00 Источник ...

15.06.2007 21:03:22

Алексей6

1 сообщения

RE: AddressOf в Access97

Народ а может кто знает как обявляется функция EbExecuteLine находящаеся в vba332.dll

За ранее спасибо

P.S. Использование API функций
Автор: Алексей от 06.07.2004 11:37:05 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: AddressOf...

Поиск

Список форумов

Начало | Forums