Skip to main content

AccessTr.neT


Veri Görünümündeki Alt Formda kaydı otomatik çoğaltmak

Veri Görünümündeki Alt Formda kaydı otomatik çoğaltmak

Çözüldü #13
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.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #14
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]

meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Son Düzenleme: 15/07/2009, 17:59, Düzenleyen: esrefigit.
Cevapla
Çözüldü #15
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.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #16
Anlayan anlamış. Neyse sizi yorduysam kusura bakmayın. Hepinize teşekkürrler.
Cevapla
Çözüldü #17
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.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #18
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.
Son Düzenleme: 15/07/2009, 21:10, Düzenleyen: Access70.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task