komut6 nın kodunu
If vbNo = MsgBox("Kaydetmek İstiyor musun?", vbInformation + vbYesNo, "Uyarı") Then
Exit Sub
End If

Dim rst As DAO.Recordset

Dim x As Integer
x = Dlookup ("[stok]", "Tablo1", "urun='" & Forms![Tablo2]!urun & "' AND renk='" & Forms![Tablo2]!renk & "'")
x = x + Me.adet
Me.Metin7 = x

Set rst = CurrentDb.OpenRecordset("select * from tablo1 where urun='" & Forms![Tablo2]!urun & "' AND renk='" & Forms![Tablo2]!renk & "'")

With rst
.Edit
!stok = x
.Update
End With

bununla değiştir