Kod:
Private Sub Metin0_AfterUpdate()
On Error GoTo hata
DoCmd.SetWarnings False ' Access Uyarılarını Kapat
Dim adgir As String
adgir = InputBox("Güncellenecek adı Girin")
DoCmd.RunSQL "update tablo1 set değer =" & Val(Me.Metin0.Value) & " where ad='" & adgir & "'"
DoCmd.SetWarnings True ' Access Uyarılarını Aç
hata:
MsgBox "Girdiğiniz Ad Tabloda Yok... "
End Sub