Sonra da yazdır butonunun kodunu aşağıdaki kodla değiştirmeyi deneyin
Dim OgRs As DAO.Recordset
Dim sqlBlok As String
sglblok = " SELECT TblOgrenci.sirano, TblOgrenci.adısoyadı, TblOgrenci.sınıfı, TblOgrenci.okulno, TblPansiyon.kayıtlıoldugublok" & _
" FROM TblOgrenci INNER JOIN TblPansiyon ON TblOgrenci.sirano = TblPansiyon.ogrtc"
Set OgRs = CurrentDb.OpenRecordset(sglblok, dbOpenDynaset)
OgRs.MoveLast
OgRs.FindFirst "[sirano]=" & Açılan_Kutu11
CurrentDb.Execute "delete from tmpTablo"
For x = CLng(Me.txttarih1) To CLng(Me.txttarih2)
If InStr(1, "567", Weekday(x, vbMonday)) < 1 Then
' Debug.Print Format(x, "dd mmmm yyyy - ddd")
CurrentDb.Execute "insert into tmpTablo ([adısoyadı], [sınıfı], [okulno], [NbtTarih], [blok] ) values ('" & _
OgRs.Fields(1) & "','" & OgRs.Fields(2) & "','" & OgRs.Fields(3) & "'," & x & ",'" & OgRs.Fields(4) & "')"
If OgRs.AbsolutePosition = OgRs.RecordCount - 1 Then OgRs.MoveFirst Else OgRs.MoveNext
CurrentDb.Execute "insert into tmpTablo ([adısoyadı], [sınıfı], [okulno], [NbtTarih], [blok] ) values ('" & _
OgRs.Fields(1) & "','" & OgRs.Fields(2) & "','" & OgRs.Fields(3) & "'," & x & ",'" & OgRs.Fields(4) & "')"
If OgRs.AbsolutePosition = OgRs.RecordCount - 1 Then OgRs.MoveFirst Else OgRs.MoveNext
End If
Next x
DoCmd.OpenReport "rpr_ogrnobet", acViewPreview
