Merhaba arkadaşlar
ekteki veritabanında tabloda hex kodları yazılan renkleri örnek sütununda göstermek istiyorum.
yardımcı olabileceklere şimdiden teşekkür ederim.
sağlıkla kalın.

Ekte istediğinizi inceleyebilirsiniz. Kod olarak yapılacak iş ise şundan ibaret:

Private Sub Ayrıntı_Paint()



Dim renk As String



 renk = Mid(Me.Heksadesimal, 2)

 

 Me.Örnek.BackColor = Val("&H" & renk)

 

End Sub

Teşekkür ederim.sabah kontrol edebileceğim.saağlıcakla kalın.

Çok teşekkür ederim.rapor tam istediğim gibi olmuş emeğinize sağlık.

yalnız bir sorun mu var tam anlayamadım.
renk tonları farklı çıkıyor.örneüin 2 numaralı renk açık mavi olması gerekirken,
bej çıkmış.diğer renklerde de ton farkı var.
Tabi ben bu kodları http://tr.wikipedia.org/wiki/Renkler_listesi sitesinden aldım
ve doğru olduğunu varsayıyorum.nedenini anlayamadım.
ikincisi aynı kodu formda kullanabilirmiyiz?
teşekkürler
saygılarımla

(09/01/2015, 15:40)memox yazdı:
Çok teşekkür ederim.rapor tam istediğim gibi olmuş emeğinize sağlık.

yalnız bir sorun mu var tam anlayamadım.
renk tonları farklı çıkıyor.örneüin 2 numaralı renk açık mavi olması gerekirken,
bej çıkmış.diğer renklerde de ton farkı var.
Tabi ben bu kodları http://tr.wikipedia.org/wiki/Renkler_listesi sitesinden aldım
ve doğru olduğunu varsayıyorum.nedenini anlayamadım.
ikincisi aynı kodu formda kullanabilirmiyiz?
teşekkürler
saygılarımla

Merhaba;
ikinci sorunuz olan , "aynı kodu formda kullanabilir miyiz?" in cevabıdır. 
İyi çalışmalar...

Teşekkür ederim.pazartesi kontrol edeceğim.iyi bir haftasonu dilerim