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
Kod:
SELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Type)=-32764));
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.