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| Bu Konudaki Yorumlar |
|
Listeden Seçilenlen Stokların Pasif Olması - Yazar: U.ALTUN - 09/03/2019, 14:13
Cvp: Listeden Seçilenlen Stokların Pasif Olması - Yazar: berduş - 09/03/2019, 14:50
Cvp: Listeden Seçilenlen Stokların Pasif Olması - Yazar: berduş - 09/03/2019, 15:00
Cvp: Listeden Seçilenlen Stokların Pasif Olması - Yazar: U.ALTUN - 09/03/2019, 15:38
Cvp: Listeden Seçilenlen Stokların Pasif Olması - Yazar: berduş - 10/03/2019, 00:48
Cvp: Listeden Seçilenlen Stokların Pasif Olması - Yazar: U.ALTUN - 11/03/2019, 10:07
|
