Kod:
Private Sub Komut2_Click()
'Rapor kapalı ise açıyor, açıksa sorun yok.
DoCmd.OpenReport "Rapor1", acViewReport, "", "", acNormal
'Anaform daki metin kutusunu aktar?yor
Reports("Rapor1").Metin2.ControlSource = "='" & Me.Metin0.Value & "'"
'Altform daki metin kutusunu aktar?yor
Reports("Rapor1").Metin4.ControlSource = "='" & Me.Form2.Controls("Metin1").Value & "'"
End Sub