Merhaba Hocalarım,
Çalışmamdaki tüm formlarda yer alan metin kutularını tek bir kodla nasıl biçimlendirebilirim? Örneğin a ve b formlarındaki tüm metin kutuları arka planları kırmızı olsun gibi..

Yine bu biçimlendirmeden sonra tasarım modunda çalışmamı nasıl kaydedebilirim? Teşekkürler.

benzeri birşey olmalı
backcolorden çok emin degilim

Pardon bu kod sadece aktif form icin gecerlii

(06-06-2020, 20:34)halily demiş ki: Pardon bu kod sadece aktif form icin gecerlii

Hayır Halil Hocam, aktif olmayan 7 form var.

önce forma bir modül ekleyip aşağıdaki kodları ekleyin


sonra da forma eklediğiniz butona aşağıdaki kodu yazıp çalıştırın

(06-06-2020, 22:07)halily demiş ki: önce forma bir modül ekleyip aşağıdaki kodları ekleyin

Visual Basic

Function FrmDuzenle()
 Dim obj As AccessObject, dbs As Object
 Dim frm As Form
 Dim ctl As Control
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllForms collection.
    For Each obj In dbs.AllForms
    DoCmd.OpenForm obj.Name, acDesign
        For Each ctl In Forms(obj.Name).Controls
            If ctl.ControlType = acTextBox Then ctl.BackColor = vbRed
        Next ctl
    DoCmd.Close acForm, obj.Name, acSaveYes
    Next obj
 
End Function

sonra da forma eklediğiniz butona aşağıdaki kodu yazıp çalıştırın

Visual Basic

FrmDuzenle

Halil Hocam elinize sağlık,küçük bir sorun var yalnız, butona bastığımda çalışmam kapanıyor ancak access arka planda çalıştığı için yeniden başlatamıyorum. Görev yöneticisinden kapatmak zorunda kalıyorum. Mümkünse çıkmasın, çıkacaksa arka planda çalışmayı da sonlandırsın. Teşekkürler.

Bunkodlaarla öyle birseyin olmaması gerek.
Dün denediğimde bende öyle bir sorun oluşmadı, sizin çalışmanızda başka kodlar var mi?
Deneme amaçlı olarak yeni bir VT oluşturup birkaç form ve birkaç metin kutusu ekleyip sadece bu kodları ekleyerek dener misiniz?