Skip to main content

AccessTr.neT


Bir alandaki tüm değerleri şart sağlıyorsa değiştirme

Bir alandaki tüm değerleri şart sağlıyorsa değiştirme

Çözüldü #8
    Dim sayisi As String
DoCmd.SetWarnings False
sayisi = DCount("*", "[tblSAHIS ]", "[SHS_UYRUGU] = 'T.C.'")
If sayisi = 0 Then
MsgBox ("Güncelleştiirlecek satı tok")
Exit Sub
Else
guncelle_sql = "UPDATE tblSAHIS SET SHS_UYRUGU='TR' WHERE SHS_UYRUGU='T.C.'"
DoCmd.RunSQL guncelle_sql
End If
DoCmd.SetWarnings True
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Bir alandaki tüm değerleri şart sağlıyorsa değiştirme - Yazar: ozanakkaya - 16/01/2011, 00:25
Task