Šta nevalja ovoj naredbi u mdb bazi accessa

Šta nevalja ovoj naredbi u mdb bazi accessa

offline
  • Pridružio: 21 Mar 2005
  • Poruke: 11

Dim db As dao.Database
Dim rs As dao.Recordset
If Me!ProductID = 45 Then
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM [Order Details] WHERE 1=2")
rs.AddNew
rs!OrderID = Parent.OrderID
rs!ProductID = 76
rs!Quantity = Me!Quantity
rs!UnitPrice = UnitPrice(ProductID = 76)
rs!Discount = Parent.Rabat
rs.Update
rs.Close
Set db = Nothing
End If
UnitPrice treba da povuče iz tabele Products za ovaj proizvod ali očigletno ja nisam dobro napisao put do ovog podatka.
Znači nevalja ovaj deo:
rs!UnitPrice = UnitPrice(ProductID = 76)
Kako ga ispravno napisati?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 18 Apr 2003
  • Poruke: 5001
  • Gde živiš: Beograd

nisam bas detaljno gledao pa ne znam da li ima jos gresaka ali sa ovim uslovom "WHERE 1=2" nikada neces dobiti nijedan rezultat



offline
  • Pridružio: 21 Mar 2005
  • Poruke: 11

to je uredu nego kako da nadjem put do unitprice u tabeli products za odgovarajuci proizvod

snoop.edit bez velikih slova molim. ruzno izgleda, a i misli se da vices.

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

pa ako ti je unitprice u istoj tabeli (sto je ocigledno iz primera) gde i taj odgovarajuci proizvod, izvrsi upit nad bazom gde ces koristiti id zeljenog proizvoda u where uslovu.

kako ti izgledaju tabele?

offline
  • Pridružio: 21 Mar 2005
  • Poruke: 11

jeste u istoj je tabeli unitprice i productid ali kako napisati taj upit?
Ovim kodom, koji sam dodao u After Update Subforme ja ispitujem polje ProductID, PA AKO ONO IMA VREDNOST 45 U NAREDNI RECORDSET DA SE DODA ProductID=76, ALI NEMOGU DA DODAM I NJEGOVU CENU(UnitPrice) koja se nalazi u istoj tabeli gde i ProductID.
dAKLE GRESKA JE U:

rs!UnitPrice = UnitPrice(ProductID = 76)

TREBA
rs!UnitPrice=??????????

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 5001
  • Gde živiš: Beograd

treba ti jos jedan upit sa kojim ces da uzmes unitprice, nazovi ga rs1 ili kako oces pa napisi SELECT unitprice FROM ne_znam_kako_ti_se_zove_tabela WHERE productID = 76 dakle sad ces tu imati cenu, pa onda uradis rs!UnitPrice = rs1!UnitPrice to je to otprilike

offline
  • Pridružio: 21 Mar 2005
  • Poruke: 11

nemoze tako

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 5001
  • Gde živiš: Beograd

ajde stavi ovo pa mi reci koja je greska, naravno ovo "%ime_tabele%" zameni sa imenom tabele iz koje uzimas productID
Dim db As dao.Database Dim rs As dao.Recordset Dim rs1 As dao.Recordset If Me!ProductID = 45 Then Set db = CurrentDb Set rs1 = db.OpenRecordset("SELECT * FROM [%ime_tabele%] WHERE productID = 76;") Set rs = db.OpenRecordset("SELECT * FROM [Order Details] WHERE 1=2") rs.AddNew rs!OrderID = Parent.OrderID rs!ProductID = 76 rs!Quantity = Me!Quantity rs!UnitPrice = rs1!UnitPrice rs!Discount = Parent.Rabat rs.Update rs.Close rs1.Close Set rs = Nothing Set rs1 = Nothing Set db = Nothing End If

offline
  • Pridružio: 21 Mar 2005
  • Poruke: 11

MNOGO VAM HVALA, SADA RADI..
AKO IMATE JOS MALO VREMENA ZA MENE BIO BIH VAM MNOGO ZAHVALAN.
Ovim kodom sam ja postigao mnogo, jer kada unosim neke proizvode u porudzbinu access mi automacki dodaje drugi proizvod koji ide u kompletu sa unesenim proizvodom.
Imam formu “Orders” i subformu “Order Details” preko koje unosim podatke u tabele “Orders”(datum, broj porudzbine) i “Order Details”(ProductID, Quantity,UnitPrice) inace
UnitPrice uzima iz trece tabele “Products”.

Znaci kad unesem proizvod (ProductID=45) access mi doda proizvod (ProductID=76) sa cenom iz tabele “Products” i kolicinom istom kao i kod ProductID=45.

Imam proizvod (ProductID=186) sa kojim u kompletu isto ide (ProductID=76).
Ako sam vec uneo proizvod 45 i hocu proizvod 186 acces prijavljuje gresku da je proizvod 76 vec unsen.
DALI JE IZVODLJIVO DA KADA UNESEM PROIZVOD 186 ACCES NE DODA PONOVO PROIZVOD 76 NEGO DA DODA SAMO “QUANTITY” (SABERE SA VEC UNESENIM “QUANTITY” )NA PROIZVOD 76.
MISLIM DA SAM BIO JASAN.

UNAPRED MNOGO ZAHVALJUJEM

Dopuna: 24 Mar 2005 15:06

AKO STE ME RAZUMELI, MOZE LI BAR VAS SAVET DA SE NE MUCIM SA OVIM, DA TRAZIM DRUGO RESENJE ILI DA SE JOS MALO ZABAVIM OKO OVOGA.

Ko je trenutno na forumu
 

Ukupno su 809 korisnika na forumu :: 49 registrovanih, 5 sakrivenih i 755 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, A.R.Chafee.Jr., aleksandarcipo 2, aljosa7, Apok, aronija, attila.jukicburai, danilopu2, darkangel, Dorcolac, Dragan Mačak Damljanović, Duh sa sekirom, goranvas, JOntra, Kubovac, lacko2, Lošmi, Marko Marković, Marko1238, MB120mm, mgaji21, Mihajlo2, Milan A. Nikolic, Milos ZA, Mlav, mocnijogurt, nelenkg, ok, Panter2, perko91, Predrag Macura, Raptor12, Recce, repac2, RJ, rkekoke, rovac, S-lash, sasa.zoric, sasakrajina, stojanzaric308, styg, suton, svr, T-72, TITAN DUDIN JARAN, vladom6, zooix, zox-ni