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()
![[Resim: do.php?imgf=154608212546611.jpg]](https://accesstr.net/resim/do.php?imgf=154608212546611.jpg)
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