Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
iCentar » Racunari i oprema » Programirannje i baze podataka » Access » VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
dzaga29 22.03.2019 21:33
Predmet:VBA kod za traženje zapisa po tablicama i promjenu vrijednosti

Radim aplikaciju u Accessu za daljinsko očitavanje vodomjera. Želja mi je sa dlanovnika (Radio čitač) kojim se očitavaju vodomjeri ubaciti očitanja u aplikaciju. Trenutno sam stao u djelu programa koji radi izmjene vodomjera.Ukratko u bazi za određenog kupca postoji vodomjer pod brojem. Kada se izvrÅ¡i zamjena onda iz tablice Zamjena komandnim gumbom treba prekopirati broj novog vodomjera i datum izmjene i te podatke prebaciti u tablicu Vodomjeri u red gdje je bio stari vodomjer i preko njega prekopirati broj novog, a na polje datum ugradnje iskopirati datum kada je izvrÅ¡ena izmjena..
Molim za pomoć.
Prilozi:
Vodomjeri.rar (Velicina datoteke:919.40 KB)

Gjoreski 23.03.2019 13:47
Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti

Prije 6-7 godina ja sam napravio dve verzije ovakva aplikacija za evidencija vodomera . Edna je jos aktivna
Dobro poznajem problematika na koja radis .
Snimi ova u starija verzija accesa da mogu pogledati . Ja ne mogu otvoriti ova verzija .

Gjoreski 23.03.2019 14:39
Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti

Evo malo fotke pa mozda dobijes i neka ideja
Prilozi:
Vodovod Sliki.rar (Velicina datoteke:357.30 KB)

dzaga29 23.03.2019 18:02
Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti

Å aljem bazu u starijoj verziji, ali nisam je provjeravao da li neÅ¡to ne radi. Kod mene sve radi i forme se viÅ¡e-manje kao podjeljeni obrasci. Baza je velika jer ima dosta zapisa. Mene mući VB kod koji bi napisao u formi Izmjena vodomjera kako sam napisao na prvom postu! Za eventualna pojaÅ¡njenja javi!
Prilozi:
Vodomjeri stara.rar (Velicina datoteke:1.06 MB)

Gjoreski 23.03.2019 19:58
Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti

Opisi mi na koja forma sta treba da se uradi

dzaga29 23.03.2019 20:17
Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti

Na formi Izmjena vodomjera kada upiÅ¡em podatke (imam dvije izmjene) one se spreme u tablicu Izmjene, ali preko komande Spremi zapis trebalo bi u tablici Vodomjeri pronaći zapis broja vodomjera 01093746 i umjesto njega zaljepiti novi vodomjer (68956731), datum ugradnje zamjeniti sa datum izmjene, maku promjeniti od Ikom u Sensus a u tablici Kupci-Vodomjeri zamjeniti samo broj vodomjera, i da da porkuku da je izvrÅ¡eno knjiženje.

Gjoreski 23.03.2019 21:27
Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti

ne znam jesam li uspeo razumeti .

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Vodomer As String
  2.     Vodomer = "01093746"
  3. Dim db As DAO.Database
  4. Dim rs As DAO.Recordset
  5. Dim strSQL As String
  6. strSQL = "SELECT * FROM Vodomjeri WHERE Broj_vodomjera='" & Vodomer & "'"
  7. Set db = CurrentDb
  8. Set rs = db.OpenRecordset(strSQL)
  9.   Select Case rs.RecordCount
  10.          Case 0
  11.             MsgBox "ne postoi vodomer sa taj broj"
  12.          Case 1
  13.             rs.Edit
  14.             rs.Fields("Broj_vodomjera") = "68956731"
  15.             rs.Fields("Datum_ugradnje") = Now()
  16.             rs.Update
  17.             MsgBox "Uspesna Promjena"
  18.          Case Is > 1
  19.             MsgBox "ima poveke od jedan vodomer u tabela"
  20.        
  21.   End Select
  22.    
  23.     rs.Close
  24.     db.Close
  25. Set db = Nothing
  26. Set rs = Nothing

dzaga29 23.03.2019 22:41
Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti

Razumio si i radi izvrsno uz par stvari koje treba korigirati:
1. U tablici Izmjene ne smiju se mjenjati zapisi i oni ostaju za arhivu, znači ostaje stari vodomjer i novi vodomjer - sve ljepi i niÅ¡ta ne briÅ¡e
2. U tablici Vodomjeri sve je u redu jedino još treba promjeniti podatke za marku novog vodomjera i profil
3. U tablici Kupci-Vodomjeri sve je u redu
Da li je moguće pomoću koda odrediti vrijednost za string vodomjer, odnosno u svakom knjiženju ovako bi morao prepravljati unos - da li se automatski može upisati npr. vrijednost iz kolone Vodomjer u tablici Izmjene, tako bi mogao deklarirati i ostale vrijednosti koje bi ljepio u tbl. Vodomjeri.

Gjoreski 24.03.2019 00:52
Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti

samo ovo
Vodomer = "01093746"
zameni sa

Vodomer=Broj_vodomjera

Broj_vodomjera je tvoje tekstualno polje

dzaga29 24.03.2019 01:47
Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti

Å aljem ti slike sa pojaÅ¡njenjima kako treba izgledati. Da bi u Izmjenama ostao stari vodomjer znači da u tbl. Vodomjeri mora ostati i novi i stari broj. Jedino je bitno da se u tbl. Kupci_Vodomjeri uz broj kupca promjeni Novi broj jer je to polje koje povezuje Kupca i Vodomjer. U kod joÅ¡ treba ubaciti i da promjeni marku i promjer vodomjera.
Pozdrav!
Prilozi:
tblVodomjeri.jpg (Velicina datoteke:195.28 KB)
tbl.Izmjene.jpg (Velicina datoteke:146.40 KB)