+- 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ığı: form sihirbazındaki sorun (/konu-form-sihirbazindaki-sorun.html)
form sihirbazındaki sorun - konak - 18/09/2015
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.
Cvp: form sihirbazındaki sorun - simendifer - 18/09/2015
prgramınızı eklermisiniz
Cvp: form sihirbazındaki sorun - konak - 18/09/2015
Ekliyorum fakat başka bir örnek üzerinden devam ediyorum.Kafanız karışmasın.
Cvp: form sihirbazındaki sorun - simendifer - 18/09/2015
eklemiş oldugunuz prg hatalı sorunlu olan prgnizi eklerseniz yardımcı olabilirim
Cvp: form sihirbazındaki sorun - konak - 18/09/2015
Nasıl hatalı anlayamadım özür dilerim. Neyi ekliyim.
Cvp: form sihirbazındaki sorun - simendifer - 18/09/2015
ü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