CurrentProject.Properties.Add cORgns, Nz(strRegions, "") '--туда
'--обратно
Public Function getBDProperty(param$)
If IsBDProperty(param) = True Then getBDProperty = CurrentProject.Properties.Item(param)
End Function
Public Function IsBDProperty(strPNam As String) As Boolean
Dim lngCount As Long
Dim i As Long
IsBDProperty = False
If Len(Nz(strPNam, "")) = 0 Then Exit Function
lngCount = CurrentProject.Properties.Count
For i = 0 To lngCount - 1
If CurrentProject.Properties.Item(i).name = strPNam Then
IsBDProperty = True
Exit Function
End If
Next i
End Function
|