Private Sub SayfaÜstbilgisiBölümü_Format(Cancel As Integer, FormatCount As Integer)
Me.isim1 = Dlookup ("OgrenciAdi", "hb_RaporSorgusu", "OgrenciNo = 1")
'Me.isim2 = Dlookup ("OgrenciAdi", "hb_RaporSorgusu", "OgrenciNo = 2")
End Sub
Şeklinde deneyiniz. Çünkü eklediğiniz metin kutuları Raporun SayfaÜstBilgisiBölümünde yer alıyor.
Kolay gelsin