Formdan forma veri aktarma
#1
Merhaba,

EKteki veritabanımda "SatinalmaFisleri" formumdaki listeden bir satınalma siparişini seçtikten sonra yine aynı formda yukarıda "Seçili Satınalmayı Alım Fişine Aktar" düğmesine tıklayarak alım fişinin açılmasını ve tıkladığım satınalma içindeki verileri veritabanındaki "StokFisleriDetayTablo" tablosuna aktarmayı başarıyorum("SatinalmaDetayiniGetir" ekleme sorgusuyla). Fakat sorunum şu; açılan mal alım girişi ekranında yeni "StokFisID" oluşmadığı için fişin içeriği görülemiyor.Fakat "StokFisleriDetayTablo" tablosunun içine verileri aktarıyor. Bu işlemleri yaparken yeni "StokFisID" oluşumunu ve aktardığım malzemeleri o fişin içinde görmeyi nasıl sağlarım acaba.

Umarım açıklayıcı yazmışımdır. Anlaşılmazsa detaylandırabilirim.

Selamlar.




  Alıntı
Bu mesajı beğenenler:
#2
Merhaba..

Düğmedeki tüm kodları silip yerine bu prosedürü yerleştirin..:

vb is not a supported langage
List of available langages :
php, smarty, cuesheet, div, q, mapbasic, gambas, cfdg, netrexx, css, freeswitch, z80, java5, sparql, falcon, asymptote, dot, mxml, plsql, fsharp, dcpu16, vala, basic4gl, qbasic, clojure, oobas, powershell, rails, diff, pli, freebasic, sas, stonescript, scheme, latex, f1, pascal, 6502kickass, bnf, llvm, klonecpp, povray, applescript, python, coffeescript, progress, html4strict, postgresql, lua, newlisp, lisp, unicon, cadlisp, asm, vba, oxygene, modula2, urbi, go, gnuplot, m68k, vbnet, euphoria, spark, xorg_conf, properties, lolcode, oberon2, xbasic, avisynth, yaml, vhdl, cpp, logtalk, powerbuilder, gml, perl, icon, sdlbasic, fo, ocaml-brief, mmix, providex, pic16, klonec, abap, gwbasic, nagios, pike, genero, purebasic, zxbasic, haxe, lotusformulas, awk, visualfoxpro, cobol, pcre, ocaml, apt_sources, chaiscript, autoconf, j, intercal, 68000devpac, xml, asp, lotusscript, bascomavr, genie, tcl, prolog, upc, rebol, octave, nsis, groovy, cil, mirc, smalltalk, oracle11, pycon, mpasm, dos, rsplus, c, locobasic, ini, bash, d, javascript, vedit, magiksf, thinbasic, lb, parasail, proftpd, whitespace, oz, whois, teraterm, 4cs, actionscript, csharp, apache, make, objc, boo, fortran, delphi, oorexx, idl, ecmascript, visualprolog, algol68, verilog, html5, caddcl, haskell, uscript, blitzbasic, rpmspec, java, rexx, scilab, bibtex, ldif, inno, c_loadrunner, hq9plus, perl6, erlang, gdb, kixtart, vim, oracle8, reg, dcs, typoscript, per, hicest, objeck, eiffel, mysql, actionscript3, parigp, pys60, 6502acme, lscript, epc, gettext, scala, tsql, lsl2, matlab, autoit, pf, xpp, robots, ruby, cmake, ada, systemverilog, winbatch, c_mac, jquery, text, e, io, php-brief, pixelbender, modula3, glsl, autohotkey, email, cfm, bf, sql, 6502tasm, arm, dcl, cpp-qt



  Alıntı
Bu mesajı beğenenler:
#3
Çok teşekkür ederim Taruz hocam,

Verdiğiniz sorgu ile çalışma mükemmel çalışıyor teşekkür ederim. Çalışmaya ek olarak aktarılan satınama fişini kontrol etmek amacıyla bir kontrol mekanizması eklemek istedim. Sizin kodunuza aşağıdaki kodu ekledim. Bunun için veritabanında "SatinalmaFisIDKontrol" sorgusu ekleyerek satınalmaID numarası aktarılmışsa "Bu satınalma fişi önceden aktarılmış" uyarısı gelmesini istiyorum. Kodda hata veriyor. Yardımcı olabilirseniz çok sevinirim.

Şunuda sormak istiyorum;Burada hem SatinamlaID ve hemde SatinalmaDetayID kontrolü yapmak mümkün olurmu. Çünkü aktarımı yapılmayan satır olursa en azından bunu mal alım fişine ekler diğerleri aktarılmışsa bir daha aktarmaz. Böylelikle satınalma fişlerinde aktarımı yapılmışlar ve yapılmamışlar ayrımıda yapılmış olur.

Selamlar,

Örneğim ektedir.



  Alıntı
Bu mesajı beğenenler:
#4
Kodu eklememişim.

