غير فعال نمودن allowbypasskey

[yaghot]

با سلام . برنامه اي داشتم كه با خاصيت allowbypasskey شيفتشو غير فعال نمودم . حالا برنامه يه مشكل كوچولو پيدا كرده و همون فرم اولش باز نميشه . در داخل يكي از فرمهام كاري كردم كه بشه خاصيت allowbypasskey را غير فعال نمود . ولي چون به اون فرم نمي تونم برسم نميشه اينكارو انجام داد . آيا راهي هست كه بتونم اين خاصيت رو از برنامه بردارم .

[Profesorjd]

سلام
بله از برنامه ای که جناب پیروزمهر نوشته اند استفاده کنید
http://www.barnamenevis.org/forum/showthread.php?t=245979&page=2

[RESMAILY]

به نام خدا
با سلام كد زير را دريك بانك ديگر مورد استفاده قراردهيد
Private Sub CmdSHift_Click()
On Error GoTo Err_DisableShiftKeyBypass
Dim prop As DAO.Property
Const conPropNotFound = 3270
start:
strDBName = "...bank.mdb or mde"
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(strDBName)
db.Properties("AllowByPassKey") = True
Exit_DisableShiftKeyBypass:
Exit Sub
Err_DisableShiftKeyBypass:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", dbBoolean, False, True)
db.Properties.Append prop
GoTo start
End If
End Sub
Private Sub CmdNoShift_Click()
On Error GoTo Err_DisableShiftKeyBypass
Dim prop As DAO.Property
Const conPropNotFound = 3270
start:
strDBName = "...bank.mdb or mde"
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(strDBName)
db.Properties("AllowByPassKey") = False
Exit_DisableShiftKeyBypass:
Exit Sub
Err_DisableShiftKeyBypass:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", dbBoolean, False, True)
db.Properties.Append prop
GoTo start
End If
End Sub