Centar za edukaciju-BiH


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

#1 22.03.2019 20:33
dzaga29 Van mreze
Clan
Registrovan od:22.01.2013
Postovi:26


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:
Informacije o tipu datoteke za:rar  Vodomjeri.rar
Preuzimanja:246
Velicina datoteke:919.40 KB

↑  ↓

#2 23.03.2019 12:47
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
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 .
↑  ↓

#3 23.03.2019 13:39
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
Evo malo fotke pa mozda dobijes i neka ideja

Prilozi:
Informacije o tipu datoteke za:rar  Vodovod Sliki.rar
Preuzimanja:249
Velicina datoteke:357.30 KB

↑  ↓

#4 23.03.2019 17:02
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 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:
Informacije o tipu datoteke za:rar  Vodomjeri stara.rar
Preuzimanja:260
Velicina datoteke:1.06 MB

↑  ↓

#5 23.03.2019 18:58
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
Opisi mi na koja forma sta treba da se uradi
↑  ↓

#6 23.03.2019 19: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
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.
↑  ↓

#7 23.03.2019 20:27
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
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
↑  ↓

#8 23.03.2019 21:41
dzaga29 Van mreze
Clan
Registrovan od:22.01.2013
Postovi:26


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.
↑  ↓

#9 23.03.2019 23:52
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
samo ovo
Vodomer = "01093746"
zameni sa

Vodomer=Broj_vodomjera

Broj_vodomjera je tvoje tekstualno polje
↑  ↓

#10 24.03.2019 00:47
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 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!

Slicice prilozenih slika:
tblVodomjeri.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:273
Velicina datoteke:195.28 KB
Velicina slike: 753 x 289 Pikseli
tbl.Izmjene.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:238
Velicina datoteke:146.40 KB
Velicina slike: 1126 x 139 Pikseli

↑  ↓

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


Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 32 pm.