Herkese merhaba
Benim şöyle bir sorunum var.Tablodaki veriyi forma aktaramıyorum.Yani HAMKODU nu girdiğimde otomatk olarak MALZEME ADI ve diğer bilgilerin hepsi otomatik olarak çıksın ve yeni kayıtta yapabileym istiyorum.Bi önceki programımda bunu yapabilmiştim ama şimdi yapamıyorum nedense.Yardımcı olursanız çok sevinirim.Örneğin resmini ekte yolluyorum.
İyi çalışmalar.
form sihirbazındaki sorun
prgramınızı eklermisiniz
Ekliyorum fakat başka bir örnek üzerinden devam ediyorum.Kafanız karışmasın.
eklemiş oldugunuz prg hatalı sorunlu olan prgnizi eklerseniz yardımcı olabilirim
Nasıl hatalı anlayamadım özür dilerim. Neyi ekliyim.
üzerinde işlem yapılacak kendi prg nizi eklermisiniz sizin anladıgım kadarıyla açılan kutu olay yordamına aşagıdaki gibi bir lod yazılması lazım
ekteki prg de firma kodu girince tüm bilgileri gelir deneyiniz
Private Sub SiparisVerenFirmaKodu_AfterUpdate()
Me!FirmaUnvani = Me!SiparisVerenFirmaKodu.Column(1)
Me!Adres = Me!SiparisVerenFirmaKodu.Column(2)
Me!FirmaSemt = Me!SiparisVerenFirmaKodu.Column(3)
Me!FirmaIl = Me!SiparisVerenFirmaKodu.Column(4)
Me!FirmaVergiDa = Me!SiparisVerenFirmaKodu.Column(5)
Me!FirmaVergiNo = Me!SiparisVerenFirmaKodu.Column(6)
Me!FirmaYetkili = Me!SiparisVerenFirmaKodu.Column(7)
Me!FirmaTel = Me!SiparisVerenFirmaKodu.Column(8)
Me!FirmaFax = Me!SiparisVerenFirmaKodu.Column(9)
Me!FirmaYetkiliCep = Me!SiparisVerenFirmaKodu.Column(10)
Me!FirmaMail = Me!SiparisVerenFirmaKodu.Column(11)
Me!FirmaUyeTipi = Me!SiparisVerenFirmaKodu.Column(12)
End Sub
ekteki prg de firma kodu girince tüm bilgileri gelir deneyiniz
Private Sub SiparisVerenFirmaKodu_AfterUpdate()
Me!FirmaUnvani = Me!SiparisVerenFirmaKodu.Column(1)
Me!Adres = Me!SiparisVerenFirmaKodu.Column(2)
Me!FirmaSemt = Me!SiparisVerenFirmaKodu.Column(3)
Me!FirmaIl = Me!SiparisVerenFirmaKodu.Column(4)
Me!FirmaVergiDa = Me!SiparisVerenFirmaKodu.Column(5)
Me!FirmaVergiNo = Me!SiparisVerenFirmaKodu.Column(6)
Me!FirmaYetkili = Me!SiparisVerenFirmaKodu.Column(7)
Me!FirmaTel = Me!SiparisVerenFirmaKodu.Column(8)
Me!FirmaFax = Me!SiparisVerenFirmaKodu.Column(9)
Me!FirmaYetkiliCep = Me!SiparisVerenFirmaKodu.Column(10)
Me!FirmaMail = Me!SiparisVerenFirmaKodu.Column(11)
Me!FirmaUyeTipi = Me!SiparisVerenFirmaKodu.Column(12)
End Sub
Son Düzenleme: 18/09/2015, 17:29, Düzenleyen: simendifer.
Konuyu Okuyanlar: 1 Ziyaretçi