Listboxta otomatik seçim ve benzer kayıtlarda uyarı mesajı?

Merhabalar, 
Yardımlarınızla 2 adet probleme çözüm arıyorum.

Form üzerinde 2 adet listbox ve 2 adet combobox var.

"B" adlı comboboxtan yapılan seçimlere göre "listbox A" ya 6 satır veri geliyor. Bu 6 satır verinin tamamı tek seferde seçilerek hesaplanıyor ve textboxlara gelen hesap sonuçları Kaydet butonu ile "listbox B" ye gönderiliyor ve  Böylece "listbox B" de 4 satır hesap sonucu gözüküyor.

1.problem:

"combobox B" den herhangi bir parametreyi seçtiğim anda "Listbox A" da görüntülenen 6 adet verinin hepsi otomatik seçilsin ve textboxlarda hesap sonucu gözüksün.

2.problem:

Kaydet butonuna bastığımda eğer "Listbox B" de daha önce aynı kayıt varsa uyarı iletisi versin. (uyarı iletisi şuan sadece listbox B deki 1. satır için çalışıyor. diğer satırlar için çözüm bulamadım"

İyi forumlar.

Hepsini seçtirmek için

Private Sub B_Change()

LB_A.Requery
Dim Sayac As Integer
For Sayac = 0 To Me.LB_A.ListCount
    Me.LB_A.Selected(Sayac) = True
Next Sayac

End Sub

Bunu kullana bilirsiniz

ilgilenip yanıt verdiğiniz için çok teşekkür ederim.

Verdiğiniz kodu daha önce araştırıp denemiştim, otomatik seçim yapabilen bir kod, ancak seçim yaptıktan sonra dikkat ederseniz hesaplama yapmıyor, yine verileri listeden elimizle seçmemiz gerekiyor.

"LB_A_Click" içerisndeki hesap yapan kodları "B_Change" içerisine taşıdım ancak

B Comboboxtan üst üste yapılan 2. seçimlerde çalışmıyor.

dosya ektedir.

sayın prtkl,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

son olarak,
bir de tavsiye olarak kabul edilmesi temennisi ile;
lütfen,tablo ve alan adlarında,formlarda,sorgu ve raporlarda isimlendirmelerde bulunurken;Türkçe karakterler kullanmayınız.

bilginize...iyi çalışmalar,saygılar.

çok teşekkür ederim, ellerinize sağlık.