Skip to main content

AccessTr.neT


Metin Kutularının Etiketlerini Girişe Göre Etkinleştirme

Metin Kutularının Etiketlerini Girişe Göre Etkinleştirme

#1
modüle
Kod:
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)"

.rar Ornek.rar (Dosya Boyutu: 18,64 KB | İndirme Sayısı: 172)
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
#2
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]
Cevapla
#3
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
#4
Merhaba;

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

Saygılarımla.
Cevapla
#5
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]
Cevapla
#6
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task