listeden seçilenlerin aktif veya pasif yapılması konusunda kullanılan kodun bir eksiği var listede 1 adet üzeri seçimlerde sadece 1 adet aktif pasif işlemi yapıyor kodu çoklu seçim ilave yapmak istiyorum tüm denemelerde sonuç alamadım yardımınızı bekliyorum kullanılan kod aşağıda.
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tbl_Urun SET Durum ='Pasif' WHERE urn_id=" & Me.urunlistem.Column(0)
DoCmd.SetWarnings True
Me.urunlistem.Requery
butonun kodunu aşağıdakiyle değiştirip dener misiniz?
Kod:
Private Sub btn_pasif_Click()
Dim LstSay, x As Integer
Dim Txtin As String
DoCmd.SetWarnings False
Txtin = ""
LstSay = Me.urunlistem.ColumnCount - 1
For x = 0 To LstSay
Txtin = Txtin & IIf(IsNull(Txtin), Me.urunlistem.Column(0, x), ", " & Me.urunlistem.Column(0, x))
Next
DoCmd.RunSQL "UPDATE Tbl_Urun SET Durum ='Pasif' WHERE urn_id in (" & Txtin & ");"
DoCmd.SetWarnings True
Me.Durum_ara_txt.Requery
End Sub
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
halil hocam kodların 2'si de çalışmadı kontrol edilir düşünce ile yükledim.
sayın @u.altun , "Frm_Stoklistem" formunun kayıtlarını kilitlemenizin özel bir sebebi var mıydı? sizin gönderdiğiniz dosyada
"Frm_Stoklistem" formunun kayıtları "Düzenlenen Kayıt" için kilitlenmişti, galiba o nedenle ilk defasında çalışıp sonrada hata veriyordu.
"kilit yok" yapınca denemelerimde hata vermedi.
dilerim düzgün çalışır.
halil hocam elinize sağlık tam istediğim olmuş teşekkürler.