Skip to main content

AccessTr.neT


toplam miktar 1700 den yukarda olursa uyarı versin

toplam miktar 1700 den yukarda olursa uyarı versin

Çözüldü #7
Bahsettiğiniz şekildeki örneği ekler misiniz?
Cevapla
Çözüldü #8
Merhaba kodu aşağıdaki gibi düzenleyiniz olacaktır. Metin0 yerine kendi text alanınızın ismini yazmayı unutmayın. Ben kırmızı ve sarı kullandım siz beyaz ve siyahta kullanabilirsiniz. Kolay gelsin.





Dim lngRed As Long, lngYellow As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)


If Me.Metin0 > 1700 Then
If Me.Metin0.BackColor = lngRed Then
Me.Metin0.BackColor = lngYellow
Else
Me.Metin0.BackColor = lngRed
End If
End If
Son Düzenleme: 04/01/2011, 10:48, Düzenleyen: dreamt.
Cevapla
Çözüldü #9
Sayın dreamt;
İlginize çok teşekkür ediyorum. Şu an tam istediğim gibi oldu. sağolun varolun. Allah bilgilerinize zeval vermesin Img-grin
Herkese saygılar ve iyi çalışmalar...
Ne irfandır veren ahlaka yükseklik ne vicdandır.
Fazilet hissi insanlarda Allah korkusundandır.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da