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

(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

    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