Skip to main content

AccessTr.neT


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ı

#7
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
@benbendedeilem
Cevapla
#8
Rica ederiz Img-grin
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task