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

esrefigit

Aktif Üye
32
 Belirtilmemiş
 59
 599
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
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)"



meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz

syrup

syrup

Onursal Üye
19
 1
 196
 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


[Resim: image.php?s=df028e861d094075be82dfc55ca1...1225646923][Resim: mousey.gif]

...........
Puletin

Puletin

Onursal Üye
100
 Belirtilmemiş
 40
 1.717
 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...

adnan

adnan

Aktif Üye
41
 56
 13
 119
 30/10/2008
0
 Ankara
 
 
 14/07/2019,16:07
Merhaba;

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

Saygılarımla.




...........
bayFARUK

bayFARUK

Aktif Üye
65
ba.... Fa....
 44
 17
 86
 30/10/2008
37
 Sivas
 müdür
 Ofis 2010 64 Bit
 28/05/2019,11:24
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: gif48.gif]

ayhan2122

ayhan2122

Onursal Üye
60
 42
 26
 680
 30/10/2008
451
 -
 
 Ofis 2003
 27/05/2019,10:26
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.

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Metin Kutularında Otomatik Tamamlama esrefigit 40 19.850 05/07/2019, 16:41
Son Yorum: ozanakkaya
  form üzerindeki metin kutusunun boyutunu otomatik ayarlama mehmetdemiral 7 5.347 08/04/2018, 20:58
Son Yorum: Mali06
  İşlemci & Mac Adresi & Anakart ve Harddisk Fiziksel seri noya göre Lisans Key üretme mehmetdemiral 38 24.165 31/01/2018, 11:06
Son Yorum: romanci
Photo Formdaki Veriye Göre Klasör Açıp, Açılan Klasöre Resim Ekleme donepezil 34 5.147 06/02/2017, 09:40
Son Yorum: burhanb
Çözüldü İlçe kriterine göre rapor alma sorunu Buldozer1 1 1.097 12/02/2016, 22:32
Son Yorum: atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.