MS Access: Cara Membuat Tombol Go To Next, Go To Previous, Go To First, Go To Last Records di ListBox

MS Access: Cara Membuat Tombol Next Previous First Last Records di ListBox 

Catatan:

Nama ListBox dalam konteks ini adalah lstPrhasal

Untuk mengetahui total data yang ada di List Box. 

Buatlah sebuah textBox, kemudian tuliskan kode berikut pada row Source:  =[lstPhrasal].[ListCount]

Private Sub cmdOpenCurrentFolder_Click()

Application.FollowHyperlink CurrentProject.Path

End Sub

Private Sub cmdGoToFirstRecord_Click()

' Go To First Item Records in MS Access ListBox

 Me.lstPhrasal = Me.lstPhrasal.ItemData(0)

 Me.lstPhrasal.Selected(1) = True

End Sub

Private Sub cmdGoToLastRecord_Click()

' Select the last item in List Box

If Me.lstPhrasal.ListIndex < Me.lstPhrasal.ListCount - 1 Then

Me.lstPhrasal = Me.lstPhrasal.ItemData(Me.lstPhrasal.ListIndex + 1)

Me.lstPhrasal.Selected(Form_frmDictionary.lstPhrasal.ListCount - 1) = True

Else

Me.lstPhrasal = Me.lstPhrasal.ItemData(0)

End If

End Sub

Private Sub cmdGoToNextRecord_Click()

' Source Code : https://sites.google.com/site/mymsaccessblog/adding-next-and-previous-buttons-to-your-combo-box-or-list-box

' advance to Next Item in combo box

 On Error Resume Next

With Me.lstPhrasal

        .SetFocus ' the combobox has to have the focus to set the ListIndex

        If IsNull(.value) Then ' if combo box is null set it to the first item

            .ListIndex = 0

        ElseIf .ListIndex < .ListCount - 1 Then ' make sure it's not at the last item already

            .ListIndex = .ListIndex + 1 ' select the next item

        End If

    

    End With

End Sub

Private Sub cmdGoToPreviousRecord_Click()

' Source Code : https://sites.google.com/site/mymsaccessblog/adding-next-and-previous-buttons-to-your-combo-box-or-list-box

 ' move to the Previous Item in the combo box

  On Error Resume Next

    With Me.lstPhrasal

        .SetFocus

        If IsNull(.value) Then ' if combo box is null set it to the first item

            .ListIndex = 0

        ElseIf .ListIndex > 0 Then ' make sure we're not already at the first item

            .ListIndex = .ListIndex - 1 ' select the previous item

        End If

                

    End With

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

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