Skip to main content

AccessTr.neT


Access' Te Class Module Oluşturma

Access' Te Class Module Oluşturma

#8
(24/07/2023, 23:32)truhi yazdı:
(23/07/2023, 14:30)feraz yazdı: Buda class sız alternatif arşivden.


Kod:
Option Compare Database

Private Sub Form_Load()

    Dim ctl As Control
    
    For Each ctl In Me.Controls
        Select Case ctl.ControlType
            Case acTextBox, acComboBox 'TextBox ve ComboBox icin
                If ctl.Tag = "degistiginde" Then
                    ctl.OnChange = "=Degisti([" & ctl.Name & "])"
                    ctl.OnGotFocus = "=ArdRenk([" & ctl.Name & "])"
                    ctl.OnLostFocus = "=ArdRenkCik([" & ctl.Name & "])"
                End If
            Case acCommandButton 'CommandButton ve TextBox ve ComboBox icin
                If ctl.Tag = "degistiginde" Then
                    ctl.OnGotFocus = "=ArdRenk([" & ctl.Name & "])"
                    ctl.OnLostFocus = "=ArdRenkCik([" & ctl.Name & "])"
                End If

        End Select
    Next ctl

End Sub

Public Function Degisti(ctl As Control) 'TextBox ve ComboBox icin
    Me.Metin0 = ctl.Text
End Function

Public Function ArdRenk(ctl As Control) 'TextBox ve ComboBox ve CommandButton icin
    ctl.BackColor = vbGreen
End Function

Public Function ArdRenkCik(ctl As Control) 'TextBox ve ComboBox ve CommandButton icin
    ctl.BackColor = vbWhite
End Function


teşekkürler Hocam

Rica ederim.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Access' Te Class Module Oluşturma - Yazar: truhi - 17/07/2023, 17:17
RE: Access' Te Class Module Oluşturma - Yazar: truhi - 18/07/2023, 13:51
RE: Access' Te Class Module Oluşturma - Yazar: atoykan - 19/07/2023, 08:30
RE: Access' Te Class Module Oluşturma - Yazar: truhi - 20/07/2023, 17:10
RE: Access' Te Class Module Oluşturma - Yazar: feraz - 23/07/2023, 14:21
RE: Access' Te Class Module Oluşturma - Yazar: feraz - 23/07/2023, 14:30
RE: Access' Te Class Module Oluşturma - Yazar: truhi - 24/07/2023, 23:32
RE: Access' Te Class Module Oluşturma - Yazar: feraz - 25/07/2023, 00:35
Task