Predmet:Isključivanje/Uključivanje Shift-a za ulazak u bazu
Vjerovatno već imamo isključivanje i uključivanje shift tipke za ulazak u bazu ali nisam siguran da imamo ovaj primjer po meni najjednostavniji.
Prvo stavimo ovu funkciju u jedan modul:
PreuzmiIzvorni kôd (Text):Option Compare Database
Option Explicit
Public Function SetProperties(strPropName As String, _
varPropType As Variant, varPropValue As Variant) As Integer
On Error GoTo Err_SetProperties
Dim db As DAO.Database, prp As DAO.Property
Set db = CurrentDb
db.Properties(strPropName) = varPropValue
SetProperties = True
Set db = Nothing
Exit_SetProperties:
Exit Function
Err_SetProperties:
If Err = 3270 Then 'Property not found
Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
db.Properties.Append prp
Resume Next
Else
SetProperties = False
MsgBox "SetProperties", Err.Number, Err.Description
Resume Exit_SetProperties
End If
End Function
Zatim na neku formu najbolje ulaznu formu stavimo command buton "bDisableBypassKey"
Na click tog dugmeta će biti ovo:
PreuzmiIzvorni kôd (Text):Private Sub bDisableBypassKey_Click()
On Error GoTo Err_bDisableBypassKey_Click
Dim strInput As String
Dim strMsg As String
BEEP
strMsg = "Da li želite uklju
iti Shift Tipku za aplikaciju?" & vbCrLf & vbLf & "Molim unesite programerski password za ovu opciju."
strInput = InputBox(Prompt:=strMsg, Title:="Uklju
i Shift passwordom ili isklju
i")
If strInput = "Ovde password" Then
SetProperties "AllowBypassKey", dbBoolean, True
BEEP
MsgBox "Funkcija izvršena." & vbCrLf & vbLf & "Shift Tipka je uklju
ena prilikom sljedeeg pokretanja aplikacije.", vbInformation, "Startup uklju
en"
Else
BEEP
SetProperties "AllowBypassKey", dbBoolean, False
MsgBox "Pogrešno ''Klju
'' Password!" & vbCrLf & vbLf & "Shift tipka je isklju
ena." & vbCrLf & vbLf & "Shift tipka je isklju
ena prilikom sljedeeg pokretanja aplikacije.", vbCritical, "Pogrešan password"
Exit Sub
End If
Exit_bDisableBypassKey_Click:
Exit Sub
Err_bDisableBypassKey_Click:
MsgBox "Runtime Error # " & Err.Number & vbCrLf & vbLf & Err.Description
Resume Exit_bDisableBypassKey_Click
End Sub
Vidite u ovom codu gdje piše Ovde password tu stavite svoju lozinku.
Ovaj način je dobar kad želite da uključite Shift ukucate ispravnu lozinku,a kada želite da isključite Shift onda samo ukucate krivu lozinku ili pritisnete tipku cancel.
Napomena:Ovo isprobajte na nekoj praznoj bazi pa tek onda primjenite na svoju.
Miro