Access Form Tasarımı 16 - VBA'ya Giriş: Güncelleme Sorgusu

#access #vba #code #kod #update #upgrade #güncelleme #form #tasarım
Private Sub Komut9_Click()
tcno = ytcno.Value
a = ad.Value
s = soyad.Value
gy = genelyazim.Value
If ytcno.Enabled = True Or Len(a) = 0 Or Len(s) = 0 Or Len(gy) = 0 Then
MsgBox ("Lütfen Boş Bırakmayınız veya Tc No Üzerinden Arama Yapınız")
Else
sorgu = "Update yazarlar Set adi=' " & a & " ', soyadi=' " & s & " ', genelyazimturu=' " & gy & " ' Where yazartcno=' " & tcno & " ' "
CurrentDb.Execute (sorgu)
MsgBox ("Yazar Bilgileri Başarıyla Güncellenmiştir")
End If
EkranTemizle
End Sub