Onursal Üye
Onursal Üye
Additional groups:Üye
Sayın üyemiz ayni çözümü birkaç kez
sunduk. Amacınızı bilmediğim için sadece
çözümü yazıyorum.
1. Raporunuzdaki [Deneme Adı] denetimini silin
2. Raporunuzun Sayfa Üst bilgisi bölümüne [metinyaz] isimli
ilşkisiz bir denetim ekleyin
3. Raporunuzun "Etkinleştiğinde" olayına aşağıdaki kodu yazın
4. Kaydedin, raporunuzu açın
Private Sub Report_Activate()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim deneme As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from denemeler")
deneme = ""
With rst
Do While Not .EOF
deneme = deneme + ![Deneme Adı] & " - "
.MoveNext
Loop
End With
Reports!denemeler!metinyaz = deneme
End Sub
Kolay gelsin
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla