A.S.C Filtre, Grafik ve Raporlama Eklentisi

Aynı verinin yinelenmemesi hakkında
#1
Merhaba,

Ekteki veritabanımda "ReceteTanimlari" formunda her projenin reçetesini tasarlarken solda stok kartına tıkladığımda sağ tarafta ilgili yemeğin reçetesi gelmektedir. depo combobox içinden proje seçmedikçede tüm projelerin tıklanan yemek için reçetelerini veriyor. Şöyle bir kontrol yapmak istiyorum;

Solda tıklanan bir yemeğin tüm projelerde reçetesini görüntülerken reçete içine aynı malzemeden iki kez yazamamasını yazdığı takdirde ekranda "Bu yemek için ilgili projenin reçetesinde aynı malzeme iki kez kullanılamaz" şeklinde bir mesaj yazdırabilir miyim.

Örneğin baklavaya tıkladığımda sağ tarafta A ve B projelerinin baklava reçetesi gözüküyor. Kullanıcı en alta A projesi için yine şeker girmek istediğinde biraz önce söylediğim mesaj çıksın istiyorum.

Yardımcı olursanız sevinirim.

Selamlar,



  Alıntı
Bu mesajı beğenenler:
#2
Aşağıdaki kodla yapmaya çalıştım ama liste kutusunu nasıl ifade edeceğimi bulamadım. Yardımcı olursanız çok sevinirim.

Visual Basic
  1. Private Sub StokKartiID_AfterUpdate()
  2. Dim kriter, kriter2 As Integer
  3. kriter = Forms.ReceteTanimlari.StokKartiID
  4. kriter2 = Me.StokKartiID
  5. kriter3 = Me.DepoID
  6.  
  7. t1 = DCount("StokKartiID", "ReceteSorgusu", _
  8. "StokFisID= " & kriter & " and StokKartiID = " & kriter2 & " and DepoID = " & kriter3)
  9. If t1 > 0 Then
  10. MsgBox "Bu stok kartını bu depoda kullandınız tekrar kullanamazsınız.."
  11. Undo
  12. End If
  13. End Sub





  Alıntı
Bu mesajı beğenenler:
#3
Merhaba,

Kodda bir hata yapıyorum. Acaba nerede yardımcı olacak varmıdır.

Visual Basic
  1. Private Sub StokKartiID_AfterUpdate()
  2. Dim kriter, kriter2, kriter3 As Integer
  3. kriter = Forms.ReceteTanimlari.UrunID
  4. kriter2 = Me.StokKartiID
  5. kriter3 = Me.DepoID
  6.  
  7. t1 = DCount("StokKartiID", "ReceteSorgusu", _
  8. "UrunID= " & kriter & " and DepoID = " & kriter3 & " and StokKartiID = " & kriter2)
  9. If t1 > 0 Then
  10. MsgBox "Bu stok kartını bu depoda kullandınız tekrar kullanamazsınız.."
  11. Undo
  12. End If
  13. End Sub





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

Kriterde listedeki seçimi ilgili alana bağladım..:

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

Depo alını devre dışı bıraktım.. Neden kullandığınız anlamadım açıkçası.. Gerekiyorsa ilave ederiz..



  Alıntı
Bu mesajı beğenenler:
#5
(26-08-2011, 00:24)Taruz demiş ki: Merhaba..

Kriterde listedeki seçimi ilgili alana bağladım..:

Kod:
Dim kriter, kriter2 As Integer
kriter = Forms.ReceteTanimlari.Liste0
kriter2 = Me.StokKartiID

t1 = DCount("*", "ReceteSorgusu", _
"UrunID= " & kriter & " and StokKartiID = " & kriter2 & " ")
If t1 > 0 Then
MsgBox "Bu stok kartını bu depoda kullandınız tekrar kullanamazsınız.."
Undo
End If


Depo alını devre dışı bıraktım.. Neden kullandığınız anlamadım açıkçası.. Gerekiyorsa ilave ederiz..


Merhaba Taruz hocam,

Veritabanında recete tanımları ekranında baklava'yı örnek vermiştim. Örneğin baklavaya "şeker tanımlanmış A deposu için tekrar şeker tanımlandığında aslında mesaj vermeli. Aksi takdirde vermemeli. Yani stok kartı eklerken hem ürün içinde 2 kez aynı hammaddenin tanımlanmamasını sağlamalı hemde depoID ye bakıp o depo içindeki ÜrünID içinde aynı hammaddeden 2 kez yazmamalı. Şu an budu yerleştirdiğimde baklava seçili iken B deposunda şeker ekleyemiyorum mesela. Oysaki be projesinin baklavasında şeker hiç tanımlanmamış. A projesinde tanımlı olduğu için kabul etmiyor şu an bu kod. Dolayısıyla Depo kriterinide eklememeiz gerekli.

Selamlar,





  Alıntı
Bu mesajı beğenenler:
#6
Depo seçilmeden bu kriter kullanılamayacağı için depo kriterini de kapsayan prosedürü depoid kutusunun seçiminden sonra kullanmalısınız.:


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



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Aynı Formu Birden Fazla Açma hedefkaya 8 241 20-09-2020, 23:44
Son Mesaj: halily
  [FORM] Access Db Den Getirilen Iki Bilgiyi Excel Sayfasında Aynı Hücre Içine Birleştirmek Selçuk Coşkun 2 155 10-07-2020, 12:09
Son Mesaj: Selçuk Coşkun
access-sql-9 Aynı Formda çoklu Flitre Işlemi 4-5-6-7 Kriterde neco_can 6 464 25-06-2020, 14:46
Son Mesaj: dsezgin
  [SORGU] Birden Fazla Olan Verinin Ilk Olanını Almak footprinting 1 215 06-04-2020, 22:14
Son Mesaj: dsezgin
  [RAPOR] Aynı Anda Birden çok Rapor Güncelleme kayaae 6 371 31-12-2019, 16:30
Son Mesaj: onur_can
  [VBA] Birden Fazla Resimi Aynı Anda Taşıma Ve Tabloya Link Alma serdem48 33 1.479 13-12-2019, 15:51
Son Mesaj: dsezgin
  Eğer Ve Ve Fonksiyonunun Aynı Anda Iç Içe Kullanılması demir68 2 298 25-11-2019, 11:06
Son Mesaj: demir68
  [FORM] Tablodaki Aynı Satırdaki Verileri Liste Kutusunda Alt Alta Gösterme husem 4 320 17-11-2019, 13:26
Son Mesaj: husem

Foruma Git:


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