24/06/2020, 19:28
Stok Rezerve Ve Satış
24/06/2020, 19:32
berduş
Uygun bir zamanda incelemeye çalışırım ama yaptiginiz son degisikliklerin olduğu çalışmanızı ekleyip, bu haliyle çözülmesi gereken problemi tekrar yazar mısınız?
25/06/2020, 07:56
magmar
günaydın
son halini ekte gönderiyorum. frmStocksEnter formunda alt form olan frmStocksDetail formuna verileri excelden kopyalayıp yapıştırıyorum. (excel dosyasını da eke ekledim) burada sadece Article kısmı excelde yok. bunu da frmPurchasedetail formundan almak istiyorum. frmPurchaseDetail ve frmStocksDetail formlarındaki ortak alanım PurchaseDetail_ID kısmı.
bunları eşleştirip, doğru Article kodunu getirmek istiyorum.
Article butonuna tıklama olay yordamı sonrasında Vba da yazdığım kodlar mevcut. hem insert into hem Dlookup denedim. insert into ile hiç birşey gelmiyor. Dlookup ile her satıra ayrı ayrı gelip Article butonuna tıkladığımda değer geliyor. ama göreceğiniz üzere burada 604 satır var. bazen bu 1000 -2000 olabiliyor.
kodlar :
INSERT INTO için :
CurrentDb.Execute "INSERT INTO tblStocksDetail(Article) SELECT tblPurchaseDetail.Article FROM tblPurchaseDetail WHERE((tblPurchaseDetail.PurchaseDetail_ID)=" & Me.txtPurcDetail_ID & ")"
DLOOKUP için :
'Me.txtArticle_ID = Dlookup ("Article", "tblPurchaseDetail", "PurchaseDetail = [txtPurcDetail_ID]")
tşk
son halini ekte gönderiyorum. frmStocksEnter formunda alt form olan frmStocksDetail formuna verileri excelden kopyalayıp yapıştırıyorum. (excel dosyasını da eke ekledim) burada sadece Article kısmı excelde yok. bunu da frmPurchasedetail formundan almak istiyorum. frmPurchaseDetail ve frmStocksDetail formlarındaki ortak alanım PurchaseDetail_ID kısmı.
bunları eşleştirip, doğru Article kodunu getirmek istiyorum.
Article butonuna tıklama olay yordamı sonrasında Vba da yazdığım kodlar mevcut. hem insert into hem Dlookup denedim. insert into ile hiç birşey gelmiyor. Dlookup ile her satıra ayrı ayrı gelip Article butonuna tıkladığımda değer geliyor. ama göreceğiniz üzere burada 604 satır var. bazen bu 1000 -2000 olabiliyor.
kodlar :
INSERT INTO için :
CurrentDb.Execute "INSERT INTO tblStocksDetail(Article) SELECT tblPurchaseDetail.Article FROM tblPurchaseDetail WHERE((tblPurchaseDetail.PurchaseDetail_ID)=" & Me.txtPurcDetail_ID & ")"
DLOOKUP için :
'Me.txtArticle_ID = Dlookup ("Article", "tblPurchaseDetail", "PurchaseDetail = [txtPurcDetail_ID]")
tşk
25/06/2020, 09:07
berduş
aşağıdaki kodu dener misiniz?
CurrentDb.Execute "UPDATE tblPurchaseDetail INNER JOIN tblStocksDetail ON tblPurchaseDetail.PurchaseDetail_ID = tblStocksDetail.PurcDetail_ID SET tblStocksDetail.Article = [tblPurchaseDetail]![Article];"
25/06/2020, 09:10
magmar
harika! çok teşekkürler
25/06/2020, 09:10
berduş
yukardaki kod tüm tabloyu güncellemek için daha çalışmanızı tam inceleyemedim o nedenle sadece belirli kayıtlar içinse uygun bir zamanda daha ayrıntılı incelediğimde çözüm bulmaya çalışırım
kod tam istediğiniz gibi mi çalışıyor
kod tam istediğiniz gibi mi çalışıyor