Панург,
Не понял, в чем проблема с функциями. Естественно, пробовал, все это работает на многих серьезных проектах. Вот, пожалуйста, ниже скришот типичного Before Change дата макро, который выззывает функции. Вот сами функции:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Dim gstrOperationMode As String
Public gbolDataNacroDisabled As Boolean
Public gintEmployeeID As Integer
#If Win64 Then
Public Declare PtrSafe Function GetUserNameAPI Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#Else
Public Declare Function GetUserNameAPI Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#End If
Public Function IsDataMacroDisabled() As Boolean
IsDataMacroDisabled = gbolDataNacroDisabled
End Function
Public Function GetFullUserInfo() As Variant
GetFullUserInfo = "OSUser=" & GetOSUserName() & "|DBUser=" & GetDBUserName() & "|OperationMode=" & GetOperationMode()
End Select
End Function
Public Function GetOSUserName() As String
Dim strLen As Long
Dim strtmp As String
Dim strUserName As String
strLen = 255
strtmp = Space(256)
GetUserNameAPI strtmp, strLen
strtmp = Left$(strtmp, InStr(strtmp, Chr(0)) - 1)
GetOSUserName = strtmp
End Function
Public Function GetDBUserName() As String
GetDBUserName = Nz(DLookup("DisplayName", "Employees", "[ID_Employee] =" & gintEmployeeID))
End Function
Public Function GetOperationMode() As String
GetOperationMode = gstrOperationMode
End Function
Хочу обратить внимание. что модуль с этими функциями должен быть продублирован в обеих частях разделенной базы, т.к. дата макро "видят" функции только из текущей Codebase, т.е. если эти функции находятся только в бэкэнде, то макросы будут работать нормально только если открыть бэкэнд и там попробовать поменять данные. При редактировании из фронтенда функция должна быть объявлена как глобальная в самом фронтэнде.
Раньше я выносил функции для работы с датамакро в отдельную библиотеку и подключал ее в обеим частям базы данных, но потом просто стал копировать, т.к. редактировать данный непосредственно из бэкэнда приходится довольно редко, и то только разработчику.
