AccessTr.neT
Bir alandaki tüm değerleri şart sağlıyorsa değiştirme - Baskı Önizleme

+- 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ığı: Bir alandaki tüm değerleri şart sağlıyorsa değiştirme (/konu-bir-alandaki-tum-degerleri-sart-sagliyorsa-degistirme.html)

Sayfalar: 1 2

Cvp: Bir alandaki tüm değerleri şart sağlıyorsa değiştirme - HSayar - 15/01/2011

(15/01/2011, 19:57)sledgeab yazdı: 


private sub buton_click()

guncelle_sql = "UPDATE tblSAHIS SET SHS_UYRUGU='TR' WHERE SHS_UYRUGU='T.C.'"

Docmd.Runsql guncelle_sql

end sub

bir kere çalıştırdıkan sonra 0 satırı güncelleştirmek üzereseniz diye uyarıyır.
Güncelleştiirlecek satı toksa kayıt yok desin. mümkün mü?

Cvp: Bir alandaki tüm değerleri şart sağlıyorsa değiştirme - ozanakkaya - 16/01/2011 

    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


Cvp: Bir alandaki tüm değerleri şart sağlıyorsa değiştirme - HSayar - 16/01/2011

Teşekkürler hocam.