Šta nevalja ovoj naredbi u mdb bazi accessa

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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=??????????

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

nemoze tako

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.