Bu haliyle çalışıyor (..... KENDİR ) rapora geliyor
ama isterseniz birde bunu deneyin

Private Sub RaporAltbilgisi_Format(Cancel As Integer, FormatCount As Integer)

Me.a = Dlookup ("[dadisoy]", "tbl_ayar")

End Sub



Private Sub Report_Load()

DoCmd.Maximize



End Sub