ник: Силblч
проверяет есть ли свойство
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
|
две други ф-ции - Get и Set