Kod:
Function YanYanaAHLATDER(ADSO As String) As String
Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL As String
Dim D1 As String
Set db = CurrentDb()
strSQL = "SELECT * FROM PLAN ORDER BY PLAN.AdiSoyadi, PLAN.Tarih, PLAN.Saat, PLAN.Yer, PLAN.Birim;"
Set rs = db.OpenRecordset(strSQL)
D1 = "["
If rs.EOF = True Then GoTo 90
rs.MoveFirst
Do Until rs.EOF
If rs!İşlem <> "AHLATDER" Then GoTo 200
If rs!AdiSoyadi = ADSO Then D1 = D1 & rs!Görev & ">" & rs!Tarih & "-" & rs!saat & "-" & rs!Yer & "] + ["
200
rs.MoveNext
Loop
90
If Len(D1) = 0 Then YanYana = "": GoTo 100
YanYanaAHLATDER = Left(D1, Len(D1) - 3)
100
End Function