+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: VB Kod yardımı (/konu-vb-kod-yardimi--6918.html)
VB Kod yardımı - 6246386 - 03/05/2010
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.
Cvp: VB Kod yardımı - Kur@l - 03/05/2010
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 SubCvp: VB Kod yardımı - 6246386 - 03/05/2010
verdiğiniz cevap için çok teşekkürler.