-->

Featured Post

Daftar Harga Terbaru Database Ms Access.

Contoh Desain Sertifikat Dengan Menggunakan Corel Draw. Contoh Desain Sertifikat Dengan Menggunakan Corel Draw. ...

... [ Untuk Konsultasi dan Pemesanan Paket Database Microsoft Access Silahkan Hubungi HP/WA: 081277403909 ] ...
DONATE VIA PAYPAL Bagi para sponsor/ dermawan/ donatur yang berkenan membantu memberikan donasi untuk pengembangan website ini https://slokagita.blogspot.com. Dapat menyalurkannya melalui paypal. Terimakasih banyak atas dukungan Anda.
Tampilkan postingan dengan label Module. Tampilkan semua postingan
Tampilkan postingan dengan label Module. Tampilkan semua postingan

Kamis, 13 Februari 2020

MS Access: Menampilkan MSysObjects List (Table, Query, Form, Macro, Module, Report)

MS Access: Menampilkan MSysObjects List (Table, Query, Form, Macro, Module, Report)


Option Compare Database


Private Sub Form_Load()
' https://support.microsoft.com/en-us/help/280372/how-to-fill-a-list-box-or-a-combo-box-with-database-object-names
' https://www.techrepublic.com/blog/microsoft-office/use-a-form-to-display-a-list-of-reports-and-queries-in-an-access-database/


'AccessObject        Collection               Contains information about
' -----------------------------------------------------------------------
'Database diagram    AllDatabaseDiagrams      Saved database diagrams
'Form                AllForms                 Saved forms
'Function            AllFunctions             Saved functions
'Macro               AllMacros                Saved macros
'Module              AllModules               Saved modules
'Query               AllQueries               Saved queries
'Report              AllReports               Saved reports
'Stored procedure    AllStoredProcedures      Saved stored procedures
'Table               AllTables                Saved tables
'View                AllViews                 Saved views
' -----------------------------------------------------------------------

    Dim accObject As Access.AccessObject
    
    'Fill with Tables
    
    'For Each accObject In CurrentData.AllFunctions
    '    Me.ListObjects.AddItem "Function;" & accObject.Name
    'Next
    
    'For Each accObject In CurrentData.AllMacros
    '    Me.ListObjects.AddItem "Macro;" & accObject.Name
    'Next

    
    For Each accObject In CurrentData.AllTables
        Me.ListObjects.AddItem "TABLE;" & accObject.Name
    Next
        
    'If currently opened file is an Access database (mdb), then fill
    'with queries.
    'Otherwise, if it is an Access project (adp), fill with views,
    'stored procedures, database diagrams, and functions.
    If CurrentProject.ProjectType = acMDB Then
        For Each accObject In CurrentData.AllQueries
             Me.ListObjects.AddItem "QUERY;" & accObject.Name
        Next
    Else
        For Each accObject In CurrentData.AllViews
            Me.ListObjects.AddItem "VIEW;" & accObject.Name
        Next
        For Each accObject In CurrentData.AllStoredProcedures
            Me.ListObjects.AddItem "PROCEDURE;" & accObject.Name
        Next
        For Each accObject In CurrentData.AllDatabaseDiagrams
            Me.ListObjects.AddItem "DIAGRAM;" & accObject.Name
        Next
        For Each accObject In CurrentData.AllFunctions
            Me.ListObjects.AddItem "FUNCTION;" & accObject.Name
        Next
        
        For Each accObject In CurrentData.AllMacros
        Me.ListObjects.AddItem "Macro;" & accObject.Name
        Next
        
    End If
    
    'Fill list with forms.
    For Each accObject In CurrentProject.AllForms
        Me.ListObjects.AddItem "FORM;" & accObject.Name
    Next
    
  '  'Fill list with Queriess.
  '  'For Each accObject In CurrentProject.AllQueries
 ' ' ' Me.ListObjects.AddItem "QUERY;" & accObject.Name
 ' '  Next

    
    'Fill list with reports.
    For Each accObject In CurrentProject.AllReports
        Me.ListObjects.AddItem "REPORT;" & accObject.Name
    Next
    'Fill list with data access pages.
    For Each accObject In CurrentProject.AllDataAccessPages
        Me.ListObjects.AddItem "PAGE;" & accObject.Name
    Next
    'Fill list with macros.
    For Each accObject In CurrentProject.AllMacros
        Me.ListObjects.AddItem "MACRO;" & accObject.Name
    Next
    'Fill list with modules.
    For Each accObject In CurrentProject.AllModules
        Me.ListObjects.AddItem "MODULE;" & accObject.Name
    Next
End Sub

Private Sub ListObjects_DblClick(Cancel As Integer)
' DoCmd.OpenForm , accObject.Name, acNormal
' Dim rptReport As String
' rptReport = Me.MyListBox.Column(2)
' DoCmd.OpenReport rptReport, acPreview
' DoCmd.Close acForm, "ReportForm"

Dim DocName As String
Dim LinkCriteria As String
Dim accObject As Access.AccessObject
    ' DoCmd.Maximize

If Me.ListObjects.Column(0) = "Form" Then
   DocName = Me.ListObjects.Column(1)
   DoCmd.OpenForm DocName, , , LinkCriteria
   
ElseIf Me.ListObjects.Column(0) = "Report" Then
   DocName = Me.ListObjects.Column(1)
   DoCmd.OpenReport DocName, acViewPreview, , LinkCriteria
   
ElseIf Me.ListObjects.Column(0) = "Table" Then
   DocName = Me.ListObjects.Column(1)
   DoCmd.OpenTable DocName, acViewNormal
   
