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

her bir etiketi metin kutusuna çevireceksiniz 

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

Metin kutusuna döndürdüğümde oluşan durumda resimdeki seçeneklerden hangisini seçmeliyim.

bende böyle bir uyarı vermedi ama hatayı yok sayı deneyin

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.