Property not found : Error 3270

[smderfan]

سلام
خطای:

Property not found (Error 3270)
در زمان بستن کلید شیفت چیست؟

[amirzazadeh]

سلام
خطای:

Property not found (Error 3270)در زمان بستن کلید شیفت چیست؟
خوب دوست عزيز معنيش اينه كه خصوصيت مذكور ايجاد نشده كه شما ميتونين با استفاده از دستور set property اون رو ايجاد كنين.

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
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 ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function

............................
موفق باشيد