merhaba arkadaşlar, bir iki kod yazmaya çalıştım mantıksal olarak, başaramadım, isteğim, ilgili kayida (alt form veri sayfası gorunumunde) tıklayınca o kaydi etikete aktarma olayi.. dosya ekleme gereği duymadım, kısa bir kod olsa gerek
Metin Kutusundaki Değeri Label Da Gosterme
altformun formCurrent/geçerli olduğunda olayına aşağıdaki kodu yazıp dener misiniz?
Etiket1: Anaformdaki verinin aktarılacağı etiket
MetinKutusu: altformdaki alınacak verinin yazıldığı alan
Me.MetinKutusu & " " & Me.MetinKutusu2 & " " & Me.MetinKutusu3....... gibi tüm alanlar birleştirilebilir
Etiket1: Anaformdaki verinin aktarılacağı etiket
MetinKutusu: altformdaki alınacak verinin yazıldığı alan
Me.Parent.etiket1.Caption = Me.MetinKutusu
eğer o kayda ait tüm veriler aktarılacaksa Me.MetinKutusu & " " & Me.MetinKutusu2 & " " & Me.MetinKutusu3....... gibi tüm alanlar birleştirilebilir
(29/08/2020, 12:33)berduş yazdı: altformun formCurrent/geçerli olduğunda olayına aşağıdaki kodu yazıp dener misiniz?Çok teşekkürler sayın berduş, o şekilde olmadı, zaten ben direkt "Me" yazıp nokta koyunca ilgili nesne ve yordamların gelmediğini görünce olmayacağını sezdim, başka nasıl yapabilirim acaba, bu kez dosyayı attım, bakabilir misiniz?
Etiket1: Anaformdaki verinin aktarılacağı etiket
MetinKutusu: altformdaki alınacak verinin yazıldığı alan
eğer o kayda ait tüm veriler aktarılacaksaMe.Parent.etiket1.Caption = Me.MetinKutusu
Me.MetinKutusu & " " & Me.MetinKutusu2 & " " & Me.MetinKutusu3....... gibi tüm alanlar birleştirilebilir
dosyayı göremedim?
dosyanızda bir sorun göremedim
kod yapması gerekeni yapıyor
siz alt formda kayıtlar arasında dolaşırken metin kutusundaki veri değişiyor
sadece yeni kayıtta sorun çıkarıyordu onu da kodu aşağıdaki şekilde düzenleyerek halledebilirsiniz.
kod yapması gerekeni yapıyor
siz alt formda kayıtlar arasında dolaşırken metin kutusundaki veri değişiyor
sadece yeni kayıtta sorun çıkarıyordu onu da kodu aşağıdaki şekilde düzenleyerek halledebilirsiniz.
If Not NewRecord Then Me.Parent.Etiket5.Caption = Me.kitap_adi Else Me.Parent.Etiket5.Caption = ""
https://resim.accesstr.net/do.php?img=10465
Konuyu Okuyanlar: 2 Ziyaretçi