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