'form başlangıç
Private TxtKutuCollection As Collection
Private Olaylar As clskod
 
'form yüklendiğinde
Set TxtKutuCollection = New Collection
     Dim Ctrl As Control
For Each Ctrl In Me.Controls
    Set Olaylar = New clskod
    Select Case Ctrl.ControlType
       Case acTextBox
       Set Olaylar.Textbox = Ctrl
    End Select
    TxtKutuCollection.Add Olaylar
 Next

'Class Modüle
Option Compare Database
Option Explicit
Private WithEvents TxtKutu As Textbox
Dim textname As String
Dim sayi As Integer
Public Property Set Textbox(ByVal objTextBox As Textbox)
Set TxtKutu = objTextBox
TxtKutu.OnEnter = "[Event Procedure]"
TxtKutu.OnExit = "[Event Procedure]"
End Property
Private Sub TxtKutu_Enter()
TxtKutu.BackColor = 4259584
TxtKutu.FontBold = True
textname = TxtKutu.Name
End Sub
Private Sub TxtKutu_Exit(Cancel As Integer)
TxtKutu.BackColor = 16777215
TxtKutu.FontBold = 0
If IsNull(TxtKutu) Then: Exit Sub
If IsNull(textname) Then: Exit Sub
Select Case TxtKutu.Name
Case "AdiSoyadi"
sayi = Len(TxtKutu)
If sayi > 20 Then
MsgBox textname & " Alanına " & sayi & " karakter girdiniz 20 karakter girebilirsiniz": textname = Empty: sayi = 0: TxtKutu.SetFocus
Cancel = True
Else
Cancel = False
End If
Case "TcNo"
sayi = Len(TxtKutu)
If sayi > 11 Then
MsgBox textname & " Alanına " & sayi & " karakter girdiniz 11 karakter girebilirsiniz": textname = Empty: sayi = 0: TxtKutu.SetFocus
Cancel = True
Else
Cancel = False
End If
End Select
End Sub