ADO ile yapılmış formda beforeupdate olayınının class ile kullanımı

1 2

teşekkürler sn. @alicimri

sn. @feraz sayesinde class yapısını öğreneceğim galiba

sn. @feraz eklemiş olduğu örneğe şu şekilde ufak eklemeler yaptım
form kısmına işaretleri satırları ekledim

Kod:
Private Sub setClassEvents()

    Set col = New Collection

    Dim Ctrl As Control

    For Each Ctrl In Me.Controls

        Set Olaylar = New Cls

        Select Case Ctrl.ControlType

            Case acCommandButton

                Set Olaylar.Buttons = Ctrl

            Case acTextBox ' <-----<

                Set Olaylar.TextBoxs = Ctrl ' <-----<

        End Select

        col.Add Olaylar

    Next

End Sub

class kısmına ise

Kod:
Private WithEvents myTextBox As TextBox

Public Property Set TextBoxs(ByVal objTextboxs As TextBox)

    Set myTextBox = objTextboxs

    myTextBox.BeforeUpdate = "[Event Procedure]"

End Property

Private Sub myTextBox_BeforeUpdate(Cancel As Integer)

    MsgBox "myTextBox_BeforeUpdate"

End Sub

bunu ekledim böylece tüm textbox kontrollere beforeupdate olayı class ile eklenmiş oldu

tekrar teşekkürler sn. @feraz

sn. @feraz ın cevabı gözümden kaçmış halbuki benim için önemli bir problemin çözümü idi
bunu hatırlatarak çözüme ulaşmama vesile olan sn. @ozanakkaya ya da ayrıca teşekkür ederim

Rica ederiz

1 2

ADO ile yapılmış formda beforeupdate olayınının class ile kullanımı

accessman

feraz