üst satırı otomatik olarak kopyalama

Merhabalar,

Yaptığım kayıtlarda mükerrer kayıtlar olduğundan dolayı mesela * yazıp enter tuşuna bastığımda hangi alanda ise o alanın üstündeki satırı kopyalayıp * yazdığım yere yapıştırmasını istiyorum. Ama bunu her alan için yapmasını istiyorum.

Mesala A alanında isek A alanının üstündeki satırı, B alanındaki isek B alanın üstündeki satırı gibi.

Bu işlem benim işimi bir hayli kolaylaştıracağından dolayı yardımlarınızı bekliyorum.

sayın oguzduman81,

Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte,
lütfen;

içeriğinde farazi gerçek dışı uydurma veriler ve sonuçları görebilmek adına da birkaç kayıt olacak şekilde örnek uygulamanızı dahile diniz.teşekkürler.

bilginize...iyi çalışmalar,saygılar.

Sayın Atoz112,
Uyarınız için teşekkürler.
İnşaallah yarın müsait olursam örnek bir uygulama göndermeye çalışacağım...

Merhaba, benzeri işlemi kendi uygulamamda kullanıyorum. Fikir vermesi açısından kullanılan kod aşağıya ekledim. Sonraki sorularınızda mutlaka örnek uygulamanızı ekleyiniz.

Private Sub mtn_alan_a_KeyDown(KeyCode As Integer, Shift As Integer)



If KeyCode = vbKeyReturn And Me.mtn_alan_a.Text = "*" And NewRecord = True Then

    Me.mtn_alan_a.Value = DLast("alan_a", "tbl_test")

End If



End Sub

koddaki;
"mtn_alan_a", formdaki metin kutusunun adı
"tbl_test", tablo adı,
"alan_a" ise tablodaki alanın adı.
Ayrıca formun "Tuş Önizleme" özelliği "Evet" olarak ayarlanmış olmalıdır.

Örnek dosyam ektedir.

Üst mesaja yazdığım kodu denedeniz mi acaba?