Public Function tumEtiket()
DoCmd.OpenForm "F_04_AdisyonFisi"
Forms![F_04_AdisyonFisi]![txtMasaNo] = ActiveControl.Controls(1).Caption
End Function
sonra etiketleri seçip tıkla olayına aşağıdaki kodu yazın=tumEtiket()
Public Function tumEtiket()
DoCmd.OpenForm "F_04_AdisyonFisi"
Forms![F_04_AdisyonFisi]![txtMasaNo] = ActiveControl.Controls(1).Caption
End Function
sonra etiketleri seçip tıkla olayına aşağıdaki kodu yazın