Skip to main content

AccessTr.neT


formda açılır kutu ile raporları görmek

formda açılır kutu ile raporları görmek

Çözüldü #19
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 ?.
Cevapla
Çözüldü #20
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
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #21
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
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Çözüldü #22
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
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
Çözüldü #23
(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.
Cevapla
Çözüldü #24
Sn Sledgeab teşekkürler. Dediğinizi yaptım oldu. Yine sizin eklentinizi ekleyerek halloldu. Saygılar...

https://accesstr.net/attachment.php?aid=1759
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task