Açılan kutunun satır kaynağına eklenen sorguları düzenlemeniz gerekli, açılan kutuda gösterilecek veri sorguda ilk sütun olmalı ve ilişkili sütun 1 olmalı.

.RowSource = "Sorgudurum" 'sorgu kaynağı

.ColumnCount = 2 'sütun sayısı

.BoundColumn = 2 'ilişkili sütun

Bu kodlara gerek yok, Sorgudurum kodu ve sorgusu yerine direkt

.rowsource = "SELECT durum FROM tbl_personel GROUP BY tbl_personel.durum;"

kodu kullanılabilir. @mehmetdemiral hocamın dediği gibi if yerine select case daha uygun olur. 

Select Case cerceverapor



Case 1



    Me.acrapor.Enabled = False

    Me.etrapor.Caption = "Tüm Personel Listesi"



Case 2



    Me.acrapor.Enabled = False

    Me.etrapor.Caption = "Tüm Personel Listesi"

    Me.acrapor.RowSource = "SELECT durum FROM tbl_personel GROUP BY durum;"



Case 3



    Me.acrapor.Enabled = True

    Me.etrapor.Caption = "Kaldığı Yer"

    Me.acrapor.RowSource = "SELECT kaldigiyer FROM tbl_personel GROUP BY kaldigiyer;"



Case 4



    '......



Case 5



    '......



Case 6



    '......



Case 7



    '......

    

End Select