MS Access: Cara Menghitung Total Records dan Total Selected Records di ListBox

MS Access: Cara Menghitung Total Records dan Total Selected Records di ListBox

Misal :

- Nama ListBoxnya adalah SIMPLE

- Nama Form adalah FSelectFacilities

- NamaLabel adalah LblDataTerpilih

[1] Menghitung Total Records

    Buat Satu TextBox dan Pada Properties

    RowSource : =[Simple].[ListCount]

[2] Menghitung Total Selected Records

    Buat Satu label, dan pada Properties        AfterUpdate ketik kode berikut:

Private Sub Simple_AfterUpdate()

Me.lblDataTerpilih.Caption = [Simple].[ItemsSelected].[Count]

End Sub

[3] Untuk meyorot Semua Record di List Box

Private Sub Command16_Click()

Dim lngRed As Long, lngBlack, lngYellow As Long, lngWhite As Long

' If Not IsNull(Me!txtPastDue.Value) Then

' curAmntDue = Me!txtPastDue.Value

' Else

' Exit Sub

' End If

 lngRed = RGB(255, 0, 0)

 lngBlack = RGB(0, 0, 0)

 lngYellow = RGB(255, 255, 0)

 lngWhite = RGB(255, 255, 255)

' If curAmntDue > 100 Then

' Me.LblJobGrade.Visible = True

' Me.JobGrade.Visible = True

' Me!JobGrade.BorderColor = lngRed

' Me!JobGrade.ForeColor = lngRed

' Me!JobGrade.BackColor = lngYellow

Select Case Command16.Caption

Case "Select All"

Me.Command16.Caption = "Unselect All"

Me!Command16.ForeColor = lngRed

Dim I As Integer

'For i = 0 To lstSearch.ListCount

'lstSearch.Selected(i) = True

'Next

For I = 0 To Me.Simple.ListCount - 1

Me.Simple.Selected(I) = True

Next

Case "Unselect All"

Dim lngX As Long

With Me.Simple

For lngX = (.ItemsSelected.Count - 1) To 0 Step -1

.Selected(.ItemsSelected(lngX)) = False

Next lngX

End With

Me.Command16.Caption = "Select All"

Me!Command16.ForeColor = lngBlack

End Select

End Sub

    

Private Sub clearListBox()

    Dim iCount As Integer

    For iCount = 0 To Me!Simple.ListCount

        Me!Simple.Selected(iCount) = False

    Next iCount

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 Share

Read More

MS Access: Cara Menutup Current Form Yang Sedang Aktif

MS Access: Cara Menutup Current Form
Yang Sedang Aktif

 DoCmd.Close acForm, Me.Name, acSaveNo

You use this (exactly as shown)

DoCmd.Close acForm, Me.Name, acSaveNo

And you should use SAVE NO instead of prompt because this setting has to do with DESIGN changes on the form and has nothing to do with saving records.



Source: Jika Tidak Ada Form Aktif  Karena telah ditutup

The problem is that it isn't the active form when you click on another form which has the button.  So one way is to have a global variable (declare it in the general declarations section in a STANDARD MODULE like this:

Public strForm As String

And then in the On Activate event of each form (EXCEPT the one you have the button on) you would put the

strForm = Me.Name

and then it would be able to be used as

DoCmd.Close acForm, strForm, acSaveNo

from the code on the button.

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 Share

Read More