dzaga29 | 24.03.2019 08:49 |
---|---|
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 |
|
Prilozi: Knjiženje.jpg (Velicina datoteke:179.47 KB) |
Gjoreski | 24.03.2019 09:49 |
---|---|
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 |
dzaga29 | 24.03.2019 09:58 |
---|---|
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. |
|
Prilozi: Knjiženje.jpg (Velicina datoteke:179.47 KB) |
Gjoreski | 24.03.2019 11:26 |
---|---|
Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti ja ne vidim tabela vodomjer u primeru |
dzaga29 | 24.03.2019 11:52 |
---|---|
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: Vodomjeri stara_2019-03-24.rar (Velicina datoteke:1.08 MB) |
dzaga29 | 24.03.2019 12:17 |
---|---|
Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti Šaljem i objašnjenje slikom! |
|
Prilozi: Objašnjenje.jpg (Velicina datoteke:398.56 KB) |
Gjoreski | 24.03.2019 12:48 |
---|---|
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 |
dzaga29 | 24.03.2019 13:22 |
---|---|
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! |
zxz | 24.03.2019 14:55 |
---|---|
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. |
Gjoreski | 24.03.2019 15:20 |
---|---|
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 |