Kod:
Private Sub Komut47_Click()
On Error Resume Next
Dim kayit As Integer
kayit = InputBox("Eklenecek Miktarı Yazınız.")
strSQL = "SELECT * FROM ilac "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[ILACKODU]=" & Me.ILACKODU
.Update
.Fields("MIKTARI") = Me.MIKTARI + kayit
.Update
End With
Me.MIKTARI.Requery
End Sub