AccessTr.neT

Sayfalar: 1 2

(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ü?

    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

Teşekkürler hocam.

Sayfalar: 1 2

HSayar

ozanakkaya

HSayar