Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
20/11/2008 17:53
Konu Sahibi
esrefigit
Yorumlar
12
Okunma
4166
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

esrefigit

Aktif Üye
Kullanici Avatari
Aktif Üye
598
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
modüle

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Compare Database
Option Explicit

Private Const LABEL_RAISED_BackColor = 14474460
Private Const LABEL_SUNKEN_BackColor = 15785160
Dim lngLabelCurrentColor As Long


Public Sub LabelSpecialEffect(frm As Form, Optional intEffect As Integer = 2)
On Error Resume Next
Dim ctl As Control
Dim strControlName As String

For Each ctl In frm.Controls
    With ctl
    If .ControlType = acTextBox Or .ControlType = acComboBox Then
        .BorderStyle = 1
        .BorderColor = 0
        .BorderWidth = 3
        .SpecialEffect = intEffect
        With .Controls(0)
            strControlName = .Name
            .Caption = ctl.Name
            .BorderStyle = 1
            .BorderColor = 0
            .BorderWidth = 3
            .BackStyle = 1
            .BackColor = LABEL_RAISED_BackColor
            .SpecialEffect = 1
        End With
        .OnEnter = "=SetLableStyle(" & strControlName & ",2)"
        .OnExit = "=SetLableStyle(" & strControlName & ",1)"
    End If
    End With
Next
    
End Sub
Public Function SetLableStyle(ctl As Control, Optional intEffect As Integer = 2)
On Error Resume Next
Select Case intEffect
    Case 1
        lngLabelCurrentColor = LABEL_RAISED_BackColor
    Case 2
        lngLabelCurrentColor = LABEL_SUNKEN_BackColor
End Select
With ctl
    .BackStyle = 1
    .BackColor = lngLabelCurrentColor
    .SpecialEffect = intEffect
End With

End Function



formun yüklemesine

Kod:
Private Sub Form_Load()
  LabelSpecialEffect Me
End Sub


burada asıl ilginizi çekecek olan yapılan bir kodu diyelim bir formdaki bütün metin kutularının yada etiketlerin yada düğmelere ekliyeceksiniz işte bu kısım formdaki bütün metin kutularının giriş ve çıkışlarına SetLableStyle fonsiyonunu çağırmayı ekliyor bunu bir çok yerde kullanabilirsiniz

Kod:
.OnEnter = "=SetLableStyle(" & strControlName & ",2)"
        .OnExit = "=SetLableStyle(" & strControlName & ",1)"


Ek Dosyalar
.rar   Ornek.rar (Dosya Boyutu: 18,64 KB / İndirme Sayısı: 165)
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

syrup

Aktif Üye
Kullanici Avatari
Aktif Üye
196
1
30/10/2008
34
Çanakkale
Ofis 2003
08/10/2011,16:43
güzelmiş eşref. attın havanı yine. Img-grin

.OnEnter = "=SetLableStyle(" & strControlName & ",2)"

bu kodların sonundaki sayısal değerleri 0 ile 5 arasında değiştirip uygulanan efect türünün kişiselleştirilebileceğinide söyle baride tam olsun Hoba


resimresim
Cevapla

Puletin


Kullanici Avatari
Altın Üye
1.715
01/11/2008
416
-
Ofis 2003
24/12/2016,00:18
Eşref hocam eline sağlık. Yenilerini de bekliyoruz..
Az


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

adnan

Aktif Üye
Kullanici Avatari
Aktif Üye
112
30/10/2008
0
Ankara
01/04/2011,21:55
Merhaba;

Sn. Eşfer hocam süpersiniz elinize sağlık.

Saygılarımla.


Cevapla

bayFARUK

Aktif Üye
Kullanici Avatari
Aktif Üye
B.... F....
85
30/10/2008
37
Sivas
Ofis 2010
03/10/2016,11:26
eline sağlık teşekkürler.
(kodlarını küçük bir örnekle paylaşırsan faydalanacak arkadaş sayısı daha çok olcak kanısındayım.) saygılar..


resim
Cevapla

ayhan2122

accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
23/02/2017,01:00
Biri bana
FOR EACH ...
NEXT

olayını anlatsın yoksa Fur


Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

[-]
Etiketler
etiketlerini kutularının göre metin etkinleştirme girişe


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Photo Formdaki Veriye Göre Klasör Açıp, Açılan Klasöre Resim Ekleme donepezil 34 3.252 06/02/2017, 09:40 burhanb
Çözüldü İlçe kriterine göre rapor alma sorunu Buldozer1 1 766 12/02/2016, 22:32 atoz112
  Aynı listeyi yetkiye göre filtreleme mehmetdemiral 6 1.513 27/05/2015, 08:27 ozanakkaya
  Metin Kutularında Otomatik Tamamlama esrefigit 37 17.237 28/01/2015, 13:02 atoz112
  sorgu eksik metin aliyorga 2 1.330 30/08/2014, 13:29 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.