.


:




:

































 

 

 

 


.




 

, , , .

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.

 

 





:


: 2016-11-12; !; : 442 |


:

:

, .
==> ...

1535 - | 1305 -


© 2015-2024 lektsii.org - -

: 0.014 .