+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Etikete Tıkladığımda Açılan Forma Etiketin Numarasını Nasıl Getiririm. (/konu-etikete-tikladigimda-acilan-forma-etiketin-numarasini-nasil-getiririm.html)
Etikete Tıkladığımda Açılan Forma Etiketin Numarasını Nasıl Getiririm. - Oğuz Türkyılmaz - 29/12/2018
Merhabalar
![[Resim: do.php?imgf=154607775076341.jpg]](https://accesstr.net/resim/do.php?imgf=154607775076341.jpg)
F_01_MasaGiris Formunda 1 numaralı masaya tıkladığımda açılan F_04_AdisyonFisi formundaki txtMasaNo değerinin 1 numara değerini almasını istiyorum. Nasıl yapabilirim.Teşekkürler.
![[Resim: do.php?imgf=154607775131513.jpg]](https://accesstr.net/resim/do.php?imgf=154607775131513.jpg)
![[Resim: do.php?imgf=154607775122082.jpg]](https://accesstr.net/resim/do.php?imgf=154607775122082.jpg)
Cvp: Etikete Tıkladığımda Açılan Forma Etiketin Numarasını Nasıl Getiririm. - berduş - 29/12/2018
etiket1in tıklanma olayına aşağıdak kodu ekleyin
Kod:
Forms![F_04_AdisyonFisi]![txtMasaNo] = 1Cvp: Etikete Tıkladığımda Açılan Forma Etiketin Numarasını Nasıl Getiririm. - Oğuz Türkyılmaz - 29/12/2018
(29/12/2018, 13:20)haliliyas yazdı: etiket1in tıklanma olayına aşağıdak kodu ekleyin
Kod:Forms![F_04_AdisyonFisi]![txtMasaNo] = 1
Halil bey bu işlem için bir procedure ya da fonksiyon falan tanımlanabilirmi. 25 adet masa 150 adet şezlong var. Tek tek hepsine tanımlamak şartmı. Bir tanımlama yapıp bütün tıklamalarda o işlemi çalıştırabilirmiyiz. Docmd.OpenForm "F_04_AdisyonFisi" kodunda formu bulup açıyor ama sizin kod da (F_04_AdisyonFisi) formunu bulamıyor diye hata veriyor.
Cvp: Etikete Tıkladığımda Açılan Forma Etiketin Numarasını Nasıl Getiririm. - berduş - 29/12/2018
ben de onunla uğraşıyordum)
tüm alanları seçip fonksiyon çağırmaya çalışıyorum ama daha tanımlayamadım
module
Public Function tumEtiket()
DoCmd.OpenForm "F_04_AdisyonFisi"
Forms![F_04_AdisyonFisi]![txtMasaNo] = ActiveControl.Controls(1).Caption ' Me!EditControl.Controls(0).Caption
End Function
diye bir fonksiyon tanımladım ama fonksiyon sorunlu hata veriyor onu düzeltmeye çalışıyorum
Cvp: Etikete Tıkladığımda Açılan Forma Etiketin Numarasını Nasıl Getiririm. - berduş - 29/12/2018
önce F_01_MasaGiris Formuna aşağıdaki fonksiyonu ekleyin
Public Function tumEtiket()
DoCmd.OpenForm "F_04_AdisyonFisi"
Forms![F_04_AdisyonFisi]![txtMasaNo] = ActiveControl.Controls(1).Caption
End Function=tumEtiket()
![[Resim: do.php?imgf=154608212546611.jpg]](https://accesstr.net/resim/do.php?imgf=154608212546611.jpg)
Cvp: Etikete Tıkladığımda Açılan Forma Etiketin Numarasını Nasıl Getiririm. - Oğuz Türkyılmaz - 29/12/2018
(29/12/2018, 14:16)haliliyas yazdı: önce F_01_MasaGiris Formuna aşağıdaki fonksiyonu ekleyin
sonra etiketleri seçip tıkla olayına aşağıdaki kodu yazınPublic Function tumEtiket()
DoCmd.OpenForm "F_04_AdisyonFisi"
Forms![F_04_AdisyonFisi]![txtMasaNo] = ActiveControl.Controls(1).Caption
End Function
=tumEtiket()
Halil bey İyi Akşamlar
Hangi masaya tıklarsam tıklıyım 1 nolu masayı adisyon fişine aktarıyor.