AccessTr.neT

Tam Versiyon: VB Kod yardımı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
merhaba arkadaşlar
ilişkisiz bir metin kutusunun güncelleme sonrası olayından tablonun belli bir kayıdının belli bir alanının değerini değiştirmek istiyorum. örnek tablo1 deki [değer] alanının 2 kaydının değerini 10 yapmak gibi.
yukarıdaki soruda 2. kaydın olacaktı arkadaşlar.
Kolay Gelsin Aiağıdaki kodu formun code sayfasına yapıştır işlem tamamdır... kriter olmadan güncelleştirme mümkün değildir o yüzden bir kriter girmeni sağlıyoruz önce... Eğer Kişi Yoksa Hata Mesajı Verir...

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
verdiğiniz cevap için çok teşekkürler.