Ya ben Dönem Ödevi yapıyorm da bunu uygulayamadım veritabanıma ..

4 Adet Raporum var; Doktor Bilgileri Raporu, Hasta Bilgileri Raporu, Hasta Muayene Raporu, Personel Bilgileri Raporu

Açılan Kutuda Seçip Raporu Açamadım. rica etsem kodunu Gönderebilirmisiniz ?.

Az önce siteye benzer bir örnek daha gönderdim
onu da inceleybilirsiniz. Yapacağınız combobox
veya list box kaynağına aşağıdaki kodu yapıştırın
selamlar

açılır kutunun satır kaynak türünü değer listesi yap ondan sonra bu fonksiyonu formun açıldığında çağır bu arada açılır kutunun adıda raporlar olacak

Public Sub raporlistele()

Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
Dim liste As String
For Each obj In dbs.AllReports
liste = liste & ";" & obj.Name
Next obj
raporlar.RowSource = liste
End Sub

Sn Seruz Hocamın 14. mesajdaki eklentiyi programıma eklemek istedim. Burada hata veriyor. Nasıl uyarlayabiliriz. Saygılar...

Public Function SetListBox(ObjectType As Integer)
On Error GoTo Function_Err

Dim db As ADO.Database
Dim rst As ADO.Recordset
Dim strSQL As String
Dim intNum As Integer
Dim strData As String

Set db = CurrentDb()

OpenType = ObjectType

Select Case ObjectType

(10/12/2009, 22:21)benremix yazdı: Sn Seruz Hocamın 14. mesajdaki eklentiyi programıma eklemek istedim. Burada hata veriyor. Nasıl uyarlayabiliriz. Saygılar...

Public Function SetListBox(ObjectType As Integer)
On Error GoTo Function_Err

Dim db As ADO.Database
Dim rst As ADO.Recordset
Dim strSQL As String
Dim intNum As Integer
Dim strData As String

Set db = CurrentDb()

OpenType = ObjectType

Select Case ObjectType

referanslara "Microsoft Ado Ext. .... " eklenince düzelecek gibi duruyor.

Sn Sledgeab teşekkürler. Dediğinizi yaptım oldu. Yine sizin eklentinizi ekleyerek halloldu. Saygılar...

https://accesstr.net/attachment.php?aid=1759