[ concer @ 17.03.2008. 10:12 ] @
| Pozdrav svima,
imam jednu bazu za alate i rezervne dijelove.
u formi bi mi trebala 2 dugmica (dodaj i oduzmi) pomocu kojih bi mogao da dodajem odnosno oduzimam po jedan.
recimo kada listam pomocu forme kroz tabelu rezervnih dijelova da kada nadjem neki alat34 i vidim da njega ima 5 komada, kada pritisnem na tipku dodaj, da se kolicina tog alata poveca za 1 dakle da bude 6 komada.
kako bi se to moglo izvesti?
baza re radjena u accessu 2007.
molim pomoc, prilicno hitno.... |
[ Getsbi @ 17.03.2008. 13:22 ] @
Radim u Access 2003 ali je princip isti. Napravš Update query nad tabelom u kojoj držiš stanja. U redu "Update To" ispod kolone "Stanje" upišeš recimo ovako: [Forms]![NazivTvojeforme].[Stanje]+1
U redu "Criteria" ispod kolone "AlatID" napišeš: [Forms]![NazivTvojeForme].[AlatID]
Ispod događaja On Click dugmeta napišeš: DoCmd.OpenQuery "NazivUpdateQuery-ja"
Tako isto postupiš i sa oduzimanjem količine. Napraviš drugi query sa (-1) i drugo dugme.
Kad god klikneš na prvo dugme povećaće kolonu Stanje za 1. Ka dklikneš na drugo smanjiće za jedan. Naravno za onaj AlatID koji je trenutno odabran na formi.
U SQL View modu to izgleda ovako:
UPDATE tblTvojaTabela SET tblTvojaTabela.Stanje = [Forms]![NazivTvojeForme].[Stanje]+1
WHERE (((tblTvojaTabela.AlatlID)=[Forms]![NazivTvojeForme].[AlatID]));
[Ovu poruku je menjao Getsbi dana 17.03.2008. u 15:53 GMT+1]
[ DarioBH @ 17.03.2008. 17:10 ] @
Ovaj je kod praktican (kad pritisnes tipku "+" na tastaturi poveca broj za 1, a kad pritisnes "-" smanji)
ako ti se polje za unos kolicine zove kolicina
Private Sub kolicina_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 43
KeyAscii = 0
Screen.ActiveControl = Screen.ActiveControl + 1
Case 45
KeyAscii = 0
Screen.ActiveControl = Screen.ActiveControl - 1
End Select
End Sub
[ concer @ 17.03.2008. 19:33 ] @
"Private Sub kolicina_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 43
KeyAscii = 0
Screen.ActiveControl = Screen.ActiveControl + 1
Case 45
KeyAscii = 0
Screen.ActiveControl = Screen.ActiveControl - 1
End Select
End Sub"
ovo zvuci super, samo gdje da implementiram ovaj code odnosno kako da ga implementiram u formi?
[ domaci_a_nas @ 18.03.2008. 07:26 ] @
Design forme i druga ikonica desno od čekića i šrafcigera, ona lepa sa zvezdicom. Tamo pastuj kod iz posta. Samo bih i ja napomenuo da nisam radio u Access 2007, moguće je da se tamo postupak razlikuje. Ne bih preporučio tebi kao početniku da radiš u toj verziji.
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.