Me.Metin333 = ""
Me.Metin334 = ""
Me.Metin335 = ""
kodu eklediğiniz için metin kutuları temizleniyor.
Kapat butonunun sorusuna evet dediğinizde bu metin kutuları boş olduğu için
DoCmd.RunSQL "UPDATE [alislar] SET alisfiyati = '" & Forms!stokarama!Metin334 & "',satisilkfiyati = '" & Forms!stokarama!Metin335 & "' WHERE alisid = " & Forms!stokarama!Metin333 & ""
kodu hata veriyor.Private Sub Komut28_Click()
kodunun hemen altına
on error resume next
kodunu eklerseniz sorun kalmaz.