liste kutusununa tıklama veya başka yolla rapora ekleme

Hayri hocamın bahsettiği uzun yol ise şu;

forma metin kutusu ekle, adını "GeciciNo" yap,

liste kutusunun tıklandığında olayına

GeciciNo = Me.Liste0.Column(0)

DoCmd.SetWarnings False

If Liste0.Column(9) = "-1" Then

DoCmd.RunSQL "UPDATE ceza1 SET ceza1.sec = '0' WHERE (((ceza1.[SR NO])=[GeciciNo]));"

Me.Liste0.Requery

Else

DoCmd.RunSQL "UPDATE ceza1 SET ceza1.sec = '-1' WHERE (((ceza1.[SR NO])=[GeciciNo]));"

Me.Liste0.Requery

End If

DoCmd.SetWarnings True

kodlarını ekle.

SECEREKYAZDIRMAARAMA raporunun kayıt kaynağına yazdığın sorgudaki "sec" alanına ölçüt olarak "-1" yaz.

liste kutusundan seçtiklerinin raporunu görebilirsin.

hocam dediğiniz yaptım gayet güzel çalıştı ama 30000 kayıt var bu kayıtların içinden günlük olarak secmem gereken veriler var ve her seferinde raporladıktan sonra eski haline getirmem gerekiyor.
Şimdi sıkıntı şu;herseferinde 30000 veriyi el yordamınla süzüp tekrar eski haline getirmek biraz sıkıntı,
bunları metin kutusu yardımı ile makbuz serinodan aratıp seçsek daha iyi olmazmı ve bu mümkünmü

Kim için hazırladığımızı hatırlamıyorum, ancak örneği inceleyin istediğinize uygunsa kendinize uyarlayın, uyarlamada sıkıntı olursa bildirin biz yardımcı olalım. Bu örnekte liste kutularının tümünü seç özelliği de eklenebilir.

hocam buna bide arama kutusu koyabilirmiyiz öyle bişey mümkünmü?

(12/01/2011, 23:14)maras321 yazdı: hocam dediğiniz yaptım gayet güzel çalıştı ama 30000 kayıt var bu kayıtların içinden günlük olarak secmem gereken veriler var ve her seferinde raporladıktan sonra eski haline getirmem gerekiyor.
Şimdi sıkıntı şu;herseferinde 30000 veriyi el yordamınla süzüp tekrar eski haline getirmek biraz sıkıntı,
bunları metin kutusu yardımı ile makbuz serinodan aratıp seçsek daha iyi olmazmı ve bu mümkünmü

formun kapardğında olayına

DoCmd.RunSQL "UPDATE ceza1 SET ceza1.sec = '0' WHERE (((ceza1.[SR NO])=[GeciciNo]));"

yazmanız yeterli.

arama için aşağıdaki linki inceleyiniz.

Form Üzerinden Veri Arama

tamam konu hallolmştur.Hepinize teşekkürler.