Sn Volkan1
Sanırım Seruz hocamın örnek gibi istemiştiniz. Örneğinizi uyarladım.
Yapılanlar kısaca
Açılan kutunuzun satır kaynağına rapor isimleri ; ayrılarak yazıldı.
Güncelleştirmesonrasında olayına
Private Sub Açılan_Kutu4_AfterUpdate()
On Error Resume Next
DoCmd.OpenReport Açılan_Kutu4
End Sub

yazıldı.

Satırkaynak türü Değer Listesi seçildi.

Saygılar...

---

Pardon Alpeki hocam...