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

Etiket Adını Kalıcı Olarak Butonla İle Değiştirme - 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ığı: Etiket Adını Kalıcı Olarak Butonla İle Değiştirme (/konu-etiket-adini-kalici-olarak-butonla-ile-degistirme.html)

Sayfalar: 1 2 3

Cvp: Etiket Adını Kalıcı Olarak Butonla İle Değiştirme - sertac76 - 12/09/2018

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

Cvp: Etiket Adını Kalıcı Olarak Butonla İle Değiştirme - ozanakkaya - 13/09/2018

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.

Cvp: Etiket Adını Kalıcı Olarak Butonla İle Değiştirme - Allback - 13/09/2018

(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...

Cvp: Etiket Adını Kalıcı Olarak Butonla İle Değiştirme - sertac76 - 13/09/2018

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.

Cvp: Etiket Adını Kalıcı Olarak Butonla İle Değiştirme - ozguryasin - 13/09/2018

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.

Cvp: Etiket Adını Kalıcı Olarak Butonla İle Değiştirme - ozanakkaya - 14/09/2018

Ö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.