+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listeden metin kutularına sınırlı veri aktarma (/konu-listeden-metin-kutularina-sinirli-veri-aktarma.html)
Listeden metin kutularına sınırlı veri aktarma - kenan827 - 11/02/2016
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.
Cvp: Listeden metin kutularına sınırlı veri aktarma - ozanakkaya - 12/02/2016
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Ü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.
Cvp: Listeden metin kutularına sınırlı veri aktarma - kenan827 - 12/02/2016
Ç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.