Cara mendapatkan item yang dipilih dalam seleksi ganda kotak Daftar sebagai string koma di Microsoft Access

Artikel ini berlaku untuk salah satu file database (MDB) Microsoft Access atau berkas Microsoft Access database (.accdb), dan berkas proyek (.adp) Microsoft Access.
Sedang: Memerlukan dasar makro, pengkodean dan keterampilan interoperabilitas .

Ringkasan

Artikel ini menjelaskan cara mengambil item yang dipilih dari kotak daftar pilihan banyak dan kemudian menyimpan item yang dipilih sebagai string koma di Microsoft Access.

Informasi lebih lanjut

Di Microsoft Access, nilai properti MultiSelect kotak Daftar dalam bentuk atau laporan menentukan apakah kotak daftar kotak daftar pilihan satu atau beberapa kotak daftar pilihan. Dalam beberapa kotak daftar pilihan, Anda dapat memilih beberapa item daftar pada satu waktu.

Anda dapat menggunakan nilai properti kotak Daftar untuk mengambil item yang dipilih dari kotak daftar. Namun, bila Anda menggunakan kotak daftar pilihan banyak dan Anda mencoba untuk mengambil item yang dipilih dengan menggunakan nilai properti, nilai properti mengembalikan Null.

Anda dapat mengambil item yang dipilih di kotak daftar pilihan banyak dan kemudian menyimpan item yang dipilih sebagai string koma secara programatik. Untuk melakukannya, ikuti langkah-langkah berikut:

  1. Mulai Microsoft Access.

  2. Buka database sampel Northwind.

  3. Di bagian objek Database jendela, klik bentuk.

    Catatan Di Access 2007, klik Rancangan borang dalam bentuk grup tab buat .

  4. Di panel kanan, klik dua kali membuat borang di tampilan desain.

    Catatan Di Access 2007, lewati langkah ini.

  5. Menambahkan kontrol berikut ke bentuk, dan kemudian tetapkan properti kontrol yang ditentukan:



    List Box
    ----------------------------------------------------
    Name : NamesList
    Row Source Type : Table/Query
    Row Source : SELECT FirstName FROM Employees
    Multi Select : Extended
    Width : 3.5"
    Height : 0.75"


    Text Box
    -----------------------
    Name : mySelections
    Width : 3.5"
    Height : 0.25"

    Command Button
    ----------------------------------
    Name : testmultiselect
    Caption : Display Selected Items
    Width : 1.375"
    Height : 0.3"

    Command Button
    ----------------------
    Name : ClrList
    Caption : Clear List
    Width : 1.375"
    Height : 0.3"

  6. Pada menu tampilan , klik
    Kode.

    Catatan Di Access 2007, klik Lihat kode dalam kelompok alat tab desain .

  7. Tempel kode berikut dalam Visual Basic Editor:

    Option Compare Database
    Option Explicit

    Private Sub Form_Current()
    Dim oItem As Variant
    Dim bFound As Boolean
    Dim sTemp As String
    Dim sValue As String
    Dim sChar As String
    Dim iCount As Integer
    Dim iListItemsCount As Integer

    sTemp = Nz(Me!mySelections.Value, " ")
    iListItemsCount = 0
    bFound = False
    iCount = 0

    Call clearListBox

    For iCount = 1 To Len(sTemp) + 1
    sChar = Mid(sTemp, iCount, 1)
    If StrComp(sChar, ",") = 0 Or iCount = Len(sTemp) + 1 Then
    bFound = False
    Do
    If StrComp(Trim(Me!NamesList.ItemData(iListItemsCount)), Trim(sValue)) = 0 Then
    Me!NamesList.Selected(iListItemsCount) = True
    bFound = True
    End If
    iListItemsCount = iListItemsCount + 1
    Loop Until bFound = True Or iListItemsCount = Me!NamesList.ListCount
    sValue = ""
    Else
    sValue = sValue & sChar
    End If
    Next iCount
    End Sub

    Private Sub clearListBox()
    Dim iCount As Integer

    For iCount = 0 To Me!NamesList.ListCount
    Me!NamesList.Selected(iCount) = False
    Next iCount
    End Sub

    Private Sub testmultiselect_Click()
    Dim oItem As Variant
    Dim sTemp As String
    Dim iCount As Integer

    iCount = 0

    If Me!NamesList.ItemsSelected.Count <> 0 Then
    For Each oItem In Me!NamesList.ItemsSelected
    If iCount = 0 Then
    sTemp = sTemp & Me!NamesList.ItemData(oItem)
    iCount = iCount + 1
    Else
    sTemp = sTemp & "," & Me!NamesList.ItemData(oItem)
    iCount = iCount + 1
    End If
    Next oItem
    Else
    MsgBox "Nothing was selected from the list", vbInformation
    Exit Sub 'Nothing was selected
    End If

    Me!mySelections.Value = sTemp
    End Sub

    Private Sub clrList_Click()
    Call clearListBox
    Me!mySelections.Value = Null
    End Sub

  8. Tutup Penyunting Visual Basic.

  9. Simpan bentuk sebagai Form1.

  10. Tutup bentuk.

  11. Membuka borang Form1 dalam bentuk tampilan:

    1. Di bagian objek
      Pangkalan data Jendela, klik bentuk.

      Catatan Di Access 2007, di panel navigasi, klik grup bentuk .

    2. Di panel kanan, klik kanan Form1, dan kemudian klik buka.

      Catatan Di Access 2007, klik kanan Form1, dan kemudian klik buka.

  12. Memilih beberapa item di dalam kotak daftar. Untuk melakukannya, klik item di dalam kotak Daftar, tekan terus tombol CTRL, dan kemudian klik lebih banyak item di dalam kotak daftar.

  13. Klik tampilan item yang dipilih.

Item yang dipilih dari kotak daftar pilihan banyak ditampilkan sebagai string koma di kotak teks.

Microsoft menyediakan contoh pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Referensi

Untuk informasi tambahan tentang cara mendapatkan item yang dipilih dari daftar multi-pilih di halaman akses data, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:

225098 ACC2000: cara mengambil nilai yang dipilih dari kotak daftar pilihan banyak di halaman akses Data

Perlu bantuan lainnya?

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung Microsoft Insider

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×