If Me.Metin395 >= Me.SIPARISADET Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
BITTI = "-1"
DoCmd.RunSQL "UPDATE SIPARIS SET BITTI ='" & "-1" & "',RENK='" & "YEŞİL" & " WHERE SIPARIS_NO=" & Me.SIPARISNO
DoCmd.SetWarnings True
LOT_NO = Me.LOTNO
SIP_ADET = ADEDI
Me.Komut14.SetFocus
Me.Refresh
Else
DoCmd.RunCommand acCmdSaveRecord
LOT_NO = Me.LOTNO
SIP_ADET = ADEDI
Me.Komut14.SetFocus
End If
![[Resim: do.php?img=4953]](https://accesstr.net/resim/do.php?img=4953)
DoCmd.RunSQL "UPDATE SIPARIS SET BITTI =" & "-1" & ",RENK=" & "'YEŞİL'" & " WHERE SIPARIS_NO=" & Me.SIPARISNO
olarak deneyiniz...
Eğer SIPARISNO alanı Metin tanımlı ise
DoCmd.RunSQL "UPDATE SIPARIS SET BITTI =" & "-1" & ",RENK=" & "'YEŞİL'" & " WHERE SIPARIS_NO='" & Me.SIPARISNO & "'"
olarak deneyiniz...
Hocam şimdide resimdeki hatayı veriyor.
![[Resim: do.php?img=4954]](https://accesstr.net/resim/do.php?img=4954)
Alan tanımlamalarını bilmediğim için varsayım yaparak kod yazmaya çalışıyorum.
Örnek eklerseniz kesin cevap yazabilirim...
Hocam size göndereceğim, işyerinden çıkmak üzereyiz.
Saygılarımla,
sayın yenginoglu,
bahsettiğiniz talebinize yönelik olarak,aşağıdaki hususa dikkat çekmekte fayda olacağı kanısındayım.
bir tablo içerisinde tanımlanan alanların veri türü
eğer SAYI ise,SQL kod ifadelerinde kriter belirlerken tek tırnak (') işareti OLMAKSIZIN kullanılmalı.
eğer METİN ise,SQL kod ifadelerinde kriter belirlerken çift tırnak (') işareti KULLANILMALI.
eklediğiniz kod ifadesine göre gerekli düzeltme kod ifadesi
Kod:
DoCmd.RunSQL "UPDATE SIPARIS SET BITTI=-1" & ",RENK='YEŞİL'" & " WHERE SIPARIS_NO=" & Me.SIPARISNO
şeklinde de yazılabilir.
BITTI=-1" ifadesi
BITTI alanı EVET/HAYIR seçenekli sayısal veri türünde olduğu için,
0 (Sıfır) değerinin -1 (işaretlenmiş) olması istendiğinden dolayı,
BITTI=-1" şeklinde yazılmıştır.
RENK='YEŞİL'" ifadesi
renk alanı metin veri türünde olduğu için,
önceki yazılı değerin yerine YEŞİL değerinin yazılması istendiğinden dolayı,
RENK='YEŞİL'" şeklinde tek tırnak işaretleri arasında metin değeri olduğu vurgulanmak için yazılmıştır.
bilginize...iyi çalışmalar,saygılar.