Skip to main content

AccessTr.neT


Listeden Seçilenlen Stokların Pasif Olması

Listeden Seçilenlen Stokların Pasif Olması

#3
yalnız liste kutusu boş olsa bile "7" satır varmış gibi görünüyor o nedenle yukardaki hata verirse aşağıdaki kodu deneyin
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

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Listeden Seçilenlen Stokların Pasif Olması - Yazar: berduş - 09/03/2019, 15:00
Task