DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tbl_Urun SET Durum ='Pasif' WHERE urn_id=" & [Forms]![Frm_Stoklistem]![urn_id]
DoCmd.SetWarnings True
Me.Durum_ara_txt.Requery
Kodları kopyala yapıştır yaparken microsoft word kullanmayın, font farklılığı sebebiyle tek tırnakta sorun çıkabilir. Notepad++ kullanın
Sizin koddaki tek tırnak aşağıdaki gibiydi.
DoCmd.RunSQL "UPDATE Tbl_Urun SET Durum =’Pasif’ WHERE urn_id=" & [Forms]![Frm_Stoklistem]![urn_id];