Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
09/03/2019 14:13
Konu Sahibi
U.ALTUN
Yorumlar
5
Okunma
236
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
U.ALTUN

U.ALTUN

Aktif Üye
84669
Uğ.... Al....
 54
 36
 129
 01/10/2016
0
 Samsun
 
 Ofis 2010 64 Bit
 Dün,11:23
Çözüldü 
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.

Visual Basic Code
1
2
3
4
5
6
7
DoCmd.SetWarnings False

DoCmd.RunSQL "UPDATE Tbl_Urun SET Durum ='Pasif' WHERE  urn_id=" & Me.urunlistem.Column(0)

DoCmd.SetWarnings True

Me.urunlistem.Requery



haliliyas

haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.041
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,02:19
butonun  kodunu aşağıdakiyle değiştirip dener misiniz?

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
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



haliliyas

haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.041
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,02:19
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:
1
2
3
4
5
6
7
8
9
10
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



U.ALTUN

U.ALTUN

Aktif Üye
84669
Uğ.... Al....
 54
 36
 129
 01/10/2016
0
 Samsun
 
 Ofis 2010 64 Bit
 Dün,11:23
halil hocam kodların 2'si de çalışmadı  kontrol edilir düşünce ile yükledim.



haliliyas

haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.041
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,02:19
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.



U.ALTUN

U.ALTUN

Aktif Üye
84669
Uğ.... Al....
 54
 36
 129
 01/10/2016
0
 Samsun
 
 Ofis 2010 64 Bit
 Dün,11:23
halil hocam elinize sağlık tam istediğim olmuş teşekkürler.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Listeden Seçilenlen Stokların Pasif Olması U.ALTUN 6 234 08/03/2019, 11:02
Son Yorum: U.ALTUN
Çözüldü Kullanıcıların Vt'nından Kaldırılmadan Pasif Hale Getirilmesi sercann 7 263 19/02/2019, 19:03
Son Yorum: sercann
Çözüldü Formun En Üstte Olması Hakkında notrino 6 253 19/12/2018, 18:11
Son Yorum: notrino
Çözüldü Form Açılışında Pasif Olan Altform Formdaki Bir Alan Değer Alırsa Aktif Olsun Oğuz Türkyılmaz 3 212 12/12/2018, 23:39
Son Yorum: haliliyas
Çözüldü Tarih Aktif Pasif golf2000 8 367 18/11/2018, 11:42
Son Yorum: golf2000

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.