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.