Private Sub adi_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
KeyCode = 0
Forms![F_006_PortfoyTanimlama]![txtAdiSoyadi] = Me.adi
DoCmd.Close acForm, "F_001_MusteriListesi"
End Select
End Sub
Şeklinde kod eklendi, üstteki kodda sadece adı alanı aktarılıyor, diğer iki alanın aktarılması için ekleme yapmanız gerekiyor. Resmini eklediğiniz kod, adı alanının tıklandığında olayına yazılmış. Adı alanını tıkladığınızda 3 metin kutusundaki veriyi aktarıyor.