#1
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(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?
teşekkürler,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
iyi Çalışmalar.
db2.rar
(Dosya Boyutu: 28,75 KB | İndirme Sayısı: 3)
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(19/07/2023, 08:30)atoykan yazdı: Bir module ekleyin ve aşağıdaki kodu ekleyin
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.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
Private Sub Form_Load()
Set txtBoxes = Me.Controls
End Sub
Class TextBox renk.zip
(Dosya Boyutu: 99,69 KB | İndirme Sayısı: 5)
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
class alternatif(Textbox yada digerlerinin degistirildiginde olayi).zip
(Dosya Boyutu: 42,36 KB | İndirme Sayısı: 3)
