AccessTr.neT

Merhabalar

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.

etiket1in tıklanma olayına aşağıdak kodu ekleyin

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

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

ö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

sonra etiketleri seçip tıkla olayına  aşağıdaki kodu yazın
=tumEtiket()

(29/12/2018, 14:16)haliliyas yazdı: [ -> ]ö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

sonra etiketleri seçip tıkla olayına  aşağıdaki kodu yazın
=tumEtiket()

Halil bey İyi Akşamlar

Hangi masaya tıklarsam tıklıyım 1 nolu masayı adisyon fişine aktarıyor.