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.