kusura bakmayın oğuz bey maalesef yazdığım kod sadece odaklanılabilen nesneler için geçerliymiş.
etiketler odaklanamadığından hata veriyormuş. daha doğrusu yarım yamalak İngilizceyle anlayabildiğim bu oldu
(29/12/2018, 23:17)haliliyas yazdı: [ -> ]kusura bakmayın oğuz bey maalesef yazdığım kod sadece odaklanılabilen nesneler için geçerliymiş.
etiketler odaklanamadığından hata veriyormuş. daha doğrusu yarım yamalak İngilizceyle anlayabildiğim bu oldu
Etiketleri butona çevirsem olurmu, yani botonlara odaklanılabiliyormu eğer odaklanılabiliyorsa etiketleri butona çevireyim.
Butonların özelliklerinde odaklanılabiliyor yazıyor fakat masanın dolu boş durumuna göre butonun farklı renklendirilmesi bu sefer sorun olurmu masa rezerve olayını bir şekilde hallederim.
ekteki örneği inceleyiniz. hangimasa metin kutusuna atıp diğer formun açıldıı olayından alınıyor. ben 1 ve 2 masaya uyguladım. en basit şekli bu. sn. haliliyas hocamın örneği ile harmanlanıp kullanılabilir. sorun çıkartmaz.
alanları metin yapıp
kodu da aşağıdakiyle değiştirirseniz olur
ama metin alanlarını kilitlemeniz gerek
Kod:
Public Function tumEtiket()
Dim MasaNo As String
MasaNo = Screen.ActiveControl
DoCmd.OpenForm "F_04_AdisyonFisi"
Forms![F_04_AdisyonFisi]![txtMasaNo] = MasaNo
End Function
(29/12/2018, 23:53)ozguryasin yazdı: [ -> ]ekteki örneği inceleyiniz. hangimasa metin kutusuna atıp diğer formun açıldıı olayından alınıyor. ben 1 ve 2 masaya uyguladım. en basit şekli bu. sn. haliliyas hocamın örneği ile harmanlanıp kullanılabilir. sorun çıkartmaz.
Özgür bey Çözümünüz için teşekkür ederim. Çözümü bir fonksiyon şeklinde yapmam çok kolaylık sağlayacak çünkü şu an 25 masa 150 şezlong var şezlong sayısının 300 e kadar çıkabilir. 250-300 satır bu kodu yazmaktansa fonksiyon tanımlamak daha mantıklı diye düşündüm ama başka türlü mümkün olmazsa kopyala yapıştıra başvuracağım herhalde.