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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

esrefigit

Aktif Üye
Aktif Üye
 Belirtilmemiş
599
30/10/2008
359
Konya
Ofis 2003
13/07/2018,15:48
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ı: 167)
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz

Kullanici Avatari

syrup

Aktif Üye
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

Kullanici Avatari

Puletin

Onursal Üye
Onursal Üye
 Belirtilmemiş
1.716
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...

Kullanici Avatari

adnan

Aktif Üye
Aktif Üye
 55
112
30/10/2008
0
Ankara
03/02/2018,13:18
Merhaba;

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

Saygılarımla.



Kullanici Avatari

bayFARUK

Aktif Üye
Aktif Üye
BA.... FA....
 43
85
30/10/2008
37
Sivas
müdür
Ofis 2010 64 Bit
14/04/2018,11:09
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

Kullanici Avatari

ayhan2122

accesstr.net , gayet net ;)
Uzman
 41
681
30/10/2008
451
-
Ofis 2003
05/12/2017,16:58
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
  form üzerindeki metin kutusunun boyutunu otomatik ayarlama mehmetdemiral 7 4.792 08/04/2018, 20:58
Son Yorum: Mali06
  İşlemci & Mac Adresi & Anakart ve Harddisk Fiziksel seri noya göre Lisans Key üretme mehmetdemiral 38 22.820 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 4.120 06/02/2017, 09:40
Son Yorum: burhanb
Çözüldü İlçe kriterine göre rapor alma sorunu Buldozer1 1 887 12/02/2016, 22:32
Son Yorum: atoz112
  Aynı listeyi yetkiye göre filtreleme mehmetdemiral 6 1.696 27/05/2015, 08:27
Son Yorum: ozanakkaya

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