SQL = "Select [Ad Soyad], Gorev From SorguAdi Where (((Tarih)=#" & Format(TrHA, "mm\/dd\/yyyy") & "#))"

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
    Dim TrHA As Date
    Sw = Sw + 1: TrHA = DateAdd("d", Sw, Forms!frm3ay!baslan)
If TrHA > CDate(Forms!frm3ay!bitis) Then
            Me.NextRecord = True
ElseIf TrHA <= CDate(Forms!frm3ay!bitis) Then
Dim Kyt As New ADODB.Recordset, Alan(4), SQL As String
    SQL = "Select yer, cıkıs_saat, donus_saat, plaka, gorev_turu From srg3ay_akif 
Where (((cıkıs_tarihi1)=#" & Format(TrHA, "mm\/dd\/yyyy") & "#))"
 
      Me.NextRecord = False
  Kyt.Open SQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
  If Kyt.BOF = False Then
    Do Until Kyt.EOF
        Alan(0) = Alan(0) & Kyt(0) & " / "
        Alan(1) = Alan(1) & Kyt(1) & " / "
        Alan(2) = Alan(2) & Kyt(2) & " / "
        Alan(3) = Alan(3) & Kyt(3) & " / "
        Alan(4) = Alan(4) & Kyt(4) & " / "
 
          Kyt.MoveNext
    Loop
      Kyt.Close: Set Kyt = Nothing
      Me.yer = Mid(Alan(0), 1, Len(Alan(0)) - 2)
      Me.gsaat = Mid(Alan(1), 1, Len(Alan(1)) - 2)
      Me.dsaat = Mid(Alan(2), 1, Len(Alan(2)) - 2)
      Me.plaka = Mid(Alan(3), 1, Len(Alan(3)) - 2)
      Me.gorev_turu = Mid(Alan(4), 1, Len(Alan(4)) - 2)
 
 
  Else
   Me.yer = ""
      Me.gsaat = ""
      Me.dsaat = ""
      Me.plaka = ""
      Me.gorev_turu = ""
  End If
    Me.trh = TrHA
 
End If
End Sub