[ Pike79 @ 12.10.2005. 16:48 ] @
Treba mi pomoc kako da napisem izraz da mi se kopira naziv artikla koji je u text formatu, treba mi da se isto ponasa kao i FakturnaCijena. Sto znaci da mogu iz zasortimana postojecih proizvoda, malo modifikujem naziv proizvoda, ali da ga ne promenim u tabeli Proizvodi.
Dao sam primer kakva mi je funkcija sada na subform!
HVALA!


Option Compare Database

End Sub
Private Sub Form_AfterUpdate()
'Ovo osvezava sumu na glavnoj formi (Parent)
Me.Parent.Recalc
End Sub

Private Sub SifraArtikla_AfterUpdate()
'Moje polje (i kontrola na subformi) zove se SifraArtikla
'Prepisujemo cenu iz tblArtikli.CenaArtikla u tblFakturaIzlaza.CenaFakturisana
Me!FakturnaCijena = curKopirajCenu(Me!SifraArtikla)
Me!PDV = curKopirajPDV(Me!SifraArtikla)
End Sub

Function curKopirajCenu(lngSifraArtikla As Long) As Currency
'Ova funkcija vraca cenu artikla iz tabele tblArtikli za zadatu sifru artikla
curKopirajCenu = DLookup("ProdajnaCena", "tblRepromaterijal", "SifraArtikla=" & lngSifraArtikla)
End Function

Function curKopirajPDV(lngSifraArtikla As Long) As Currency
'Ova funkcija vraca cenu artikla iz tabele tblArtikli za zadatu sifru artikla
curKopirajPDV = DLookup("[StopaPDV]", "tblRepromaterijal", "SifraArtikla=" & lngSifraArtikla)
End Function
[ Zidar @ 13.10.2005. 13:38 ] @
Nekako ovako:

Code:

Function curKopirajNaziArtikla(lngSifraArtikla As Long) As String
'Ova funkcija vraca cenu artikla iz tabele tblArtikli za zadatu sifru artikla
curKopirajNaziArtikla= DLookup("[Nazivartikla]", "tblRepromaterijal", "SifraArtikla=" & lngSifraArtikla)
End Function 


pa onda:

Code:

Private Sub SifraArtikla_AfterUpdate()
'Moje polje (i kontrola na subformi) zove se SifraArtikla
'Prepisujemo cenu iz tblArtikli.CenaArtikla u tblFakturaIzlaza.CenaFakturisana
Me!FakturnaCijena = curKopirajCenu(Me!SifraArtikla)
Me!PDV = curKopirajPDV(Me!SifraArtikla)
'Ovo je novo:
Me!NAzivartiklaNaFakturi=curKopirajNaziArtikla(Me!sifraArtikla)
End Sub



Ne zaboravi da ti u tabeli tblDetaljiFakture sad treba jos jedno polje a to je NazivartiklaNaFakturi
[ Pike79 @ 13.10.2005. 23:32 ] @
Hvala puno Zidar!
Problem je resen, shvatio sam kako to radi sada!
Pozdrav!