Centar za edukaciju-BiH


Stranice (6):1,2,3,4,5,6

#11 24.03.2019 07:49
dzaga29 Van mreze
Clan
Registrovan od:22.01.2013
Postovi:26


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Ja sam tvoj kod malo proširio sa pojašnjenjima što bi trebalo napraviti, ali ja neznam VB i to kao takvo ne funkcionira - ne dodaje novi red i dr. Bitno je da se u tablici Vodomjeri mora dodati novi red sa novim podacima, a stari mora ostati za Arhivu. Ne može se spremiti broj koji se ne nalazi u tbl. Vodomjeri...

Private Sub cmdSpremanje_Click()

Dim Vodomjer As String 'Stari broj vodomjera
Dim Novi As String 'Novi broj vodomjera
Dim NMarka As String 'Nova marka vodomjera
Dim Profil As String 'Novi profil vodomjera
Dim Gotovo As Variant 'Potvrdni okvir za knjiženje
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

'Prvo bi trebalo napraviti kontrolu da se vidi da li je aktiviran gumb za knjiženje; ako je aktivan
'poruka da je knjiženje izvršeno i izlaz, a ako nije onda treba u tablicu vodomjeri dodat novi red
'koji bi bio kopija reda sa starim vodomjerom uz izmjenu Broja vodomjera, datuma ugradnje, marke i profila sve ide iz izmjene (polja - Novi,NMarka,Profil)

strSQL = "SELECT * FROM Vodomjeri WHERE Broj_vodomjera='" & Vodomjer & "'"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
Select Case rs.RecordCount
Case 0
MsgBox "Ne postoji vodomjer sa tim brojem"
Case 1
rs.Edit
rs.Fields("Broj_vodomjera") = Novi
rs.Fields("Datum_ugradnje") = Now()
rs.Fields("Marka") = NMarka
rs.Fields("Promjer") = Profil
rs.Update 'umjesto update bi trebalo da doda novi red
MsgBox "Uspješna Promjena"
Case Is > 1
MsgBox "ima povećanje od jedan vodomjer u tabeli"

'Trebalo bi otići u tablicu Kupci_Vodomjeri i ovdje napraviti update starog broja sa novim brojem vodomjera i na izlasku knjiženja izmjene potvrdni okvir za knjiženje postaviti na DA

End Select

rs.Close
db.Close
Set db = Nothing
Set rs = Nothing
End Sub

Slicice prilozenih slika:
Knjiženje.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:224
Velicina datoteke:179.47 KB
Velicina slike: 452 x 513 Pikseli

↑  ↓

#12 24.03.2019 08:49
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Znaci ovako :
U tabela Vodomjeri treba ti novi zapis , a ne izmjena tako a usloj za zapisa je vodomjer da posoi u tabelama vodomjer.
Izmena ti treba u tabelam a Kupci_Vodomjeri , a kao uslov je ID_kupac

Jesam li dobro razumeo
↑  ↓

#13 24.03.2019 08:58
dzaga29 Van mreze
Clan
Registrovan od:22.01.2013
Postovi:26


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Da! Ali na Naredbu bi trebalo vezati kontrolu knjiženja jer će mi kasnije raditi problem - ima puno zapisa i da se dva, tri puta ne knjiži jer će se mješati datumi ugradnje, a po datumu ugradnje kontroliram rok za izmjene.

Slicice prilozenih slika:
Knjiženje.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:224
Velicina datoteke:179.47 KB
Velicina slike: 452 x 513 Pikseli

↑  ↓

#14 24.03.2019 10:26
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
ja ne vidim tabela vodomjer u primeru
↑  ↓

#15 24.03.2019 10:52
dzaga29 Van mreze
Clan
Registrovan od:22.01.2013
Postovi:26


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Nije mi jasno kako nemaš sve tablice, napravio sam novu i šaljem ti je, ali pošto sam je pretvarao u mdb morat ćeš rućno otvarati, jer neke forme porućuju greške.
Pozdrav

Prilozi:
Informacije o tipu datoteke za:rar  Vodomjeri stara_2019-03-24.rar
Preuzimanja:245
Velicina datoteke:1.08 MB

↑  ↓

#16 24.03.2019 11:17
dzaga29 Van mreze
Clan
Registrovan od:22.01.2013
Postovi:26


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Šaljem i objašnjenje slikom!

Slicice prilozenih slika:
Objašnjenje.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:161
Velicina datoteke:398.56 KB
Velicina slike: 987 x 643 Pikseli

↑  ↓

#17 24.03.2019 11:48
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Znaci ovako.
U tabela Izmjene dodas novi zapis i na osnovu tog zapisa i tabela vodomjeri dodas opet novi zapis i vrsis izmjena u tabela Kupci_Vodomjeri
jel tako
↑  ↓

#18 24.03.2019 12:22
dzaga29 Van mreze
Clan
Registrovan od:22.01.2013
Postovi:26


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Daa! To je to, a za kontrolu greške ako može, a ako ne i bez nje!
↑  ↓

#19 24.03.2019 13:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Po meni dobro bi bilo da @dzaga29 opise nacin rada ovoga u praksi.
Znaci kako se to radi bez programa.
Tako bi se moglo bolje pomoci.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#20 24.03.2019 14:20
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
U pravu je @ZXZ i meni se nesto ne slaze u ovo , najbolje da opises nam postupak
↑  ↓

Stranice (6):1,2,3,4,5,6


Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 24 am.