-->

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.

Jumat, 21 Februari 2020

MS Access: Cara Mengurutkan Data (Sort) Pada ListBox

MS Access: Cara Mengurutkan Data (Sort) Pada ListBox








Private Sub frm_SortBy_Click()

Dim sSQL As String
Me.cmbFilter.value = "<All>"
Me.cmbSearchPhrasal.value = "<All>"

sSQL = "SELECT Assets.ID, Assets.Scope, Assets.Agenda, Assets.Pertanyaan, Assets.NoSoal, Assets.TglDibuat, Assets.Nilai, Assets.Status, Assets.Jawaban, Assets.Owner, Assets.Manufacturer, Assets.Attachments, Assets.[Retired Date], Assets.SoalArsip, Assets.Location, Assets.[Acquired Date],  Assets.Group, Assets.Summary, Assets.Remarks, Assets.Purport, Assets.Category, Assets.myImage, Assets.myLink, Assets.myAttachment, Assets.DateAdded, Assets.UpdatedOn FROM Assets"


Select Case Me.frm_SortBy
  Case 1  'Last Name
          sSQL = sSQL & " ORDER BY Scope ASC;"
          Me.lstPhrasal.RowSource = sSQL
          Me!lstPhrasal.Requery
                    
  Case 2  'First Name    
          sSQL = sSQL & " ORDER BY Agenda ASC;"
          Me.lstPhrasal.RowSource = sSQL
          Me!lstPhrasal.Requery
           
           
  Case 3 'Last Name               
          sSQL = sSQL & " ORDER BY Scope DESC;"
          Me.lstPhrasal.RowSource = sSQL
          Me!lstPhrasal.Requery
            
                        
  Case 4 'First Name      
         sSQL = sSQL & " ORDER BY Agenda DESC;" 
         Me.lstPhrasal.RowSource = sSQL
         Me!lstPhrasal.Requery
           
           
End Select
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+

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

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

-->
-->