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

ADO ile yapılmış formda beforeupdate olayınının class ile kullanımı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: ADO ile yapılmış formda beforeupdate olayınının class ile kullanımı (/konu-ado-ile-yapilmis-formda-beforeupdate-olayininin-class-ile-kullanimi.html)

Sayfalar: 1 2

RE: ADO ile yapılmış formda beforeupdate olayınının class ile kullanımı - accessman - 15/04/2020

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

RE: ADO ile yapılmış formda beforeupdate olayınının class ile kullanımı - feraz - 15/04/2020

Rica ederiz Img-grin