metin kutusunun denetim kaynağı aşağıdaki şekilde;
Kod:
=Nz([musteri];" Musteri Seçilmedi")
Müşteri seçilmedi durumunda metini kırmızı renkli yapabilirmiyim
şöyle yaptım ama çalışmıyor kodda bir yanlışlık mı var
Kod:
Private Sub Metin9_Change()
Dim kirmizi
If IsNull(Me.Metin9.Value) Then
Exit Sub
End If
kirmizi = RGB(255, 0, 0)
If Me.Metin9.Value = "Musteri Seçilmedi" Then
Me.Metin9.ForeColor = kirmizi
Else
Exit Sub
End If
End Sub
sayın yunus bozkurt,
EK'te;talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bu talebinizi iki yöntemle de yapabilirsiniz.
YÖNTEM-1
örnek uygulama içerisindeki form1 formu,biçimlendirme kullanılarak hazırlanmıştır.bunun için,formu tasarım olarak açtıktan sonra;ilgili metin kutusunu seçiniz ve menüden BİÇİM - KOŞULLU kısmına geçiniz.
koşul kısmındaki ilk seçimi Alan Değeri olarak,ikinci seçimi de buna eşittir olarak ve üçüncü seçime de "Müşteri seçilmedi" ifadesini yazınız.ardından,font rengini ve diğer tercihlerinizi belirleyiniz ve TAMAM diyerek bu kısımdan çıkınız.
YÖNTEM-2
örnek uygulama içerisindeki form2 formu,kodlama ile renklendirme yapılarak hazırlanmıştır.metin kutusunun değer girildikten sonrasına yönelik olarak çıkıldığında olay yordamına aşağıdaki kod eklenmiştir.
Private Sub Metin0_Exit(Cancel As Integer)
If Me.Metin0 = "müşteri seçilmedi" Then
Me.Metin0.ForeColor = vbRed
Me.Metin0.FontBold = True
End If
End Sub
bilgilerinize,iyi çalışmalar,saygılar.
Sayın atoz112 öncelikle teşekkür ederim. Fakat 2 yöntemle de çalışmadı. Açılan kutudan müşteri seçtiğimde metin kutusuna müşteri isimi yazdırıyorum.
Kod:
Nz([musteri];" Musteri Seçilmedi")
. Kaydet düğmesine tıkladığımda form boşalıyor ve
NZ fonksiyonu ile aynı metin kutusunda Müşteri seçilmedi yazıyor. iş bu durumda kırmızı yapmak istiyorum
sayın yunusbozkurt,
Alıntı:...2 yöntemle de çalışmadı...
belirttiğiniz bu ifadeyi biraz daha net bir anlatımla açıklamanız yerinde olurdu.nasıl bir çalışmama durumu oldu,hangi işlem esnasında veya akabinde oldu,...v.s. gibi bildirimler konuyu daha iyi bilgilendirmelere yönlendirirdi.
iki yöntemi de içeriğinde barındırarak hazırlanmış olan örnek uygulamada yer alan işlemleri;sanırım bir ihtimal,kendi uygulamanıza adapte ederken hatalı bir işlem uyguluyor olabilirsiniz.zira,örnekteki çalışmalar da kullanım ya da işleyiş açısından bir sorun olmamaktadır.
size,katılımcılar tarafından daha sağlıklı ve verimli çözümler sunabilmesi için,lütfen örnek uygulamanızı ekleyiniz ki,böylece daha geçerli yardımcı bilgiler sunulmasını sağlamış olursunuz.
son olarak,uygulamanızı 2007 kullanımına da uygun olarak ekleyebilir misiniz lütfen,inceleyebilmek adına.teşekkürler...bilgilerinize.
iyi çalışmalar,
saygılar.