+- 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ığı: Veri Görünümündeki Alt Formda kaydı otomatik çoğaltmak (/konu-veri-gorunumundeki-alt-formda-kaydi-otomatik-cogaltmak.html)
Cvp: Veri Görünümündeki Alt Formda kaydı otomatik çoğaltmak - mehmetdemiral - 15/07/2009
eee
tamam da, zaten öyleydi canım kardeşim. Ben size komutların ne işe yaradığını anlatayım da siz karar verin nasıl olacağına..
1- DoCmd.GoToRecord , , acLast
Son kayıda gidiliyor.
2- DoCmd.RunCommand acCmdSelectRecord
Gidilen satırdaki kayıt seçiliyor
3- DoCmd.RunCommand acCmdCopy
Seçilen kayıt belleğe kopyalanıyor
4- DoCmd.GoToRecord , "", acNewRec
Yeni bir kayıt açılıyor
5- DoCmd.RunCommand acCmdPaste
Bellekte tutulan kayıt yapıştırılıyor
6-Me.YolcTarihi = YolcTarihi + 1
Yolctarihi isimli metinkutusuna 1 gün ekleniyor
Şimdi burada eğer nerede olursam olayım son kayıttakini bir arttırıp alta kopyalasın derseniz 1 nolu satır duracak. Yok neredeysen o kayda bir ekleyip yeni kayıt olarak kaydetsin derseniz o satırı silin olsun bitsin.
Yazdıklarınızı birkaç kez okudum
"2. Satırda iken komutu çalıştırdığımızda 2.satırın tarihine 1 ekleyip 7.satıra
(07.07.2009 yerine) 03.07.2009 yazıyor. Demek istediğim hangi satırda olursam olayım daima en son kayıttaki tarihe 1 eklesin. "
Ben denediğimde 2.satıra da tıklasan 1.nci satıra da tıklasam önce son satıra gider ve oradan hareketle yeni kayıt açar. Siz nasıl çalıştırıyorsunuz anlamış değilim. İyice deneyin "Evet ya öyleymiş" diye de mesaj yazacaksınız.
Sanırım ben anladım ne hata yaptığınızı. Sizin örnekte sadece YolcTarihinde değil, diğer metin kutularından birinde de komutlar vardı. Onları silin. Sadece YolcTarihi alanında çift tıklatıldığında çalışsın. Eğer nerde tıklarsam tıklayayım çalışsın diyorsanız aynı komutları tüm metinkutularına aynı çift tıklama yordamına yapıştırın.
Cvp: Veri Görünümündeki Alt Formda kaydı otomatik çoğaltmak - esrefigit - 15/07/2009
sayın mehmet demiral kardeş sen yanlış anlamışsın sanırım bu arkadaş hangi satırı tıklarsam o satırı kopyalasın diyor ancak tarihi son satırdaki tarihin bir büyüğü olsun diyor yani anlayacağın son kaydın tarihini önce hafızaya almalı sonra kaydı kopyalayıp yapıştırmalı ondan sonrada tarihi bu hafızadaki tarihle değiştirmeli ve üzerine +1 ekleyerek tabii
bu şekilde değiştir
Kod:
Private Sub YolcTarihi_DblClick(Cancel As Integer)
Dim tar As Date
tar = DLast("[YolcTarihi]", "[Harcirah Verileri Sorgu]", "[HBKayID]=" & HBKayID)
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , "", acNewRec
DoCmd.RunCommand acCmdPaste
Me.YolcTarihi = tar + 1
End Sub[hr]Cvp: Veri Görünümündeki Alt Formda kaydı otomatik çoğaltmak - mehmetdemiral - 15/07/2009
Yuh yani. O zaman "tıkladığım satırdaki tarih dışındaki bilgileri alsın ama tarihi son kayıttan alıp 1 eklesin" demek bu kadar mı zor yani. Anlamak için 2 saattir 50 kez okudum.
Cvp: Veri Görünümündeki Alt Formda kaydı otomatik çoğaltmak - Access70 - 15/07/2009
Anlayan anlamış. Neyse sizi yorduysam kusura bakmayın. Hepinize teşekkürrler.
Cvp: Veri Görünümündeki Alt Formda kaydı otomatik çoğaltmak - mehmetdemiral - 15/07/2009
Alıntı:Ustam galiba iyi anlatamadım. Şimdi 6 kayıt var (veya satır diyelim)
1. Satır 01.07.2009 > Karşısında diğer alanlar
2. Satır 02.07.2009 > " " "
.....
6. Satır 06.07.2009 " " "
2. Satırda iken komutu çalıştırdığımızda 2.satırın tarihine 1 ekleyip 7.satıra
(07.07.2009 yerine) 03.07.2009 yazıyor. Demek istediğim hangi satırda olursam olayım daima en son kayıttaki tarihe 1 eklesin.
Allah rızası için bu satırlarda yazılanları benim anladığım gibi anlamayan beri gelsin. "Satırda iken komutu çalıştırdığımızda 2.satırın tarihine 1 ekleyip 7.satıra (07.07.2009 yerine) 03.07.2009 yazıyor." ne demek? Öyle yazmıyor işte. Ben de onu anlatamıyorum.
Eşref de el yordamıyla anladı bence. O kadar ihtimal denedim ki sanırım başka da ihtimal kalmamıştır. Bir de hıyar gibi (Burda hıyar ben oluyorum yanlış anlamayın) satır satır size kodları anlatıyorum. Hayret birşey..
Neyse kardeşim, asıl ben sizin zamanınızı aldım galiba. Kusura siz bakmayın. Baksana anlayan hemen anlıyormuş. Ben anlayamamışım demek ki.
Cvp: Veri Görünümündeki Alt Formda kaydı otomatik çoğaltmak - Access70 - 15/07/2009
Ben biraz dolambaçlı yoldan anlatmışım meseleyi, tekrar kusuruma bakmayın.Sayenizde öğrenmek için bu foruma giriyoruz. İnşaallah bundan sonra daha net ve anlaşılır ifadelerle sorular sorarım. Lütfen anlayışlı olun ve şevkimizi kırmayın. Hep birlikte daha iyiye. Not: Size Anlayışsız demek istemedim.Benim anlatım şeklimle de bir anlayan çıkmış olmasına sevindim o kadar.