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
Etiket Adını Kalıcı Olarak Butonla İle Değiştirme
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.
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.
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.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Ö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.
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.
Konuyu Okuyanlar: 1 Ziyaretçi