MS Access: Cara Membuka Options Dialog Dengan Bantuan Function

MS Access: Cara Membuka Options Dialog Dengan Bantuan Function

MS Access: Cara Membuka Options Dialog Dengan Bantuan Function

Private Sub OptionsDialog_Click()

 '-- tambahan password

    

    Dim strInput As String

    Dim strMsg As String

    

    Beep

    strMsg = "This form is used only by the ''Table Contacts'' people." & vbCrLf & vbLf & "Please enter the ''1234'' password to allow access."

    strInput = InputBox(Prompt:=strMsg, Title:="Special Password")

     If strInput = "1234" Then 'password is correct

        'DoCmd.SelectObject acTable, , True

       ' ShowNavigationPane

        Call OpenOptionsDialog

        

    Else 'password is incorrect

        MsgBox "Incorrect Password!" & vbCrLf & vbLf & "You are not allowed access to the ''Employee Table''.", vbCritical, "Invalid Password"

        Exit Sub

    End If

    

    '----  end of tambahan password

    

End Sub

Public Function OpenOptionsDialog() As Boolean

On Error GoTo Error_OpenOptionsDialog

    DoCmd.RunCommand acCmdOptions

    OpenOptionsDialog = True

    

Exit_OpenOptionsDialog:

    Exit Function

Error_OpenOptionsDialog:

    MsgBox Err & ": " & Err.Description

    OpenOptionsDialog = False

    Resume Exit_OpenOptionsDialog

End Function

Database Training Attendance

Kami bergerak dalam pembuatan Website Kantor, Toko Online, MS Access Database, Desain Grafis (Corel Draw & Photoshop), Gambar Teknik, Video Maker, Penjualan Laptop & PC dan lain-lainya

Terimakasih Atas Kunjungan Anda.

Jasa Pembuatan Database Microsoft Access

(Hubungi WA: +6281277403909)

Database Perpustakaan (Library)

Database Link To File and Folder

Database Training Member

Database Daftar Anggota Koperasi

Daftar Link Ke Postingan Forum Online (Internet)

Daftar Kuis Bank Soal Pokok Bahasan Daftar Pertanyaan Tipe B

Database Daftar Transaksi Keuangan

Database Nomor Kontak

Contoh Pengunaan Query Untuk Menentukan

Ranking Terbanyak

Mahanila Engineering Group. Spesialis Dalam Pembuatan Database Microsoft Access

Promo Sampai Jun 2017 

Hubungi Kami:

Mahanila Das - Founder
0812-7740-3909  (HP dan  WA) 
0819-9109-9321 (HP) 

Susanti - Marketing Manager: 
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA) 

ini adalah contoh database yang dapat menyimpan ribuan Link ke Files atau Folder dan juga menyimpan Alamat Website

Contoh Desain Sertifikat Dengan Menggunakan Corel Draw.

Mahanila Das - Director
0812-7740-3909  (HP dan  WA)
0819-9109-9321 (HP)
Marketing Manager: Susanti
HP
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA)

Mahanila Engineering Menerima:

Spanduk, Banner, Sertifikat, Poster, Cover Buku dan Majalah, Brosur, Kartu Nama, Undangan, Logo, Bros, Pin, Neon Box, Sticker, Database Ms Access, Website, Blog, Desain Rumah Tinggal, Konstruksi Bangunan

Hubungi:

Mahanila Das (I Wayan Mesra Ariyawan).

HP/WA 0812-7740-3909

KLIK

DONASI VIA PAYPAL Bantu berikan donasi jika artikelnya dirasa bermanfaat. Donasi akan digunakan untuk memperpanjang domain Website ini https://slokagita.blogspot.com. Terimakasih atas dukungan Anda.

Share Share