Metin Kutusu Birleştirmek Ve Text Özelliği

1 2 3 4 5 6 7 8 9

(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

(21/03/2020, 21:33)feraz yazdı: checkbox ve optionbox için istediğim gibi yapamadım

tam olarak amacınız ne?

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.

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

1 2 3 4 5 6 7 8 9