AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Etikete Tıkladığımda Açılan Forma Etiketin Numarasını Nasıl Getiririm.

1 2 3
29/12/2018, 13:07

Oğuz Türkyılmaz

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.



29/12/2018, 13:20

berduş

etiket1in tıklanma olayına aşağıdak kodu ekleyin
Kod:
Forms![F_04_AdisyonFisi]![txtMasaNo] = 1
29/12/2018, 13:30

Oğuz Türkyılmaz

(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.
29/12/2018, 13:56

berduş

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
29/12/2018, 14:16

berduş

ö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, 19:06

Oğuz Türkyılmaz

(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.
1 2 3