AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

VB Kod yardımı

03/05/2010, 14:08

6246386

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.
03/05/2010, 14:29

Kur@l

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
03/05/2010, 16:25

6246386

verdiğiniz cevap için çok teşekkürler.