AccessTr.neT

Tam Versiyon: Metin Kutusu Birleştirmek Ve Text Özelliği
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 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 Img-cray
(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 Img-cray
Hayırlı Kandiller bu arada abey.

[Resim: 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
Sayfalar: 1 2 3 4 5 6 7 8 9