Dva comba i malo VB
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
 |  |
 |
