meisam223
شنبه 22 مرداد 1390, 16:11 عصر
سلام
من به یه مشکلی برخوردم، این که در حالت Design view دکمه های property sheet و add existing fields قفل شده و دیگه کلا کار نمی کنه!!! کسی میتونه کمک کنه که مشکل چیه؟
البته این مبگم که من یکی از کدهایی که قبلا توی انجمن ها بوده رو استفاده کردم و فکر کنم بعد از اون اینجور شد، اون کد هم این بود که برای حفاظت فایل های اککس استفاده می شه:
Private Sub Form_Open(Cancel As Integer)
ChangeProperty "AllowBypassKey", DB_Boolean, False
If SysCmd(acSysCmdRuntime) = False Then
Shell Chr(34) & "msaccess.exe" & Chr(34) & " " & Chr(34) & Application.CurrentProject.FullName & Chr(34) & " /runtime", vbMaximizedFocus
DoCmd.Quit acQuitPrompt
End If
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
ممنون میشم هر چه سریع تر کمکم کنید چون کارم لنگه، در ضمن با restart کردن ویندوز هم حل نشده مشکلم
من به یه مشکلی برخوردم، این که در حالت Design view دکمه های property sheet و add existing fields قفل شده و دیگه کلا کار نمی کنه!!! کسی میتونه کمک کنه که مشکل چیه؟
البته این مبگم که من یکی از کدهایی که قبلا توی انجمن ها بوده رو استفاده کردم و فکر کنم بعد از اون اینجور شد، اون کد هم این بود که برای حفاظت فایل های اککس استفاده می شه:
Private Sub Form_Open(Cancel As Integer)
ChangeProperty "AllowBypassKey", DB_Boolean, False
If SysCmd(acSysCmdRuntime) = False Then
Shell Chr(34) & "msaccess.exe" & Chr(34) & " " & Chr(34) & Application.CurrentProject.FullName & Chr(34) & " /runtime", vbMaximizedFocus
DoCmd.Quit acQuitPrompt
End If
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
ممنون میشم هر چه سریع تر کمکم کنید چون کارم لنگه، در ضمن با restart کردن ویندوز هم حل نشده مشکلم