renkli bi uyarı mesajı nasıl yapabilirim

renkli bi uyarı mesajı nasıl yapabilirim - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: renkli bi uyarı mesajı nasıl yapabilirim (/konu-renkli-bi-uyari-mesaji-nasil-yapabilirim.html)

Sayfalar: 1 2 3

Cvp: renkli bi uyarı mesajı nasıl yapabilirim - tdsharun - 19/01/2009

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...