AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

toplam miktar 1700 den yukarda olursa uyarı versin

1 2
03/01/2011, 23:19

ercansahin

Bahsettiğiniz şekildeki örneği ekler misiniz?
04/01/2011, 10:46

dreamt

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
04/01/2011, 17:32

Mehmet_Akif

Sayın dreamt;
İlginize çok teşekkür ediyorum. Şu an tam istediğim gibi oldu. sağolun varolun. Allah bilgilerinize zeval vermesin Herkese saygılar ve iyi çalışmalar...
1 2