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

Derecelendirme: 0/5 - 0 oy

esrefigit

Aktif Üye
Kullanici Avatari
Aktif Üye
599
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ı: 167)
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

Onursal Üye
Kullanici Avatari
Onursal Üye
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...
Cevapla

adnan

Aktif Üye
Kullanici Avatari
Aktif Üye
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.


Cevapla

bayFARUK

Aktif Üye
Kullanici Avatari
Aktif Üye
B.... F....
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
Cevapla

ayhan2122

accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
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.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  form üzerindeki metin kutusunun boyutunu otomatik ayarlama mehmetdemiral 7 4.659 08/04/2018, 20:58 Mali06
  İşlemci & Mac Adresi & Anakart ve Harddisk Fiziksel seri noya göre Lisans Key üretme mehmetdemiral 38 22.218 31/01/2018, 11:06 romanci
Photo Formdaki Veriye Göre Klasör Açıp, Açılan Klasöre Resim Ekleme donepezil 34 3.896 06/02/2017, 09:40 burhanb
Çözüldü İlçe kriterine göre rapor alma sorunu Buldozer1 1 855 12/02/2016, 22:32 atoz112
  Aynı listeyi yetkiye göre filtreleme mehmetdemiral 6 1.643 27/05/2015, 08:27 ozanakkaya

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