, 22 2017 . 15:37
+
, !
.
, , ... , .
.
. .
, ... .
.
, vba, . .
. 3270. .
.
. , .. , ,
| + |
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
'
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' .
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' .
ChangeProperty = False
Resume Change_Bye
End If
End Function
|
.. ...
... ... .
! .
.
. ...
, , DAO. ... .
.
....
DoCmd.Close DoCmd.CLOSE ...
?
...
http://www.sql.ru/forum/1250992/sv-va-bd-oshibka-3270
