Listeden Seçilenlen Stokların Pasif Olması

Listeden Seçilenlen Stokların Pasif Olması - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listeden Seçilenlen Stokların Pasif Olması (/konu-listeden-secilenlen-stoklarin-pasif-olmasi--85196.html)

Listeden Seçilenlen Stokların Pasif Olması - U.ALTUN - 09/03/2019

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

Cvp: Listeden Seçilenlen Stokların Pasif Olması - berduş - 09/03/2019

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

Cvp: Listeden Seçilenlen Stokların Pasif Olması - berduş - 09/03/2019

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

Cvp: Listeden Seçilenlen Stokların Pasif Olması - U.ALTUN - 09/03/2019

halil hocam kodların 2'si de çalışmadı kontrol edilir düşünce ile yükledim.

Cvp: Listeden Seçilenlen Stokların Pasif Olması - berduş - 10/03/2019

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.

Cvp: Listeden Seçilenlen Stokların Pasif Olması - U.ALTUN - 11/03/2019

halil hocam elinize sağlık tam istediğim olmuş teşekkürler.