forma Buton ekleyin, tıklandığında olayına aşağıdaki kodu yazın.
Dim TabloAdi As String
TabloAdi = "T_G" & Me.yilsec
DoCmd.OpenReport "R_USTYAZI", acViewDesign
Reports!R_USTYAZI.RecordSource = "SELECT " & TabloAdi & ".[sayisi], '{\rtf1\ansi\ansicpg1254\deff0\deflang1055{\fonttbl{\f0\fnil\fcharset162 Times New Roman TUR;}}{\colortbl ;\red0\green0\blue0;}{\*\generator Riched20 5.40.11.2220;}\viewkind4\uc1\pard\qj\cf1\f0\fs24\tab ' & [icerik] & '\par\tab ' & [icerik2] & '\par\tab ' & [icerik3] & '\par\tab ' & [icerik4] & '\par}' AS icerikler, * FROM " & TabloAdi & " WHERE ((([sayisi])=[Forms]![F_GIDENEVRAK]![sayisi]))"
DoCmd.Close acReport, "R_USTYAZI", acSaveYes
DoCmd.OpenReport "R_USTYAZI", acViewPreview
"sayisi" metin kutusundaki veriye göre seçtiğiniz "yilsec" değerindeki tabloyu raporun kayıt kaynağı yapılır.