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
![Çözüldü](images/icons/cozuldu.png)