Etikete Tıkladığımda Açılan Forma Etiketin Numarasını Nasıl Getiririm.

1 2 3
30/12/2018, 00:12

Oğuz Türkyılmaz

(30/12/2018, 00:07)haliliyas yazdı: 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

Halil bey özür dilerim alanları metin yapmakdan kastınız nedir anlayamadım. Tüm etiketleri metin kutusuna çevirmekmi kastettiğiniz.
30/12/2018, 00:17

berduş

her bir etiketi metin kutusuna çevireceksiniz 


30/12/2018, 01:06

Oğuz Türkyılmaz

(30/12/2018, 00:17)haliliyas yazdı: her bir etiketi metin kutusuna çevireceksiniz 



30/12/2018, 01:36

berduş

bende böyle bir uyarı vermedi ama hatayı yok sayı deneyin
30/12/2018, 03:10

Oğuz Türkyılmaz

Sn.ozguryasin'in yöntemiyle seçim türlerini değiştirmeden her bir masa numarası için ayrı ayrı kod yazarak çözülebildi. Fonksiyon tanımlamak için varolan etiket seçim türlerini metin kutusu yada buton türüne değiştirmek gerekliydi. Kodu Kopyala yapıştırla çoğaltıp sadece masa numaralarını değiştirmek daha cazip geldi. Teşekkürler.
1 2 3