ü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