If DCount("[Alan1]", "Tablo1", "[Alan3]='VAR'") Then
Me.Komut0.Visible = True
If Me.Komut0.Caption = "UYARI" Then
Me.Komut0.Caption = ""
Else
Me.Komut0.Caption = "UYARI"
End If
Else
Me.Alan3.SetFocus
Me.Komut0.Visible = False
End If
Butonun resim yazısını UYARI olarak değiştir.