Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Access' Te Class Module Oluşturma

truhi
truhi
Access Cevaplanmış Soruları
7
385

Access' Te Class Module Oluşturma

Çözüldü #1
truhi
Aktif Üye
truhi
Bul
Aktif Üye
Adı Soyadı:
Konum: Ankara
Ofis Versiyonu: Ofis 2007
Son Oturumu: 14/04/2024,19:49
Yorumları: 124
Konuları: 40
Kayıt Tarihi: 29/09/2009
Teşekkür Puanı: 0
Merhaba,

Formda 20 tane metin kutusu mevcut, bu metin kutusununa tıkladığımız zaman aşağıdaki kodun çalışması için;
her bir metin kutusuna kod yazmadan Excel' de olduğu gibi class oluşturarak çözebilir miyiz?


Kod:
Private Sub m1_1_Enter()

If m1_1.BackColor = -2147483643 Then
    m1_1.BackColor = 0
ElseIf m1_1.BackColor = 0 Then
    m1_1.BackColor = -2147483643
End If

End Sub
teşekkürler,
iyi Çalışmalar.
truhi, 29-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
truhi
Aktif Üye
truhi
Bul
Aktif Üye
Adı Soyadı:
Konum: Ankara
Ofis Versiyonu: Ofis 2007
Son Oturumu: 14/04/2024,19:49
Yorumları: 124
Konuları: 40
Kayıt Tarihi: 29/09/2009
Teşekkür Puanı: 0
(17/07/2023, 17:17)truhi yazdı: Merhaba,

Formda 20 tane metin kutusu mevcut, bu metin kutusununa tıkladığımız zaman aşağıdaki kodun çalışması için;
her bir metin kutusuna kod yazmadan Excel' de olduğu gibi class oluşturarak çözebilir miyiz?


Kod:
Private Sub m1_1_Enter()

If m1_1.BackColor = -2147483643 Then
    m1_1.BackColor = 0
ElseIf m1_1.BackColor = 0 Then
    m1_1.BackColor = -2147483643
End If

End Sub
teşekkürler,
iyi Çalışmalar.

Merhaba,
Class oluşturmayla ilgili ekli dosyadaki bir kod buldum ama;

teşekkürler, iyi çalışmalar.
.rar db2.rar (Dosya Boyutu: 28,75 KB | İndirme Sayısı: 3)
truhi, 29-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#3
atoykan
Uzman
atoykan
Bul
Uzman
Adı Soyadı:
Konum: İstanbul
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,15:02
Yorumları: 1.279
Konuları: 3
Kayıt Tarihi: 23/02/2020
Teşekkür Puanı: 162
Mesleğiniz: CIO, Yazılım
Bir module ekleyin ve aşağıdaki kodu ekleyin
Kod:
Option Compare Database
Option Explicit

Dim WithEvents txtBoxes As Access.Forms.Controls

Private Sub Form_Load()
    Set txtBoxes = Me.Controls
End Sub

Private Sub txtBoxes_Enter(Index As Integer)
    Dim currentTextBox As Control
    Set currentTextBox = Me.Controls(txtBoxes(Index).Name)
    
    If currentTextBox.BackColor = -2147483643 Then
        currentTextBox.BackColor = 0
    ElseIf currentTextBox.BackColor = 0 Then
        currentTextBox.BackColor = -2147483643
    End If
End Sub
bu kod form yüklenirken textbox kontrollerini tanımlayıp herbirinin Enter olayını izleryecektir. Herhangi bir textbox tıklandığında da txtBoxes_Enter olayı tetiklenecek ve arka plan rengini değiştirecektir.
Cevapla
#4
truhi
Aktif Üye
truhi
Bul
Aktif Üye
Adı Soyadı:
Konum: Ankara
Ofis Versiyonu: Ofis 2007
Son Oturumu: 14/04/2024,19:49
Yorumları: 124
Konuları: 40
Kayıt Tarihi: 29/09/2009
Teşekkür Puanı: 0
(19/07/2023, 08:30)atoykan yazdı: Bir module ekleyin ve aşağıdaki kodu ekleyin
Kod:
Option Compare Database
Option Explicit

Dim WithEvents txtBoxes As Access.Forms.Controls

Private Sub Form_Load()
    Set txtBoxes = Me.Controls
End Sub

Private Sub txtBoxes_Enter(Index As Integer)
    Dim currentTextBox As Control
    Set currentTextBox = Me.Controls(txtBoxes(Index).Name)
    
    If currentTextBox.BackColor = -2147483643 Then
        currentTextBox.BackColor = 0
    ElseIf currentTextBox.BackColor = 0 Then
        currentTextBox.BackColor = -2147483643
    End If
End Sub
bu kod form yüklenirken textbox kontrollerini tanımlayıp herbirinin Enter olayını izleryecektir. Herhangi bir textbox tıklandığında da txtBoxes_Enter olayı tetiklenecek ve arka plan rengini değiştirecektir.

Hocam teşekkürler,
buradaki kodlar formun içine mi yazılacak? yoksa eklenecek bir modül içine yazılacak,

sanırsam bu kodun form' un kendine modülüne yazılması gerekecek?
Kod:
Private Sub Form_Load()
    Set txtBoxes = Me.Controls
End Sub
iyi Çalışmalar.
truhi, 29-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#5
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: Dün,17:38
Yorumları: 3.637
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Bende kodlar çalışmadığı için size arşivimden bir örnek atım.

[Event Procedure] olarak beraber kullanılıyor galiba class ile ama excelde bu yoktu.
.zip Class TextBox renk.zip (Dosya Boyutu: 99,69 KB | İndirme Sayısı: 3)
Cevapla
#6
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: Dün,17:38
Yorumları: 3.637
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Buda class sız alternatif arşivden.


Kod:
Option Compare Database

Private Sub Form_Load()

    Dim ctl As Control
    
    For Each ctl In Me.Controls
        Select Case ctl.ControlType
            Case acTextBox, acComboBox 'TextBox ve ComboBox icin
                If ctl.Tag = "degistiginde" Then
                    ctl.OnChange = "=Degisti([" & ctl.Name & "])"
                    ctl.OnGotFocus = "=ArdRenk([" & ctl.Name & "])"
                    ctl.OnLostFocus = "=ArdRenkCik([" & ctl.Name & "])"
                End If
            Case acCommandButton 'CommandButton ve TextBox ve ComboBox icin
                If ctl.Tag = "degistiginde" Then
                    ctl.OnGotFocus = "=ArdRenk([" & ctl.Name & "])"
                    ctl.OnLostFocus = "=ArdRenkCik([" & ctl.Name & "])"
                End If

        End Select
    Next ctl

End Sub

Public Function Degisti(ctl As Control) 'TextBox ve ComboBox icin
    Me.Metin0 = ctl.Text
End Function

Public Function ArdRenk(ctl As Control) 'TextBox ve ComboBox ve CommandButton icin
    ctl.BackColor = vbGreen
End Function

Public Function ArdRenkCik(ctl As Control) 'TextBox ve ComboBox ve CommandButton icin
    ctl.BackColor = vbWhite
End Function
.zip class alternatif(Textbox yada digerlerinin degistirildiginde olayi).zip (Dosya Boyutu: 42,36 KB | İndirme Sayısı: 3)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da