Skip to main content

AccessTr.neT


çoktan seçmeli rapor kodu

çoktan seçmeli rapor kodu

Çözüldü #1
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,
.rar seçmeli rapor.rar (Dosya Boyutu: 25,1 KB | İndirme Sayısı: 76)
Cevapla
Çözüldü #2
sql ile ilgili olarak eklenmiş olan dersler var. O derslerde BETWEEN ve IN konularını okumanızı tavsiye ederim...
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla
Çözüldü #3
tşk hocam tavsiyenizi uyucam örnek ile ilgili bi çalışmanız oldumu acaba
Cevapla
Çözüldü #4
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.
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla
Çözüldü #5
hocam dün dediğiniz konuları araştırdım ama nerde ne gibi konu var bulamadım linkini verirseniz sevinirim
Cevapla
Çözüldü #6
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task