Sn.Scavusoğlu, teşekkür ederim...Ylnız bir sorun gördüm..Gorev tblosunu sıfırladım ve formdan..1.grubu çağırdım..ve üstte ki görev bilgilerini girerek command butonuna bastım...o grupta ki hiçbirini görev tablosuna atmamış.Ctrl tuşu ile listeden tek tek tıklayınca kayıt ediyor.Tşk.
Kod:
If Me.Liste1.ItemsSelected.Count = 0 Then
MsgBox "En Az 1 Personel Secmelisiniz", vbCritical, "Personel Sec"
Me.Liste1.SetFocus
Me.Liste1.BorderColor = vbRed
Exit Sub
end if
Butonun tıklandığı olayındaki kodların başına yukarıdaki kodu ekleyin..
Bu arada listede personel seçerken CTRL tuşuna basmanıza gerek yok..
Private Sub Command77_Click()
If Me.Liste1.ItemsSelected.Count = 0 Then
MsgBox "En Az 1 Personel Secmelisiniz", vbCritical, "Personel Sec"
Me.Liste1.SetFocus
Me.Liste1.BorderColor = vbRed
KayitEkle
Exit Sub
End Sub
End Sub sarı olarak geliyor..tek personel tıklarsam seçiyor..am birden çok personeli seçmek isteyince bir önceki seçimi kaldırıyor..CTRL DE basılan seçiliyor.
End If
yazmayı atlamışsınız..
Liste kutusunun özellikler menüsünden çoklu seçimi "basit" olarak değiştirin.. ben genişletilmiş seçmiştim mause basılı tutup tümünü seçebileceğiniz şekilde tek tıkla çok seçim için basit yeterli olacaktır.
Grubu seçip, listeye grubun tun elemanları gelince girilen görev bilgileri hepsi için geçerli olduğu için butona basınca tum personelin görev bilgilerini görev tablosuna kaydetmeme izin vermiyor..Burada personel seçimi isteğe bağlı olmalı..Veya tum grup personeli seçili gelmeli, ben izinli veya raporlu olan personelin seçimini kaldırıp-diğer seçili olanların görev bilgilerini kaydetmeliyim.
Tşk.