Listeden metin kutularına sınırlı veri aktarma

Merhaba arkadaşlar eklediğim programda;
Arama Formundaki listede müşterinin üstüne çift tıkladığımız zaman Sadece aşağıdaki verileri FaturaGiriş Formundaki metin kutularına taşısın. FauraGiriş Formunda Bazı Metin kutularını ilişkisiz yaptım. İlişkisiz metin kutularındaki verileri kayıt yapmıyor. 

Benim istediğim Arama listesinde istediğim veriler FaturaGiriş sayfasındaki metin kutularına taşısın. 

FaturaGiriş formunda içinde veri olan bütün metin kutularını kayıt yapsın.

Bu konuda yardımlarınıza ihtiyacım var. Yardımlarınız için şimdiden Teşekkürler.

Arama Formundaki listeden  FaturaGiriş formundaki metin kutularına aktarılacak bilgiler.
1-FaturaBilgisi Tablosundan AdiSoyadi
2-FaturaBilgisi Tablosundan Adresi
3-FaturaBilgisi Tablosundan VergiDairesi
4-FaturaBilgisi Tablosundan VergiNo
5-FaturaBilgisi Tablosundan Tel
6-FaturaBilgisi Tablosundan Cep

FaturaTanzimTarihi, Saati, Not ve FaturaDetay Tablosundaki veriler aktarılmasın.

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.

Çok teşekkürler Hocam ellerinize sağlık.

Hocam açtığım konuya çözüm bulduğu için konuyu cevaplanmış sorulara taşıyabilirsiniz. Saygılarımla iyi çalışmalar.