(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