- Katılım
- 11 Temmuz 2005
- Mesajlar
- 15
- Excel Vers. ve Dili
- Excel 2016 - Türkçe
Private Sub Komut4_Click()
Dim varSelected As Variant
Dim strSQL As String
For Each varSelected In Me!Liste2.ItemsSelected
strSQL = strSQL & " & Me!Liste2.ItemData(varSelected) & ","
Next varSelected
If strSQL <> "" Then
strSQL = ""[Centre] In (" & Left(strSQL, Len(strSQL) - 1) & ")"
DoCmd.OpenReport "Görevlendirmeler", acPreview, , strSQL
End If
End Sub
Yaptığım sınav görevlendirme programında bütün öğretmenlerin görevlendirmelerini raporlayabiliyorum.Ancak yukarıdaki kodla bir liste
kutusu içinden seçeceğim öğretmenlere ait görevlendirme yazılarını
raporlatmaya çalıştım ama olmadı.Bu problem nasıl çözülebilir?
(Not:Kod bana ait değil yabancı bir siteden buldum.Kendi programıma uyarlamaya çalıştım.)
Yardımcı olacak arkadaşlara şimdiden teşekkürler
Arkadaşlar problemli dosya ektedir.Raporlama formundaki kodlarda bi problem var.Günlerdir uğraşıyorum ama çözüm bulamadım.İlgilenirseniz sevinirim. Teşekkürler.
Dim varSelected As Variant
Dim strSQL As String
For Each varSelected In Me!Liste2.ItemsSelected
strSQL = strSQL & " & Me!Liste2.ItemData(varSelected) & ","
Next varSelected
If strSQL <> "" Then
strSQL = ""[Centre] In (" & Left(strSQL, Len(strSQL) - 1) & ")"
DoCmd.OpenReport "Görevlendirmeler", acPreview, , strSQL
End If
End Sub
Yaptığım sınav görevlendirme programında bütün öğretmenlerin görevlendirmelerini raporlayabiliyorum.Ancak yukarıdaki kodla bir liste
kutusu içinden seçeceğim öğretmenlere ait görevlendirme yazılarını
raporlatmaya çalıştım ama olmadı.Bu problem nasıl çözülebilir?
(Not:Kod bana ait değil yabancı bir siteden buldum.Kendi programıma uyarlamaya çalıştım.)
Yardımcı olacak arkadaşlara şimdiden teşekkürler
Arkadaşlar problemli dosya ektedir.Raporlama formundaki kodlarda bi problem var.Günlerdir uğraşıyorum ama çözüm bulamadım.İlgilenirseniz sevinirim. Teşekkürler.