düzeltme:kusura bakmayın "urunlistem.SelectedItems.Count" yerine yanlışlıkla "urunlistem.ColumnCount" kullanmışım o nedenle sürekli 7 satır görünüyormuş
Kod:
Private Sub btn_pasif_Click()
Dim LstSay, x As Integer
DoCmd.SetWarnings False
LstSay = Me.urunlistem.ColumnCount - 1
For x = 0 To LstSay
DoCmd.RunSQL "UPDATE Tbl_Urun SET Durum ='Pasif' WHERE urn_id=" & Me.urunlistem.Column(0, x)
Next
DoCmd.SetWarnings True
Me.Durum_ara_txt.Requery
End Sub