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

Derecelendirme: 0/5 - 0 oy
U.ALTUN

U.ALTUN

Aktif Üye

Additional groups:
Üye
84669
Uğ.... Al....
 54
 36
 129
 01/10/2016
0
 Samsun
 
 Ofis 2010 64 Bit
 08/06/2019,17:45
Çö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



halily

halily

Uzman
65596
Ha....
 26
 1.155
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,11:45
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



...........
halily

halily

Uzman
65596
Ha....
 26
 1.155
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,11:45
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

Additional groups:
Üye
84669
Uğ.... Al....
 54
 36
 129
 01/10/2016
0
 Samsun
 
 Ofis 2010 64 Bit
 08/06/2019,17:45
halil hocam kodların 2'si de çalışmadı  kontrol edilir düşünce ile yükledim.



...........
halily

halily

Uzman
65596
Ha....
 26
 1.155
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,11:45
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

Additional groups:
Üye
84669
Uğ.... Al....
 54
 36
 129
 01/10/2016
0
 Samsun
 
 Ofis 2010 64 Bit
 08/06/2019,17:45
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 260 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 282 19/02/2019, 19:03
Son Yorum: sercann
Çözüldü Formun En Üstte Olması Hakkında notrino 6 278 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 227 12/12/2018, 23:39
Son Yorum: halily
Çözüldü Tarih Aktif Pasif golf2000 8 391 18/11/2018, 11:42
Son Yorum: golf2000

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