bunu siteden bir arkadaşın eklediği örnekten aldım üç modülü tek modülde birleştirdim ama ingilizce hepsi büyük harf fonksiyonu eksik kullanılışı ise

Private Sub kucukeng_AfterUpdate()
kucukeng = TumuKucuk_Eng(kucukeng)
End Sub

Merhaba.

Accessi kaptma olayını engelleyen ek yüklüyorum.

Hayırlı olsun

Hazırladığım class ile seçilen textboxun arkaplan rengini değiştirme örneğini ekliyorum.
Umarım birilerinin işine yarar.



Class modül kodlar;

Form Kodlar;

Option Compare Database



Private Kontrol As New Collection





Private Sub Form_Load()



Dim i As Byte

Dim TxtOpt As ClsTextbox

Dim ctl As Control

Dim arr



arr = Array("textbox1", "textbox3", "textbox5")



For i = LBound(arr) To UBound(arr)

    For Each ctl In Me.Controls

        If ctl.ControlType = acTextBox Then

            If ctl.Name = arr(i) Then

                Set TxtOpt = New ClsTextbox

                Set TxtOpt.BenimOptionButton = ctl

                Kontrol.Add TxtOpt

                GoTo var:

            End If

        End If

    Next

var:

        ctl.BackColor = vbWhite

Next





Erase arr

  

End Sub

Portföyünüzü takip edebileceğiniz basit bir program.