Etiket Adını Kalıcı Olarak Butonla İle Değiştirme

Public Sub MasaRenk()
[Form_Frm_Masa].Btn_Masa1.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=1"), "5753088")
[Form_Frm_Masa].Btn_Masa2.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=2"), "5753088")
[Form_Frm_Masa].Btn_Masa3.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=3"), "5753088")
[Form_Frm_Masa].Btn_Masa4.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=4"), "5753088")
[Form_Frm_Masa].Btn_Masa5.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=5"), "5753088")
[Form_Frm_Masa].Btn_Masa6.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=6"), "5753088")
[Form_Frm_Masa].Btn_Masa7.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=7"), "5753088")
[Form_Frm_Masa].Btn_Masa8.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=8"), "5753088")
[Form_Frm_Masa].Btn_Masa9.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=9"), "5753088")
[Form_Frm_Masa].Btn_Masa10.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=10"), "5753088")
[Form_Frm_Masa].Btn_Masa11.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=11"), "5753088")
[Form_Frm_Masa].Btn_Masa12.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=12"), "5753088")
[Form_Frm_Masa].Btn_Masa13.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=13"), "5753088")
[Form_Frm_Masa].Btn_Masa14.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=14"), "5753088")
[Form_Frm_Masa].Btn_Masa15.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=15"), "5753088")
[Form_Frm_Masa].Btn_Masa16.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=16"), "5753088")
[Form_Frm_Masa].Btn_Masa17.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=17"), "5753088")
[Form_Frm_Masa].Btn_Masa18.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=18"), "5753088")
[Form_Frm_Masa].Btn_Masa19.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=19"), "5753088")
[Form_Frm_Masa].Btn_Masa20.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=20"), "5753088")
[Form_Frm_Masa].Btn_Masa21.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=21"), "5753088")
[Form_Frm_Masa].Btn_Masa22.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=22"), "5753088")
[Form_Frm_Masa].Btn_Masa23.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=23"), "5753088")
[Form_Frm_Masa].Btn_Masa24.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=24"), "5753088")
[Form_Frm_Masa].Btn_Masa25.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=25"), "5753088")
[Form_Frm_Masa].Btn_Masa26.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=26"), "5753088")
[Form_Frm_Masa].Btn_Masa27.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=27"), "5753088")
[Form_Frm_Masa].Btn_Masa28.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=28"), "5753088")
[Form_Frm_Masa].Btn_Masa29.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=29"), "5753088")
[Form_Frm_Masa].Btn_Masa30.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=30"), "5753088")
[Form_Frm_Masa].Btn_Masa31.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=31"), "5753088")
[Form_Frm_Masa].Btn_Masa32.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=32"), "5753088")
[Form_Frm_Masa].Btn_Masa33.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=33"), "5753088")
[Form_Frm_Masa].Btn_Masa34.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=34"), "5753088")
[Form_Frm_Masa].Btn_Masa35.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=35"), "5753088")
[Form_Frm_Masa].Btn_Masa36.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=36"), "5753088")
[Form_Frm_Masa].Btn_Masa37.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=37"), "5753088")
[Form_Frm_Masa].Btn_Masa38.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=38"), "5753088")
[Form_Frm_Masa].Btn_Masa39.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=39"), "5753088")
[Form_Frm_Masa].Btn_Masa40.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=40"), "5753088")
[Form_Frm_Masa].Btn_Masa41.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=41"), "5753088")
[Form_Frm_Masa].Btn_Masa42.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=42"), "5753088")
[Form_Frm_Masa].Btn_Masa43.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=43"), "5753088")
[Form_Frm_Masa].Btn_Masa44.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=44"), "5753088")
[Form_Frm_Masa].Btn_Masa45.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=45"), "5753088")
[Form_Frm_Masa].Btn_Masa46.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=46"), "5753088")
[Form_Frm_Masa].Btn_Masa47.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=47"), "5753088")
[Form_Frm_Masa].Btn_Masa48.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=48"), "5753088")
[Form_Frm_Masa].Btn_Masa49.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=49"), "5753088")
[Form_Frm_Masa].Btn_Masa50.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=50"), "5753088")
[Form_Frm_Masa].Btn_Masa51.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=51"), "5753088")
[Form_Frm_Masa].Btn_Masa52.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=52"), "5753088")
[Form_Frm_Masa].Btn_Masa53.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=53"), "5753088")
[Form_Frm_Masa].Btn_Masa54.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=54"), "5753088")
[Form_Frm_Masa].Btn_Masa55.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=55"), "5753088")
[Form_Frm_Masa].Btn_Masa56.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=56"), "5753088")
[Form_Frm_Masa].Btn_Masa57.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=57"), "5753088")
[Form_Frm_Masa].Btn_Masa58.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=58"), "5753088")
[Form_Frm_Masa].Btn_Masa59.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=59"), "5753088")
[Form_Frm_Masa].Btn_Masa60.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=60"), "5753088")
[Form_Frm_Masa].Btn_Masa61.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=61"), "5753088")
[Form_Frm_Masa].Btn_Masa62.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=62"), "5753088")
[Form_Frm_Masa].Btn_Masa63.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=63"), "5753088")
[Form_Frm_Masa].Btn_Masa64.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=64"), "5753088")
[Form_Frm_Masa].Btn_Masa65.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=65"), "5753088")
[Form_Frm_Masa].Btn_Masa66.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=66"), "5753088")
[Form_Frm_Masa].Btn_Masa67.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=67"), "5753088")
[Form_Frm_Masa].Btn_Masa68.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=68"), "5753088")
[Form_Frm_Masa].Btn_Masa69.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=69"), "5753088")
[Form_Frm_Masa].Btn_Masa70.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=70"), "5753088")
[Form_Frm_Masa].Btn_Masa71.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=71"), "5753088")
[Form_Frm_Masa].Btn_Masa72.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=72"), "5753088")
[Form_Frm_Masa].Btn_Masa73.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=73"), "5753088")
[Form_Frm_Masa].Btn_Masa74.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=74"), "5753088")
[Form_Frm_Masa].Btn_Masa75.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=75"), "5753088")
[Form_Frm_Masa].Btn_Masa76.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=76"), "5753088")
[Form_Frm_Masa].Btn_Masa77.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=77"), "5753088")
[Form_Frm_Masa].Btn_Masa78.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=78"), "5753088")
[Form_Frm_Masa].Btn_Masa79.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=79"), "5753088")
[Form_Frm_Masa].Btn_Masa80.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=80"), "5753088")
[Form_Frm_Masa].Btn_Masa81.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=81"), "5753088")
[Form_Frm_Masa].Btn_Masa82.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=82"), "5753088")
[Form_Frm_Masa].Btn_Masa83.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=83"), "5753088")
[Form_Frm_Masa].Btn_Masa84.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=84"), "5753088")
[Form_Frm_Masa].Btn_Masa85.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=85"), "5753088")
[Form_Frm_Masa].Btn_Masa86.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=86"), "5753088")
[Form_Frm_Masa].Btn_Masa87.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=87"), "5753088")
[Form_Frm_Masa].Btn_Masa88.BackColor = Nz(DLookup("ArkaRenk", "Srg_Masa", "Urn_Hrk_Ust_MasaId=88"), "5753088")

