Merhaba,
Referanslara "ActiveX Data Objects X.X Library" referansını ekle,

Modüle 

Public Function Yan_Yana(Sorgum As String)



Dim rs As New ADODB.Recordset



rs.Open Sorgum, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Yan_Yana = ""

i = 0



While Not rs.EOF

    For Each GVeri In rs.Fields

        i = i + 1

            If i = 1 Then

                Yan_Yana = GVeri.Value

            Else

                Yan_Yana = Trim(Yan_Yana) & ", " & GVeri.Value

            End If

    Next

    rs.MoveNext

Wend

rs.Close

Set rs = Nothing



Yan_Yana = Trim(Yan_Yana)



End Function

MODÜLÜ KAYDET.

Firmaincele isimli formun kayıt kaynağındaki sorguda bulunan "d_kat" sütununu aşağıdaki ile değiştir.

gd_kat: Yan_Yana("SELECT DISTINCT d_kat FROM dukkan WHERE firma_id=" & [dukkan].[firma_id])

Aynı formdaki d_kat metin kutusunun denetim kaynağını gd_kat olarak değiştir.