Metin Kutusu Birleştirmek Ve Text Özelliği

Metin Kutusu Birleştirmek Ve Text Özelliği - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Kutusu Birleştirmek Ve Text Özelliği (/konu-metin-kutusu-birlestirmek-ve-text-ozelligi.html)

Sayfalar: 1 2 3 4 5 6 7 8 9

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - feraz - 21/03/2020

(21/03/2020, 11:40)berduş yazdı: doğrudan belli özelliğe sahip isimlendirmede yapılabilir,
Not:feraz bey anlaşılır olabilmesi için koda açıklama eklenebirilir şu kutucuklar şu işlemde kullanılacak diye

İllede array abey Img-grin

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - accessman - 21/03/2020

Dim Kontrol As Control

For Each Kontrol In Me



        Select Case Kontrol.ControlType   'Tüm kontrolleri gözden geçirelim..

        Case acTextBox, acComboBox, acCheckBox, acOptionGroup



        if(instr(Kontrol.tag,"personel") then arrayPersonel.add Kontrol

        if(instr(Kontrol.tag,"haftasonu") then arrayHaftasonu.add Kontrol

        if(instr(Kontrol.tag,"calisan") then arrayCalisan.add Kontrol





        End Select

Next Kontrol

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - feraz - 21/03/2020

(21/03/2020, 09:32)berduş yazdı:

(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



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

gibi de

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.

Koşullu biçimlendirme yada class ile değil bu kodlara göre nasıl olabilir?

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - berduş - 21/03/2020

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

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - accessman - 21/03/2020

Vba kod ile 100 tane 1cm çaplı çemberi bir kutunun içinde birbirine değdikçe uzaklaşacak şekilde bir kod yazabilir miyiz

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - berduş - 21/03/2020

Neden olmasın ama ben yapabileceğimi sanmıyorum, beni aşar o nedenle olabilirliğine dair verdigim cevap da şüpheli aslında.
Ama şu var her nesnenin merkezinin öbürüne mesafesini hesaplamak zor değil ona göre işlem yapilabilir
Ve yine konunun dışına çıkılmaya başlandı.