AccessTr.neT

Tam Versiyon: inputbox ile veri güncelleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhabalar, çalışmamdaki form1 deki cntr (metin10) sütununa çift tıklayınca inputbox açılıyor ve cntr sayısını giriyorum. Amacım tablo1 deki ilgili satırın cntr sayısını güncellemek. Ancak bir türlü beceremedim. Çift tıklanınca olayında birşeyler yapma çalıştım, Yardım edebilirmisiniz.
Çift tıklama olayının kodunu aşağıdaki ile değiştirin istediğiniz şekilde çalışacaktır.
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
Çok teşekürrler, sağolun.