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
İyiki Varsın Access