Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Силblч да
Public Function getProp(param$) On Error GoTo err123 If IsBDProperty(param) = True Then getProp = CurrentProject.Properties.Item(param) Exit Function err123: MsgBox Error, , "getProp" Exit Function End Function
Public Sub setProp(pn$, pv) On Error GoTo err123 CurrentProject.Properties.Add pn, pv Exit Sub err123: MsgBox Error, , "setProp" Exit Sub End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.