renkli bi uyarı mesajı nasıl yapabilirim

1 2 3

Sayın sledgeab Hocam, sizin koda küçük bi ekleme de ben yapayım dedim. Sanırım böyle daha iyi oluyor:

Kod:
Sub TeslimKontrol()

If Me.teslimok.Value = "-1" Then Me.Metin173.BackColor = vbGreen Else Me.Metin173.BackColor = vbRed

If Me.teslimok.Value = "-1" Then Me.Metin173 = "Teslim Edildi" Else Me.Metin173 = "Teslim Edilmedi"

End Sub

Sayın coskun_cakal, kodunuzu buna göre değiştirip bi de bu şekilde deneyin.

Sanırım ilk istediğiniz hale geldi...

Şunu eklemeyi unuttum:

Kod:
Private Sub Onay57_Click()

If 1 Then [teslimtarihi] = Now

If 0 Then [teslimtarihi] = ""

Call TeslimKontrol

End Sub

Sayın sledgeab'ın örneğinin üzerine bunları da eklerseniz anında değişecektir...

1 2 3

renkli bi uyarı mesajı nasıl yapabilirim

tdsharun