, , , .
1. .
2. , , .
3. . . , , , , .
4. . , . , . , , , . , . , , , .
5. . . . . , , , , . .
6. . , .
, . . . , . , . . . , , . , , , .
|
|
, . .
, :
ü 8 ( 1).
ü 10 , 9 1 ( 2)
ü 19 ( 3)
ü 1 , ( 1 4)
ü 28 ( 5)
ü VBA, :
, ACCESS , , , Shift, , , ( 6).
:
Private Sub butProtOff_Click()
setProtShift True MsgBox " !" & Chr(13) & !"
End Sub
Private Sub butProtOn_Click()
setProtShift False MsgBox " !" & Chr(13) & " !"
End Sub
Private Sub setProtShift(myFlag As Boolean) dbChangeProperty "StartupForm",DB_TEXT, "" (. 6)
dbChangeProperty "StartupShowStatusBar", DB_BOOLEAN, myFlag
dbChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, myFlag
dbChangeProperty "AllowFullMenus", DB_BOOLEAN, myFlag , ..
dbChangeProperty "AllowBreakIntoCode", DB_BOOLEAN, myFlag
dbChangeProperty "AllowSpecialKeys", DB_BOOLEAN, myFlag (CTRL+BREAK,...)
dbChangeProperty "AllowBypassKey", DB_BOOLEAN, myFlag Shift
End Sub
Function dbChangeProperty(strName As String, varType As Variant, varValue As Variant) As Boolean
Dim prp As Variant, dbs As Database
On Error GoTo 999
dbChangeProperty = False
Set dbs = CurrentDb
dbs.Properties(strName) = varValue
dbChangeProperty = True
Exit Function
999: If Err = 3270 Then
Set prp = dbs.CreateProperty(strName, varType, varValue)
dbs.Properties.Append prp
Err.Clear
Resume Next
End If
Err.Clear
End Function
1
2
|
|
3
4
1
5
6
1.. / .. . - : , 2000. 640.
2. . / . .. . : ,1998 2. 382.
3. . / .., .. : , 1999. 116.