AccessTr.neT

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.

6246386

Kur@l

6246386