Nesto ne mogu da uplodujem primer, ali cu ovako postaviti "kod" koji imam:
Option Compare Database
Option Explicit
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)
Me!NazivArtiklaNaFakturi = curKopirajNazivArtikla(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
Function curKopirajNazivArtikla(lngSifraArtikla As Long) As String
'Ova funkcija vraca cenu artikla iz tabele tblArtikli za zadatu sifru artikla
curKopirajNazivArtikla = DLookup("[NazivArtikla]", "tblRepromaterijal", "SifraArtikla=" & lngSifraArtikla)
End Function
U ovom kodu je sve vezano za sifru artikla, a ja ne znam sta sve treba izmeni da bi bilo povezano za Nazivom artikla!
Probacu malo kasnije da postavim primer mozda ce moci!
Pozdrav svima!
Bez muke nema nauke!!!