+- 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ığı: çoktan seçmeli rapor kodu (/konu-coktan-secmeli-rapor-kodu.html)
seçmeli rapor hk - osman06 - 24/12/2008
ekteki dosyada raporlar bölümünde toplu raporu açtığımda seçim krıteri geliyor tarihi hallettim ama listeden seçtiklerimin raporunu versin bunu halledemedim. tşk
saygılar,
Cvp: seçmeli rapor hk - Bilgisayarcı - 24/12/2008
sql ile ilgili olarak eklenmiş olan dersler var. O derslerde BETWEEN ve IN konularını okumanızı tavsiye ederim...
Cvp: seçmeli rapor hk - osman06 - 24/12/2008
tşk hocam tavsiyenizi uyucam örnek ile ilgili bi çalışmanız oldumu acaba
Cvp: seçmeli rapor hk - Bilgisayarcı - 24/12/2008
Size balık vermek değil tutmayı öğretmeyi amaç edinmiş bir site burası.
İstek zor değil. Bir önceki isteğinizle yakın olarak ilgilendik biliyorsunuz.Kodlamada hata var dediniz çözdük... Yapmaya çalıştığımız sorunu sizin kendinizin çözmesini sağlamak. Kaynak gösterildi; sorgunun içinde in kullanmanız gerekli. Araştırdınız ve olmadıysa tekrar yardımcı oluruz.
Ayrıca bir uyarıda bulunmak isterim. Forum kurallarına aykırı bir durum değil fakat aynı soruya daha çok da vakit geçmeden ısrarla istekte bulunmak pek hoş kaşılanmıyor. Üyelerimiz vakit ayırabildikleri ölçüde yardımcı olurlar.
Cvp: seçmeli rapor hk - osman06 - 25/12/2008
hocam dün dediğiniz konuları araştırdım ama nerde ne gibi konu var bulamadım linkini verirseniz sevinirim
çoktan seçmeli rapor kodu - osman06 - 25/12/2008
BU MESAJ ÇIKTIKTAN SONRA AŞAĞIDAKİ SARI OLUYOR YAZDIĞIM YERİ SARI OLUYO
MESAJ: Type mismatch
sorun nerde acaba,
Private Sub Önizleme_Click()
Dim v As Variant
Dim Frm As Form
Dim ctl As Control
Dim theId As Long
Dim WhereCrit As String
'EĞER LİSTE BOŞSA
'liste liste kutusu
If Me.Liste.ItemsSelected.Count = 0 Then
MsgBox "LÜTFEN LİSTEDEN SEÇİM YAPIN", vbExclamation, "DİKKAT"
Exit Sub
End If
'Forms!soruseç formun adı Frm!liste liste kutusununadı
Set Frm = Forms!EKK
Set ctl = Frm!Liste
'KRİTER BELİRLEME SoruID tablodaki alan adı
WhereCrit = "Kimlik = "
'LİSTE KUTUSUNDAN KRİTER EKLEME
For Each v In ctl.ItemsSelected
theId = ctl.Column(1, v) YUKARIDAKİ MESAJDAN SONRA BU KISIM SARI OLUYOR
WhereCrit = WhereCrit & theId & " OR Kimlik = "
Next v
WhereCrit = Left(WhereCrit, Len(WhereCrit) - 17)
'SORU rapor adı
DoCmd.OpenReport "TOPLURAPOR", acViewPreview, , WhereCrit