Pada saat membuka file yang berektensi *.mdb atau file access khusus'y untuk access 2003, maka yang pertama tampil adalah scurity warning. seperti gambar di bawah ini.
dan untuk bisa langsung ke database windows kita bisa menekan Shift yang berada di keyboard dan klik open, maka kita akan dibawa masuk ke database windows file tersebut.
Disini saya akan membahas bagaimana cara'y agar pada saat kita membuka'y dengan cara diatas, tapi database windows tidak bisa terbuka. Langsung saja
1. Buka file yang akan kita disable shift key'y dan masuk ke database windows
2. Buat Module dengan nama terserah sesuka anda. dan masukan kode di bawah ini.
'---------------------------------------------------------------------'
' Module: DisableShiftKey '
' Date: July 18, 2003 '
' '
' Purpose: To stop the user from holding the shift key on startup to '
' access the database window. '
'---------------------------------------------------------------------'
Option Compare Database
Option Explicit
'----------------------------------------------------------------------
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
'----------------------------------------------------------------------
Function BypassKey(onoff As Boolean)
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, onoff
End Function
'-----------------------------------------------------------------------
Terus simpan
3. Buat Macro dengan nama ByPassKeyOff
di bagian Action pilih Runcode
Function masukan "BypassKey(False)" tanpa kutip.
Terus simpan
4. Jalankan dah tuh file macro'y yang tadi dibuat dengan cara klik Run
NB. Pastikan Display Database Windows dalam keadaan Off, cara'y klik Tool - Startup dan hilangkan tanda ceklist Display Database Windows
Sekarang coba jalankan file'y!!!! Semoga Bermanfaat.
Tinggalkan Komentar'y ya!
D
dan untuk bisa langsung ke database windows kita bisa menekan Shift yang berada di keyboard dan klik open, maka kita akan dibawa masuk ke database windows file tersebut.
Disini saya akan membahas bagaimana cara'y agar pada saat kita membuka'y dengan cara diatas, tapi database windows tidak bisa terbuka. Langsung saja
1. Buka file yang akan kita disable shift key'y dan masuk ke database windows
2. Buat Module dengan nama terserah sesuka anda. dan masukan kode di bawah ini.
'---------------------------------------------------------------------'
' Module: DisableShiftKey '
' Date: July 18, 2003 '
' '
' Purpose: To stop the user from holding the shift key on startup to '
' access the database window. '
'---------------------------------------------------------------------'
Option Compare Database
Option Explicit
'----------------------------------------------------------------------
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
'----------------------------------------------------------------------
Function BypassKey(onoff As Boolean)
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, onoff
End Function
'-----------------------------------------------------------------------
Terus simpan
3. Buat Macro dengan nama ByPassKeyOff
di bagian Action pilih Runcode
Function masukan "BypassKey(False)" tanpa kutip.
Terus simpan
4. Jalankan dah tuh file macro'y yang tadi dibuat dengan cara klik Run
NB. Pastikan Display Database Windows dalam keadaan Off, cara'y klik Tool - Startup dan hilangkan tanda ceklist Display Database Windows
Sekarang coba jalankan file'y!!!! Semoga Bermanfaat.
Tinggalkan Komentar'y ya!
D