Arama isimli formdaki liste kutusunun çift tıklandığında olayına yazılı kodları aşağıdaki ile değiştiriniz.

 Dim acilacak_form As String



    Dim kriter As String

    Dim GFaturaId As Integer

    

    acilacak_form = "FaturaGiris"

    kriter = "[FaturaID]=" & Me![Liste]

    

    If MsgBox(Me.Liste.Column(1) & " isimli müşteriye ait bilgiler yeni forma aktarılsın mı?", vbYesNo, "VERİ AKTARIMI?") = vbYes Then

    

    DoCmd.OpenForm acilacak_form

    

    GFaturaId = Me.Liste.Column(0)



    Forms!FaturaGiris!AdiSoyadi = Dlookup ("AdiSoyadi", "FaturaBilgisi Sorgu", "[FaturaID]=" & GFaturaId)

    Forms!FaturaGiris!Adresi = Dlookup ("Adresi", "FaturaBilgisi Sorgu", "[FaturaID]=" & GFaturaId)



        Else

    DoCmd.OpenForm acilacak_form

    End If

    

    DoCmd.Close acForm, "Arama"

FaturaGiris isimli formun açıldığında olayında 

DoCmd.GoToRecord , , acNewRec

kodu bulunduğu için ilk kodda bulunan kriterin silinmesi gerekli, form açıldığında yeni kayıt eklediği için kriter olayı çalışmaz. Ben koddaki kritere dokunmadım.

Üstteki kod adısoyadı ve adresi alanlarına veri aktarır, diğer 4 alana veri aktarmak için koda ekleme yapmalısınız. Adısoyadı ve adresi aktarılması için ne yazılmışsa kalan alanlar için gerekli kodu ekleyiniz.