(21/03/2020, 18:05)berduş yazdı: [ -> ]sorun odaklanamayacak nesnelerden kaynaklanıyor olabilir mesela etiketler böyledir ama başa on error resume next koyarak yada odaklanmayan nesnelerin controlType<>100, bu sadece etiket için, engellenebilir
bu örnekte seçenek kutularının odaklanma özelliği olduğu içim olay atanmış ama seçenek kutularının ard alan özelliği olmadığından tıklayınca hata veriyor
Teşekkürle çalıştı.
ByRef ctl As Control burdaki ByRef yazılmak zorunda değil ,hiç yazılmazsa ByRef olarak kabul edilirir.
Bu bilgide benden olsun.
bir de optional var değil mi yazılmasa da olan
(21/03/2020, 19:26)accessman yazdı: [ -> ]bir de optional var değil mi yazılmasa da olan
Evet.Kaç saattir uğraşıyorum berduş hıcanın son dısyası için checkbox ve optionbox için istediğim gibi yapamadım daha
Amaç ve gaye optionbutton ve checkbutton arkaplan rengini değiştirmek aynı textboxlarda olduğu gibi.Ve hangi checkboxa tıklayınca diğerleri seçili olmasın tıklanan ise seçili ise tersi değilse seçili olsun.
Aslında alttaki kodlarla oldu bişeyler lakin giftede olduğu gibi optionbuttonlar bazen çift çıkıyor msgboxtta.
Arka planı zaten yapamadım sorun değil o zaten.
Neden başka forumlara gif eklemek zorunda kalıyoruz konu taşınınca
Hayırlı Kandiller bu arada abey.
![[Resim: MTVlNzY2M2VhMTAzYWE.gif]](http://flashresim.com/upload/MTVlNzY2M2VhMTAzYWE.gif)
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
Case acOptionButton 'OptionButton icin
If ctl.Tag = "degistiginde" Then
ctl.OnGotFocus = "=ArdSec1([" & ctl.Name & "])"
End If
Case acCheckBox 'CheckBox icin
If ctl.Tag = "degistiginde" Then
ctl.Value = False
ctl.OnLostFocus = "=ArdSecCik2([" & ctl.Name & "])" 'CheckBox icin
End If
End Select
Next ctl
End Sub
Public Function Degisti(ctl As Control) 'TextBox ve ComboBox icin
Me.Metin0 = Empty
For Each ctl In Me.Controls
If ctl.Tag = "degistiginde" Then
If ctl.Name = ActiveControl.Name Then
Me.Metin0 = ctl.Text
End If
End If
Next ctl
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
Public Function ArdSec1(ctl As Control) 'OptionButton icin
MsgBox ctl.Name
End Function
Public Function ArdSecCik2(ctl As Control) 'CheckBox icin
ctl.Value = False
End Function