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

11/02/2016, 22:34

kenan827

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.
12/02/2016, 06:56

ozanakkaya

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.
12/02/2016, 20:49

kenan827

Ç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.