Skip to main content

AccessTr.neT


Listeden Seçilenlen Stokların Pasif Olması

Listeden Seçilenlen Stokların Pasif Olması

Çözüldü #1
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
Cevapla
#2
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

Cevapla
#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
#4
halil hocam kodların 2'si de çalışmadı  kontrol edilir düşünce ile yükledim.
.rar stok güncellemesi.rar (Dosya Boyutu: 587,61 KB | İndirme Sayısı: 1)
Cevapla
#5
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.
.rar STOK GÜNCELLE_hy.rar (Dosya Boyutu: 581,67 KB | İndirme Sayısı: 8)
Cevapla
#6
halil hocam elinize sağlık tam istediğim olmuş teşekkürler.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da