Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kopiranje polja u tekst formatu!

[es] :: Access :: Kopiranje polja u tekst formatu!

[ Pregleda: 2072 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Pike79

Član broj: 52785
Poruke: 200
*.vdial.verat.net.



Profil

icon Kopiranje polja u tekst formatu!12.10.2005. u 16:48 - pre 192 meseci
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
Bez muke nema nauke!!!
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.



+79 Profil

icon Re: Kopiranje polja u tekst formatu!13.10.2005. u 13:38 - pre 192 meseci
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
 
Odgovor na temu

Pike79

Član broj: 52785
Poruke: 200
*.vdial.verat.net.



Profil

icon Re: Kopiranje polja u tekst formatu!13.10.2005. u 23:32 - pre 192 meseci
Hvala puno Zidar!
Problem je resen, shvatio sam kako to radi sada!
Pozdrav!
Bez muke nema nauke!!!
 
Odgovor na temu

[es] :: Access :: Kopiranje polja u tekst formatu!

[ Pregleda: 2072 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.