End Sub

Merhaba, eklediğiniz kodun etiket adını kalıcı olarak değiştirme ile alakasını anlamadım.

Daha önce belirttiğim gibi, tablo kullanmadan bu işlemi yapamazsınız. Değişken kullansanız bile uygulamayı açıp kapatınca etiket adı eski haline döner. Tablo kullanacaksanız belirtin ona göre kod yardımında bulunalım.

(13/09/2018, 09:46)ozanakkaya yazdı: Merhaba, eklediğiniz kodun etiket adını kalıcı olarak değiştirme ile alakasını anlamadım.

Daha önce belirttiğim gibi, tablo kullanmadan bu işlemi yapamazsınız. Değişken kullansanız bile uygulamayı açıp kapatınca etiket adı eski haline döner. Tablo kullanacaksanız belirtin ona göre kod yardımında bulunalım.

Tablo ile yapılabilecek şekilde örnek paylaşmıştım ama o şekilde istemediğini belirtti...

Sanırım ben tam ifade edemedim. Tablo bir kereye mahsus bilgiler yazılıcak sonrasında tablo kullanılmayacak. Taki etiket adını ne zaman değiştirene kadar.

dediğinize göre o verinin bir yerde tutulması gerekiyor. çünkü ne zaman değiştireceğiniz belli olmayacak. tablo istemiyorsanız şunu yapabilirsiniz, değiştireceğiniz zaman tasarım bölümünden etiket adını değiştirirsiniz.

Örneğinizin düzenlenmiş hali ektedir. Etiket adını kaydetme olayında yapılabilecek işlem budur.

Formdaki etikete çift tıkladığınızda etiket adını değiştirebilirsiniz. 

Önceki mesaja eklediğiniz MasaRenk kodu fonksiyon ile düzenlenebilir ancak örneğinizi yenilemeniz gerekiyor.