Skip to main content

AccessTr.neT


renkli bi uyarı mesajı nasıl yapabilirim

renkli bi uyarı mesajı nasıl yapabilirim

Çözüldü #13
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da