Public Function YanYana(Yer As Long, Kim As String) As String
Dim Kyt As Recordset, Yaz As String
Set Kyt = CurrentDb.OpenRecordset("Select deneme1.bolge, deneme1.olusan_sayý FROM deneme1 LEFT JOIN vardiya ON (deneme1.vardiya = vardiya.vardiya) AND (deneme1.tarih = vardiya.tarih) AND (deneme1.bolge = vardiya.bolge) WHERE (((vardiya.personel) = '" & Kim & "')) GROUP BY deneme1.bolge, deneme1.olusan_sayı ORDER BY deneme1.bolge, deneme1.olusan_sayı")
If Kyt.RecordCount = 0 Then Exit Function
Do Until Kyt.EOF
Yaz = Yaz & Kyt(IIf(Yer = 1, "bolge", "olusan_sayı")) & ", "
Kyt.MoveNext
Loop
Kyt.Close
Set Kyt = Nothing
YanYana = Mid(Yaz, 1, Len(Yaz) - 2)
End Function