[ kamicak @ 07.01.2009. 10:42 ] @
| Pokušavam malo da skontam VB, pa mi nešto ne ide, Evo jedan početnički problem: Private Sub ArtikalKasaID_AfterUpdate() Dim stDocName As String stDocName = Me.Form![SubfrmPrimer]!Opis If stDocName = "PC " Then Me![Cena] = Me![ArtikalKasaID].Column(2) Elseif stDocName = "NC " Then Me![Cena] = Me![ArtikalKasaID].Column(3) Else MsgBox "Nekorektan izbor" End If End Sub Imam Formu Primer1 i na njemu SubformuPrimer, gde u prvi combo, "Opis", čiji je izvor Value List upisujem "PC" ili "NC", onda idem na drugi combo "ArtikalKasaID" čiji je izvor Query sa Artiklima, prodajnom cenom, i nabavnom cenom, ako je u prvom combu "PC", trebalo bi posle odabira artikla da mi u polje "Cena" prepiše prodajnu cenu, a ako je "NC" onda nabavnu cenu. Samo prepisivanje cene nije problem, ali kada stavim uslove u odnosu na prvi combo onda mi ne radi. Gde grešim? Hvala unapred Pozdrav |