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