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..