form sihirbazındaki sorun

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.

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