+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: formda açılır kutu ile raporları görmek (/konu-formda-acilir-kutu-ile-raporlari-gormek.html)
Cvp: formda açılır kutu ile raporları görmek - Despise - 23/04/2009
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 ?.
Cvp: formda açılır kutu ile raporları görmek - okileturc - 23/04/2009
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));Cvp: formda açılır kutu ile raporları görmek - esrefigit - 24/04/2009
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
Cvp: formda açılır kutu ile raporları görmek - benremix - 10/12/2009
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
Cvp: formda açılır kutu ile raporları görmek - ozanakkaya - 11/12/2009
(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.
Cvp: formda açılır kutu ile raporları görmek - benremix - 11/12/2009
Sn Sledgeab teşekkürler. Dediğinizi yaptım oldu. Yine sizin eklentinizi ekleyerek halloldu. Saygılar...
https://accesstr.net/attachment.php?aid=1759