Kolay Gelsin.
Private Sub Metin10_DblClick(Cancel As Integer)
On Error Resume Next
Dim contr As Integer
contr = InputBox("Cntr Sayısını Giriniz", "Cntr Güncelleme")
DoCmd.SetWarnings False
Dim Sql As String
Sql = "UPDATE Tablo1 SET Tablo1.cntr ='" & contr & "' WHERE Tablo1.id =" & Me.id
DoCmd.RunSQL SQL
Me.Refresh
DoCmd.SetWarnings True
End Sub