Properti AllowBypassKey

Anda dapat menggunakan properti AllowBypassKey untuk menentukan apakah tombol SHIFT diaktifkan untuk melewati properti mulai dan makro AutoExec. Misalnya, Anda dapat mengatur properti AllowBypassKey ke False untuk tidak mengizinkan pengguna melewati properti mulai dan makro AutoExec.

Pengaturan

Properti AllowBypassKey menggunakan pengaturan berikut ini.

Pengaturan

Deskripsi

True

Aktifkan tombol SHIFT untuk memperbolehkan pengguna melewati properti startup dan makro AutoExec.

False

Nonaktifkan tombol SHIFT untuk mencegah pengguna melewati properti startup dan makro AutoExec.


Anda dapat mengatur properti ini menggunakan makro atau kode Visual Basic for Applications (VBA).

Untuk mengatur properti AllowBypassKey menggunakan makro atau kode Visual Basic for Applications (VBA), buat properti dengan cara berikut:

  • Dalam database Microsoft Access (.mdb atau .accdb), Anda dapat menambahkan properti menggunakan metode CreateProperty lalu menambahkannya ke kumpulan Properti dari objek Database.

  • Dalam proyek Microsoft Access (.adp), Anda bisa menambahkan properti ke kumpulan AccessObjectProperties dari objek CurrentProject dengan menggunakan metode Tambahkan.

Keterangan

Anda harus memastikan bahwa properti AllowBypassKey diatur ke True saat melakukan debug aplikasi.

Pengaturan properti AllowBypassKey tidak akan diterapkan hingga selanjutnya database aplikasi tersebut dibuka.

Contoh

Contoh berikut ini memperlihatkan prosedur bernama SetBypassProperty yang melewati nama properti yang akan diatur, tipe datanya, dan pengaturan. Prosedur tujuan umum ChangeProperty berusaha untuk mengatur properti AllowBypassKey, dan jika properti tidak ditemukan, menggunakan metode CreateProperty untuk menambahkan properti ke kumpulan Properti. Langkah ini penting karena properti AllowBypassKey tidak muncul dalam kumpulan Properti hingga properti tersebut ditambahkan.

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
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
Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×