AccessTr.neTMicrosoft AccessAccess Örnekleri ve Uygulamaları

Access Class Textbox Change Olayı Örnek Uygulama

1 2 3
22/03/2020, 20:00

feraz

Dosyadaki  Metin13 textboxuna veri girmek için alttaki gibi yeterli.


Private Sub ClassTextBox_Change()

 

    Forms("Form1").Controls("Metin13") = Empty

    Forms("Form1").Controls("Metin13") = ClassTextBox.Text

    

End Sub
22/03/2020, 20:07

accessman

form adını ve control adını class a argument olarak nasıl gönderebiliriz yani class form1 den ve metin13 den bağımsız olsun
22/03/2020, 20:17

feraz

Accesman ve berduş hocalarım sizin için gif hazırladım mantığı anlamanız için.
Set ClassTextBox = TextBox bunlardan fazla yazmışım 
Public Sub Initialize(TextBox As Access.TextBox)

    Set ClassTextBox = TextBox

    ClassTextBox.OnMouseDown = olayTextBox

    ClassTextBox.OnKeyDown = olayTextBox

    ClassTextBox.OnClick = olayTextBox

    

End Su
b


22/03/2020, 20:52

feraz

(22/03/2020, 20:07)accessman yazdı: form adını ve control adını class a argument olarak nasıl gönderebiliriz yani class form1 den ve metin13 den bağımsız olsun
Birinci yöntem alttaki kodlar gibi property olarak yapılabilir.

Kod:
Public Property Get formad() As Variant
      FormAdi = pFormad
End Property

Public Property Let formad(ByVal FormAdi As Variant)
    pFormad = FormAdi
End Property

Kod:
olay.formad = "Form1"
Dim pFormad
For Each kontrol In Forms(pFormad)
Yukardaki kodlar eklendi.


Kod:
Option Compare Database

Private Const olayTextBox  As String = "[Event Procedure]"

Private WithEvents ClassTextBox As Access.TextBox
Dim pFormad

Public Sub Initialize(TextBox As Access.TextBox)
    Set ClassTextBox = TextBox
    ClassTextBox.OnChange = olayTextBox
End Sub


Public Sub Terminate()
    Set ClassTextBox = Nothing
End Sub


    Private Sub ClassTextBox_Change()
   
        Dim kontrol As Control
        Dim aa
       
        aa = vbNullString
       
        For Each kontrol In Forms(pFormad)
            If kontrol.ControlType = acTextBox Then
                If kontrol.Tag = "xx" Then
                    kontrol.Application.RunCommand acCmdSave
                    aa = aa & "," & kontrol
                End If
            End If
        Next
                                   
       
        aa = Mid(aa, 2)
        Forms("Form1").Controls("Metin13") = Empty
        Forms("Form1").Controls("Metin13") = aa
                If Len(ClassTextBox) > 0 Then
            ClassTextBox.SelStart = Len(ClassTextBox)
        Else
            ClassTextBox.SelStart = 1
        End If
      If Forms("Form1").Controls("Metin13") = ",,," Then Forms("Form1").Controls("Metin13") = Empty
    End Sub


Public Property Get formad() As Variant
      FormAdi = pFormad
End Property

Public Property Let formad(ByVal FormAdi As Variant)
    pFormad = FormAdi
End Property


Kod:
Private Sub Form_Load()

    Dim olay  As New ClassTextboxSec
    Dim kontrol As Access.Control
   
    Set olay = New ClassTextboxSec
    olay.formad = "Form1"
    Set KontrolCollection = New Collection

    For Each kontrol In Me.Controls
        If kontrol.ControlType = acTextBox Then
            If kontrol.Tag = "xx" Then
                Set olay = New ClassTextboxSec
                olay.Initialize kontrol
                KontrolCollection.Add olay, kontrol.name
            End If
        End If
    Next
   
    Set olay = Nothing
    Set Control = Nothing

End Sub
22/03/2020, 21:11

feraz

(22/03/2020, 20:07)accessman yazdı: form adını ve control adını class a argument olarak nasıl gönderebiliriz yani class form1 den ve metin13 den bağımsız olsun
ikinci öntem;

Private Sub Form_Load() içindeki
olay.Initialize kontrol yerine olay.Initialize kontrol, "Form1"


ve class kodundaki ilgili yerleride alttaki gibi değiştirin.

Public Sub Initialize(TextBox As Access.TextBox, formAd As String)
    Set ClassTextBox = TextBox
    ClassTextBox.OnChange = olayTextBox
    FormAdi = formAd
End Sub



For Each kontrol In Forms(FormAdi)

Tabii class içindeki If Forms("Form1") olanlarıda If Forms(FormAdi) gibi yapabilirsiniz.
1 2 3