Form Üzerinden Birden Fazla Rapordan Veri Süzme-filtreleme - Baskı Önizleme +- 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ığı: Form Üzerinden Birden Fazla Rapordan Veri Süzme-filtreleme (/konu-form-uzerinden-birden-fazla-rapordan-veri-suzme-filtreleme.html) |
Cvp: Form Üzerinden Birden Fazla Rapordan Veri Süzme-filtreleme - Oğuz Türkyılmaz - 16/10/2018 (16/10/2018, 08:29)ozanakkaya yazdı: Set qdf2 = CurrentDb.QueryDefs("srg_raporverileri") Select Case crc_emlaktipi Case 1 GEmlakTipi = "KONUT" Case 2 GEmlakTipi = "İŞYERİ" Case 3 GEmlakTipi = "ARSA" End Select Bu kod gibi yazacağımı anladım ama nasıl ve nereye bağlayacağımı çözemedim. İfadelerim yanlış olabilir umarım ne demek istediğimi doğru anlatabiliyorumdur. Kod yazanların jargonuna alışmak benim için biraz zaman alacak zamanla sanırım daha iyi ifade etmeyi başarabilirim. Cvp: Form Üzerinden Birden Fazla Rapordan Veri Süzme-Filtreleme - ozanakkaya - 16/10/2018 Emlak tipi ile ilgili kısım
Emlak türü için; Select Case crc_emlakturu Case 1 GEmlakTuru = "KİRALIK" Case 2 GEmlakTuru = "SATILIK" Case 3 GEmlakTuru = "DEVREN KİRALIK" Case 4 GEmlakTuru = "DEVREN SATILIK" End Select strWhere = strWhere & "([tablodakialan] = """ & GEmlakTuru & """) AND " koddaki crc_emlakturu, emlak türünün seçildiği seçenek grubunun adı, tablodakialan ise verilerin bulunduğu tablodaki alanın adı. crc_emlakturu isimli seçenek grubunda satılık'ı seçerseniz GEmlakTuru değişkenine "SATILIK" değeri atanacaktır. Cvp: Form Üzerinden Birden Fazla Rapordan Veri Süzme-filtreleme - Oğuz Türkyılmaz - 16/10/2018 (16/10/2018, 14:21)ozanakkaya yazdı: Emlak tipi ile ilgili kısım Ozan Bey seçenek grubu başlık isimlerini portföy tablosundaki alan isimleri ile aynı yaptım ve kodda adı geçen yerleride aşağıdaki şekilde değiştirdim. Fakat çalıştırdığımda sorgudaki alanlara baktığımda kategori ve tipi değerlerinin boş olduğunu görüyorum. Birebir herşeyi aynı yaptım fakat hata nerede bulamıyorum. Kodu incelermisiniz lütfen. Cvp: Form Üzerinden Birden Fazla Rapordan Veri Süzme-filtreleme - ozanakkaya - 16/10/2018 Uygulamanızı inceleyemeyeceğim. Kullandığınız kodu yazın. Cvp: Form Üzerinden Birden Fazla Rapordan Veri Süzme-filtreleme - Oğuz Türkyılmaz - 16/10/2018 (16/10/2018, 21:55)ozanakkaya yazdı: Uygulamanızı inceleyemeyeceğim. Kullandığınız kodu yazın. Bu kodu çalıştırdığımda başvuru sorgusu bozulup resimde görüldüğü şekle bürünüyor. Ben sorguyu tekrar düzeltip sonuçları göster dediğimde sorgu yine bozuluyor ve rapor boş bir şekilde ekrana geliyor. Dim qdf2 As DAO.QueryDef Set qdf2 = CurrentDb.QueryDefs("SRG_PORTFOY") GSorgum = "SELECT * FROM TBL_PORTFOY" If crc_musteritipi = 1 Then strWhere = strWhere & "([musteritipi] = ""ALICI"") AND " Else strWhere = strWhere & "([musteritipi] = ""SATICI"") AND " End If Select Case crc_Kategori Case 1 GKategori = "KONUT" Case 2 GKategori = "İŞYERİ" Case 3 GKategori = "ARSA" End Select strWhere = strWhere & "([Kategori] = """ & GKategori & """) AND " Select Case crc_Tipi Case 1 GTipi = "KİRALIK" Case 2 GTipi = "SATILIK" Case 3 GTipi = "DEVREN KİRALIK" Case 4 GTipi = "DEVREN SATILIK" End Select strWhere = strWhere & "([Tipi] = """ & GTipi & """) AND " If Not IsNull(Me.mtn_lokasyon) Then strWhere = strWhere & "((lokasyon1 Like '*" & Me.mtn_lokasyon & "*') or (lokasyon2 Like '*" & Me.mtn_lokasyon & "*') OR (lokasyon3 Like '*" & Me.mtn_lokasyon & "*')) AND " End If If Me.esyali = 0 Then strWhere = strWhere & "([esyali] = 0) AND " Else strWhere = strWhere & "([esyali] = -1) AND " End If lngLen = Len(strWhere) - 5 If lngLen <= 0 Then MsgBox "No criteria", vbInformation, "Nothing to do." Else strWhere = Left$(strWhere, lngLen) GSorguTamami = GSorgum & " where " & strWhere End If Me.mtn_sorgu = GSorguTamami qdf2.SQL = GSorguTamami DoCmd.OpenReport "R_002_PORTFOY", acViewPreview, , , acWindowNormal End Sub Cvp: Form Üzerinden Birden Fazla Rapordan Veri Süzme-Filtreleme - ozanakkaya - 17/10/2018 Koddaki crc_Tipi ve crc_Kategori, seçenek kutusunun adı. Sizin formunuzdaki seçenek grubunun adı doğru mu kontrol edin. Hazır çalışan 2 adet seçenek var iken onu da bozmuşsunuz. Denetim isimlerini kontrol edin. 2 seçenek grubu ve sıkıntılı olan metin kutusu için Kodu hazırlamıştım. Tamamını ben yapamam. Ben yaparsam işin anlamı kalmaz. |