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
Cevapla
Son Düzenleme: 15/07/2009, 17:59, Düzenleyen: esrefigit.
