Persada Blog

1. Mengenal Microsoft Access 2007
2. Memulai Bekerja dengan Access 2007 
3. Membuat dan Memodifikasi Tabel 
4. Mengubah atau Mengatur Tampilan Baris, Kolom dan Data pada Tabel 
5. Mengurutkan, Menyaring, Mencari dan Mengganti Data 
6. Membuat dan Mengatur Hubungan Antar Tabel
7. Membuat dan Menggunakan Query 
8. Bekerja Lebih Lanjut dengan Query
9. Menggunakan Query Action
10. Membuat Field Entri Data Khusus dan Command Button pada Form 
11. Merancang dan Membuat Report 
12. Menempatkan Obyek Gambar, Tanggal dan Nomor Halaman
    pada Form atau Report 
13. Menggunakan Menu Navigasi Berupa Switchboard dan Form 
14. Mengekspor Data, Mengambil Data dari Luar dan
    Menggunakan Password
15. Menggunakan Macro 

Function ap_DisableShift()
'This function disable the shift at startup. This action causes
'the Autoexec macro and Startup properties to always be executed.

On Error GoTo errDisableShift

Dim db As DAO.Database
Dim prop as DAO.Property
Const conPropNotFound = 3270

Set db = CurrentDb()

'This next line disables the shift key on startup.
db.Properties("AllowByPassKey") = False

'The function is successful.
Exit Function

errDisableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
Exit Function
End If

End Function

Function ap_EnableShift()
'This function enables the SHIFT key at startup. This action causes
'the Autoexec macro and the Startup properties to be bypassed
'if the user holds down the SHIFT key when the user opens the database.

On Error GoTo errEnableShift

Dim db as DAO.Database
Dim prop as DAO.Property
Const conPropNotFound = 3270

Set db = CurrentDb()

'This next line of code disables the SHIFT key on startup.
db.Properties("AllowByPassKey") = True

'function successful
Exit Function

errEnableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
Exit Function
End If

End Function

Private Sub Form_load()
ap_DisableShift

End Sub