Skip to main content

AccessTr.neT


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

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

#7
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
Cevapla
#8
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.
Cevapla
#9
(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...
Cevapla
#10
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.
Cevapla
#11
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.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#12
Ö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.
.rar etiket adı_sld.rar (Dosya Boyutu: 25,73 KB | İndirme Sayısı: 1)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task