ElseIf Me.ListObjects.Column(0) = "Query" Then
   DocName = Me.ListObjects.Column(1)
   'DoCmd.OpenQuery DocName, acViewPreview, , LinkCriteria
   'DoCmd.OpenQuery "Sales Totals Query", , acReadOnly
   DoCmd.OpenQuery DocName, acViewNormal
   
ElseIf Me.ListObjects.Column(0) = "Macro" Then
   DocName = Me.ListObjects.Column(1)
   'DoCmd.OpenTable DocName, acViewNormal
   DoCmd.RunMacro DocName
   
ElseIf Me.ListObjects.Column(0) = "Module" Then
   DocName = Me.ListObjects.Column(1)
   'DoCmd.OpenTable DocName, acViewNormal
      
Else

End If

'For Each accObject In CurrentProject.AllReports
 '       'Me.listObjects.AddItem "REPORT;" & accObject.Name
  '      DoCmd.OpenReport DocName, acViewPreview, , LinkCriteria
  '  Next
    
'If Me.ListObjects.Column(0) = "Report" Then
 '  DocName = Me.ListObjects.Column(1)
  ' DoCmd.OpenReport "DocName", , , LinkCriteria
   'DoCmd.OpenReport "DocName", acViewNormal
   'DoCmd.OpenReport "Sales Report", acViewNormal, "Report Filter"
'Else



End Sub





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

Share:  Facebook Twitter Google+

Rabu, 29 Januari 2020

Cara Memunculkan "N/A" pada field "Date/Time" di Microsoft Access

Cara Memunculkan "N/A" pada field "Date/Time" di Microsoft Access






Tempatkan kode di properties Format pada Table Properties atau Form Properties field dengan Data Type "Date/Time" sbb:

dd-mmm-yyyy;;;"N/A"



Data Karyawan, Data Siswa Dan TreeView

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


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

Share:  Facebook Twitter Google+
Blogger Tips and TricksLatest Tips And TricksBlogger Tricks -->

Like & Visit us:

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.
Note Terimakasih Telah Berkunjung Ke Website Kami. Semoga Artikelnya Bermanfaat Buat Kita Semua. Salam Sejahtera...
Quotes
Class
Preaching

BG 9.22 Mereka yang hanya memuja-Ku saja, tanpa memikirkan yang lainnya lagi, yang senantiasa penuh pengabdian, kepada mereka Ku-bawakan segala apa yang mereka tidak punya dan Ku-lindungi segala apa yang mereka

"Dari delapan belas Purana, Srimad-Bhagavatam adalah salah satu Purana. Dan dalam satu Purana anda menemukan delapan belas ribu ayat, dan setiap kata sangat bermakna sehingga anda belajar sepanjang hidup anda, oh, masih anda akan menemukan yang segar." (Class Srila Prabhupada, SB 5.5.1-2, London, 13 September 1969)

Caitanya-Caritamrta menjelaskan tentang Kemajuan dalam Kehidupan Spiritual di Berbagai Yuga (zaman): Untuk kemajuan dalam kehidupan spiritual, sastra merekomendasikan meditasi pada Satya-yuga, korban suci untuk kepuasan Tuhan Visnu pada Treta-yuga, dan pemujaan Arca yang indah di kuil pada Dvapara-yuga, tetapi di zaman Kali seseorang dapat mencapai kemajuan spiritual hanya dengan mengucapkan nama suci Tuhan. "Penjelasan Caitanya-Caritamrta Adi Lila 7.76"

-->
alt gambar alt gambar
-->

Label

image image image Mahanila
image image image Mahanila
image image image Mahanila
Mahanila

Bhagavad-gita Menurut Aslinya

Buku Bhagavad-gita ini hendaknya dibaca secara rutin setiap hari khususnya di malam hari. Di pagi hari kita hendaknya membaca buku Srimad Bhagavatam. Untuk pemesanan, silahkan hubungi kami di HP/WA: 081277403909. Terimakasih Atas Kunjungan Anda.

Mahanila

Ajaran Abadi Upadesamrita

Buku ini sangat direkomendasikan bagi siapa saja yang baru memulai mempelajari ajaran tentang Bhakti Yoga. Ajaran yang sangat penting dari Rupa Goswami ini selalu menjadi pedoman penting. Untuk pemesanan, silahkan hubungi kami di HP/WA: 081277403909. Terimakasih Atas Kunjungan Anda.

Mahanila

Krishna Personalitas Tuhan Yang Maha Esa

Buku ini dalam satu set, terdiri dari 5 buku (5 jilid). Buku ini sangat baik untuk dibaca dan akan menambah wawasan dan pengetahuan kita tentang siapa sebenarnya Kepribadian Tuhan Yang Maha Esa. Untuk pemesanan, silahkan hubungi kami di HP/WA: 081277403909. Terimakasih Atas Kunjungan Anda.

Mahanila

Srimad Bhagavatam

Buku Srimad Bahagavatam ini sepenuhnya rohani yang mencertikan tentang Lila Tuhan (Kegiatan Rohani/ Permainan Illahi). Buku ini hendaknya dibaca secara rutin setiap hari khususnya di pagi hari. Buku ini sangat direkomendasikan untuk memilikinya. Untuk pemesanan, silahkan hubungi kami di HP/WA: 081277403909.

Mahanila

Gita Mahamatya

Buku ini menceritakan dialog antara Dewa Shiva dan Devi Parvati tentang kemulian Tuhan Yang Maha Esa. Dijelaskan pula tentang manfaat mengucapkan Nama Suci Tuhan pada jaman kaliyuga sekarang ini. Untuk pemesanan hubungi kami di HP/WA: 081277403909. Terimakasih Atas Kunjungan Anda.

Expand + | - Collapse

-->
-->