Skip to main content

AccessTr.neT


Metin Kutusu Biçimlendirme

Yunus Bozkurt
Yunus Bozkurt
9
5248

Metin Kutusu Biçimlendirme

#2
şö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

  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Son Düzenleme: 01/11/2014, 17:25, Düzenleyen: Yunus Bozkurt.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Metin Kutusu Biçimlendirme - Yazar: Yunus Bozkurt - 01/11/2014, 16:39
Cvp: Metin Kutusu Biçimlendirme - Yazar: Yunus Bozkurt - 01/11/2014, 17:25
Cvp: Metin Kutusu Biçimlendirme - Yazar: atoz112 - 01/11/2014, 21:05
Cvp: Metin Kutusu Biçimlendirme - Yazar: Yunus Bozkurt - 04/11/2014, 16:02
Cvp: Metin Kutusu Biçimlendirme - Yazar: atoz112 - 04/11/2014, 16:26
Cvp: Metin Kutusu Biçimlendirme - Yazar: Yunus Bozkurt - 04/11/2014, 18:43
Cvp: Metin Kutusu Biçimlendirme - Yazar: atoz112 - 04/11/2014, 18:48
Cvp: Metin Kutusu Biçimlendirme - Yazar: Yunus Bozkurt - 04/11/2014, 19:17
Cvp: Metin Kutusu Biçimlendirme - Yazar: atoz112 - 04/11/2014, 21:17
Cvp: Metin Kutusu Biçimlendirme - Yazar: Yunus Bozkurt - 06/11/2014, 16:44
Task