(15/07/2009, 13:37)mehmetdemiral yazdı: Örneğiniz gayet güzel çalışıyor. Tek sıkıntı 1 gün sonrasıysa en basit çözümü uygulayın. YolcTarihi alanındaki çift tıklama yordamını şöyle yapın.

Kod:

Private Sub YolcTarihi_DblClick(Cancel As Integer)
    DoCmd.GoToRecord , , acLast
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToRecord , "", acNewRec
    DoCmd.RunCommand acCmdPaste
Me.YolcTarihi = YolcTarihi + 1
End Sub

Ben kontrol ettim, böyle de olsa artıkyıl ve şubat ayı olayı doğru çalışıyor.

Ustam ilginize teşekkürler. Birde aklıma şu geldi: Birden fazla kayıt var ve örneğin 6 satır kayıttan 2.satırı tıklayıp çoğaltmak istiyorum o zaman son satır olarak eklenen yeni kaydın tarihi 2. satırın tarihinden 1 fazla olyor. Hangi satırı tıklarsak tıklayalım en son kaydın tarihine 1 ekleme imkanı varmıdır?