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
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
