(21/03/2020, 09:32)berduş yazdı:Bu kod güzel çalışıyor.Ben hangi control nesnelerine tıklarsam onun arka plan (backcolor) yeşil olsun diye uğraştım gotfocus ile hata verip durdu.Bu kodlara göre nasıl yapılacak seçilenin arka plan rengi yeşil.(21/03/2020, 07:08)accessman yazdı: Aktif control bunun yerine mi kullanılmışevet aslında activecontrol.name yerin ctl.name de kullanılabilirdi yada
Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me
If ctl.Tag = "degistiginde" Then
ctl.OnChange = "=Degisti()"
End If
Next ctl
End Sub
gibi de
Public Function Degisti()
Dim ctl As Control
Me.Metin0 = ""
For Each ctl In Me
If ctl.Tag = "degistiginde" Then
If ctl.Name = ActiveControl.Name Then _
Me.Metin0 = Me.Metin0 & "|" & IIf(Len(Nz(Trim(ctl.Text))) = 0, ".", Trim(ctl.Text)) Else _
Me.Metin0 = Me.Metin0 & "|" & Nz(Trim(ctl), ".")
End If
Next ctl
Me.Metin0 = Mid(Me.Metin0, 2)
End Function
Koşullu biçimlendirme yada class ile değil bu kodlara göre nasıl olabilir?