Visual Basic
  1. If MsgBox("Satın alma siparişini mal alım fişine aktarmak istiyor musunuz?", _
  2. vbYesNo, "Aktarım Onay") = vbYes Then
  3. DoCmd.OpenForm "AlisFisleriFormu"
  4. 'bu kısımdaki veriler listeden alınmıştır.
  5. 'karşılıkları başka olabilir, düzenlersiniz. Trz..
  6. With Forms.AlisFisleriFormu
  7. .FisTarihi = Me.Liste0.Column(1)
  8. .FirmaID.Value = Me.Liste0.Column(5)
  9. .DepoID.Value = Me.Liste0.Column(2)
  10. .IrsaliyeTarihi = Date
  11. .Form.Refresh
  12. End With
  13.  
  14. With DoCmd
  15. .SetWarnings 0
  16. 'kayıtlı sorguyu silebilirsiniz.. buradan kaydediyoruz..
  17. .RunSQL "insert into StokFisleriDetayTablo ( SatinalmaID, SatinalmaDetayID, StokKartiID, Miktar, " _
  18. & "BirimFiyat, DepoID, FirmaID, StokFisID ) " _
  19. & "select SatinalmaAnaTablo.SatinalmaID, SatinalmaDetayID, StokKartiID, Miktar, BirimFiyat, " _
  20. & "DepoID, FirmaID, [Formlar]![AlisFisleriFormu]![StokFisID] " _
  21. & "from SatinalmaAnaTablo inner join SatinalmaDetayTablo on " _
  22. & "SatinalmaAnaTablo.SatinalmaID = SatinalmaDetayTablo.SatinalmaID " _
  23. & "where SatinalmaAnaTablo.SatinalmaID = [Formlar]![SatinalmaFisleri]![Liste0]"
  24.  
  25. .SetWarnings -1
  26. End With
  27.  
  28. End If
  29.  
  30. Dim a As String
  31.  
  32. a = Nz(DLookup("SatinalmaID", "SatinalmaFisIDKontrol", _
  33. "[SatinalmaID]=" & Me.SatinalmaID), "yok")
  34.  
  35. If a = "yok" Then
  36.  
  37. MsgBox ("Satınalma Fişi Önceden Aktarılmıştır. Tekrar Aktarılamaz")
  38.  
  39. End If





  Alıntı
Bu mesajı beğenenler:
#5
Şimdi acessle yaptığınız bu programı iş yerinde kullanıyormusunuz yoksa öylesinemi örnek.
Baya detaylı hazırlanmış elinize sağlık.



  Alıntı
Bu mesajı beğenenler:
#6
Bu kontrolü sonda değil başta yapmalısınız.. Ayrıca dcount bu amaç için daha efektif ve de kriter listedeki değer olmalı..:

vb is not a supported langage
List of available langages :
php, smarty, cuesheet, div, q, mapbasic, gambas, cfdg, netrexx, css, freeswitch, z80, java5, sparql, falcon, asymptote, dot, mxml, plsql, fsharp, dcpu16, vala, basic4gl, qbasic, clojure, oobas, powershell, rails, diff, pli, freebasic, sas, stonescript, scheme, latex, f1, pascal, 6502kickass, bnf, llvm, klonecpp, povray, applescript, python, coffeescript, progress, html4strict, postgresql, lua, newlisp, lisp, unicon, cadlisp, asm, vba, oxygene, modula2, urbi, go, gnuplot, m68k, vbnet, euphoria, spark, xorg_conf, properties, lolcode, oberon2, xbasic, avisynth, yaml, vhdl, cpp, logtalk, powerbuilder, gml, perl, icon, sdlbasic, fo, ocaml-brief, mmix, providex, pic16, klonec, abap, gwbasic, nagios, pike, genero, purebasic, zxbasic, haxe, lotusformulas, awk, visualfoxpro, cobol, pcre, ocaml, apt_sources, chaiscript, autoconf, j, intercal, 68000devpac, xml, asp, lotusscript, bascomavr, genie, tcl, prolog, upc, rebol, octave, nsis, groovy, cil, mirc, smalltalk, oracle11, pycon, mpasm, dos, rsplus, c, locobasic, ini, bash, d, javascript, vedit, magiksf, thinbasic, lb, parasail, proftpd, whitespace, oz, whois, teraterm, 4cs, actionscript, csharp, apache, make, objc, boo, fortran, delphi, oorexx, idl, ecmascript, visualprolog, algol68, verilog, html5, caddcl, haskell, uscript, blitzbasic, rpmspec, java, rexx, scilab, bibtex, ldif, inno, c_loadrunner, hq9plus, perl6, erlang, gdb, kixtart, vim, oracle8, reg, dcs, typoscript, per, hicest, objeck, eiffel, mysql, actionscript3, parigp, pys60, 6502acme, lscript, epc, gettext, scala, tsql, lsl2, matlab, autoit, pf, xpp, robots, ruby, cmake, ada, systemverilog, winbatch, c_mac, jquery, text, e, io, php-brief, pixelbender, modula3, glsl, autohotkey, email, cfm, bf, sql, 6502tasm, arm, dcl, cpp-qt



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Açılır Menüdeki Veriyi Metin Kutusuna Aktarma Pasham 1 215 19-02-2026, 21:18
Son Mesaj: adnan
  [FORM] Tarayıcıdan Evrak Tarayarak Ilgili Tabloya Aktarma kertiller_55 1 345 03-10-2025, 15:32
Son Mesaj: dsezgin
  [RAPOR] Formdaki Aynı Rrsmı Baskı ön ızleme ıle Rapora Aktarma MHMTKY 2 415 11-09-2024, 13:09
Son Mesaj: dsezgin
  Excele Aktarma evren89 1 360 09-08-2024, 20:50
Son Mesaj: dsezgin
  Excel'e Biçimli Aktarma evren89 3 508 01-07-2024, 22:56
Son Mesaj: evren89
  Işaretli Olanları Aktarma evren89 2 370 10-06-2024, 15:29
Son Mesaj: evren89
  [RAPOR] Formdan Rapora Resim Aktarma Pasham 7 694 02-06-2024, 00:41
Son Mesaj: Pasham
  [FORM] Acess Forma Resim Koyma Pasham 14 974 25-05-2024, 03:02
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi