Merhaba;
Yeni olunca bazı şeyleri yapamıyor insan, formda da
aradım bulamadım kusura bakmayın
Örnekteki formda yeni kayıt butonunu tıklayınca
Tabloda bulunan alan2 deki son kayıtı formdaki
alan1 metin kutusuna nasıl yazdırabiliriz.
Yardımlarınız için şimdiden teşekkürler.
Metin kutusuna önceki kayıdı getirme
A1 = DMax("Alan2", "tablo1")
If IsNull(A1) Then A1 = 0
Me.Alan1 = A1
If IsNull(A1) Then A1 = 0
Me.Alan1 = A1
Sayın odin,
Talebinize yönelik olarak,sayın Celoyce tarafından paylaşılan kodlara küçük bir ekleme yapmak amacı ile,kendilerinin hoşgörüsüne sığınaraktan şu ilaveyi yapmak yerinde olacaktır.
Öncelikle,
Uygulamadaki form üzerinde olay yordamı yerine Katıştırılmış Makro kullanıldığı için,ilgili Alan1 adlı denetimi tasarım olarak açtırıp ÖZELLİKLER – OLAY sekmesindeki TIKLANDIĞINDA olay yordamı oluşturulmalı ve yazdığınız bu kodların bir üst satırına YENİ KAYIT satırı açtırılmalı ki,sonradan bu yeni kayıt üzerinde talep edilen Alan2’deki değeri Alan1’e aktarımı sağlanabilsin.
Ayrıca,
kod sayfasında ilk ikinci satırda OPTION EXPLICIT kod satırı olduğu için,A1 Değişken tanımlaması satırında hata verecektir,önceden bu tanımlama yapılmadığı gerekçesi ile.
Bu nedenle,sayın Celoyce;
ilgili kod,sizin yazdığınız şekli ile değerlendirildiğinde
Ya da,bir diğer kullanım olarak,değişken ataması yapmaksızın direkt;
benzeri de kullanılabilir.
Bilginize…iyi çalışmalar,saygılar.
Talebinize yönelik olarak,sayın Celoyce tarafından paylaşılan kodlara küçük bir ekleme yapmak amacı ile,kendilerinin hoşgörüsüne sığınaraktan şu ilaveyi yapmak yerinde olacaktır.
Öncelikle,
Uygulamadaki form üzerinde olay yordamı yerine Katıştırılmış Makro kullanıldığı için,ilgili Alan1 adlı denetimi tasarım olarak açtırıp ÖZELLİKLER – OLAY sekmesindeki TIKLANDIĞINDA olay yordamı oluşturulmalı ve yazdığınız bu kodların bir üst satırına YENİ KAYIT satırı açtırılmalı ki,sonradan bu yeni kayıt üzerinde talep edilen Alan2’deki değeri Alan1’e aktarımı sağlanabilsin.
Ayrıca,
kod sayfasında ilk ikinci satırda OPTION EXPLICIT kod satırı olduğu için,A1 Değişken tanımlaması satırında hata verecektir,önceden bu tanımlama yapılmadığı gerekçesi ile.
Bu nedenle,sayın Celoyce;
ilgili kod,sizin yazdığınız şekli ile değerlendirildiğinde
DoCmd.GoToRecord , , acNewRec
dim A1
A1 = DMax("Alan2", "tablo1")
If IsNull(A1) Then A1 = 0
Me.Alan1 = A1
Ya da,bir diğer kullanım olarak,değişken ataması yapmaksızın direkt;
DoCmd.GoToRecord , , acNewRec
Me.Alan1 = Nz(DLast("Alan2", "Tablo1"), 0)
'ya da,
'Me.Alan1 = Nz(DMax("Alan2", "Tablo1"), 0)
'şeklinde de olabilir
benzeri de kullanılabilir.
Bilginize…iyi çalışmalar,saygılar.
Atoz hocam estafurullah
ayrıca teşekkürler
ayrıca teşekkürler
Sayın odin,
ifadenize yönelik olarak,sadece bir hatırlatma olması adına,
doğru arama ifadeleri ile araştırmanız sizin için daha faydalı olacaktır.
Site arama sayfasında,örneğin;
(çift tırnak içerisinde yazmak sureti ile) ”son kayıt” dahi yazdığınızda edineceğiniz çeşitli içeriklerdeki konulardan bazıları aşağıda yer almaktadır.
forma yeni kayıtlarda en son kayıt gelmesi ve istenilen değerin değiştirilmesi
formda bir alana sorgudaki son kayıttan bir değer atamak
yeni kayıt sayfasında son sıra numarası değerinin gösterilmesi
Bilginize…iyi çalışmalar,saygılar.
Alıntı:formda da aradım bulamadım
ifadenize yönelik olarak,sadece bir hatırlatma olması adına,
doğru arama ifadeleri ile araştırmanız sizin için daha faydalı olacaktır.
Site arama sayfasında,örneğin;
(çift tırnak içerisinde yazmak sureti ile) ”son kayıt” dahi yazdığınızda edineceğiniz çeşitli içeriklerdeki konulardan bazıları aşağıda yer almaktadır.
forma yeni kayıtlarda en son kayıt gelmesi ve istenilen değerin değiştirilmesi
formda bir alana sorgudaki son kayıttan bir değer atamak
yeni kayıt sayfasında son sıra numarası değerinin gösterilmesi
Bilginize…iyi çalışmalar,saygılar.
Sayın azot112 ve Celoyce ilginiz teşekkür ederim sorunum çözülmüştür.
Sayın azot112 uyarılarınızda haklısınız konuya hakim olunmayınca
neyin ne olduğunu bilemiyor insan
Saygılarımla
Sayın azot112 uyarılarınızda haklısınız konuya hakim olunmayınca
neyin ne olduğunu bilemiyor insan
Saygılarımla
Konuyu Okuyanlar: 1 Ziyaretçi