Centar za edukaciju-BiH



#41 27.03.2019 14: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
Ipak sam uspio razbit jedan stari makro i pokuÅ¡ao preurediti program da ide preko coda, ali mi nije uspjelo Kada pritisnem na filter pojedinog slova ne deÅ¡ava se niÅ¡ta. U prilogu ti Å¡aljem bazu i sliku gdje su smjeÅ¡teni filteri.Programčić je zgodan pa bi ga trebalo urediti da se koristi.
Pozdrav!

Slicice prilozenih slika:
Imenik.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:162
Velicina datoteke:335.92 KB
Velicina slike: 1088 x 441 Pikseli



Prilozi:
Informacije o tipu datoteke za:rar  Tel. Imenik.rar
Preuzimanja:165
Velicina datoteke:128.82 KB

↑  ↓

#42 27.03.2019 23:38
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Kao prvo moras promeniti naziv macro coe si napravio da ne bi bilo u funkcija.
ovaj cod go dovrsis za svih slova i dodas ka na formi

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub UposleniciFilter_Click()
  2.      Me.FilterOn = False
  3.      Me.Filter = ""
  4.  Select Case UposleniciFilter.Value
  5.         Case 1
  6.           Me.Filter = "[Prezime] Like ""A*"""
  7.         Case 2
  8.           Me.Filter = "[Prezime] Like ""B*"""
  9.         Case 3
  10.           Me.Filter = "[Prezime] Like ""C*"""
  11.         ' Dodas redom za sva slova
  12.        Case 28
  13.           Me.Filter = ""
  14.          
  15.  End Select
  16.           Me.FilterOn = True
  17.           Me.Requery
  18. End Sub
↑  ↓

#43 29.03.2019 12:54
dzaga29 Van mreze
Clan
Registrovan od:22.01.2013
Postovi:26


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
PokuÅ¡avam ali ne ide; dali je moguće da klikom na Sifru_kupca u formi PotroÅ¡aći automatski otvori formu Vodomjeri selektiranu za tog PotroÅ¡aća?
↑  ↓

#44 30.03.2019 13:11
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Sifra_kupca_Click()
  2. Dim SQL As String
  3. Dim Sifra_kupca As Integer
  4. Dim Frm As Form
  5.  
  6. Sifra_kupca = Me.Sifra_kupca
  7.  
  8. SQL = "SELECT Vodomjeri.* " _
  9.     & "FROM Vodomjeri INNER JOIN Kupci_Vodomjeri ON Vodomjeri.Broj_vodomjera = Kupci_Vodomjeri.Broj_vodomjera " _
  10.     & "WHERE Kupci_Vodomjeri.Sifra_kupca=" & Sifra_kupca
  11.  
  12. DoCmd.OpenForm "Vodomjeri"
  13. Set Frm = Forms("Vodomjeri")
  14. Frm.RecordSource = SQL
  15. End Sub

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#45 31.03.2019 07:33
dzaga29 Van mreze
Clan
Registrovan od:22.01.2013
Postovi:26


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Hvala; Kada sam isti kod htjeo prebaciti na drugu formu (Vodomjeri) pa klikom na broj vodomjera da otvori traženog kupca poručuje mi greÅ¡ku
Za broj_vodomjera sam deklarirao String i napisao slijedeći kod:

Private Sub Broj_vodomjera_Click()
Dim SQL As String
Dim Broj_vodomjera As String
Dim Frm As Form

Broj_vodomjera = Me.Broj_vodomjera

SQL = "SELECT Kupci.* " _
& "FROM Kupci INNER JOIN Kupci_Vodomjeri ON Kupci.Sifra_kupca = Kupci_Vodomjeri.Sifra_kupca " _
& "WHERE Kupci_Vodomjeri.Broj_vodomjera=" & Broj_vodomjera

DoCmd.OpenForm "Potrosaci"
Set Frm = Forms("Potrosaci")
Frm.RecordSource = SQL

End Sub
↑  ↓

#46 31.03.2019 11:12
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Nije isto dali je uslov string , datum ,bollean ili broj u sql u .
zameni tvoj sql sa ovaj i bi trebalo da radi

PreuzmiIzvorni kôd (Visual Basic):
  1. SQL = "SELECT Kupci.* " _
  2. & "FROM Kupci INNER JOIN Kupci_Vodomjeri ON Kupci.Sifra_kupca = Kupci_Vodomjeri.Sifra_kupca " _
  3. & "WHERE Kupci_Vodomjeri.Broj_vodomjera='" & Broj_vodomjera & "'"
  4.  
↑  ↓

#47 01.04.2019 07:43
dzaga29 Van mreze
Clan
Registrovan od:22.01.2013
Postovi:26


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Imam tablicu Vodomjeri sa poljem datum ugradnje. Kako da napravim upit a da mi vrati koliko ih je ugrađeno u periodu od dva konkretna datuma; tj. da korisnik upiÅ¡e početni i zavrÅ¡ni datum.
↑  ↓

#48 01.04.2019 10:18
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
PreuzmiIzvorni kôd (Visual Basic):
  1. SELECT Count(Vodomjeri.Datum_ugradnje) AS br_Ugradeni
  2. FROM Vodomjeri
  3. HAVING ((("Datum_Ugradnje")>=[Forms]![Form2]![txtData_OD] And ("Datum_Ugradnje")<=[Forms]![Form2]![txtData_Do]));
↑  ↓

#49 01.04.2019 11:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
PreuzmiIzvorni kôd (SQL):
  1. SELECT COUNT(Datum_ugradnje) AS Komada
  2. FROM Vodomjeri
  3. WHERE Datum_ugradnje BETWEEN [Dtaum od (dd-mm-yyyy)] AND [Datum do (dd-mm-yyyy]

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#50 05.04.2019 10:25
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Eve edno moe viduvajne kako treba da izgleda ovaj program
1. tblAparati - kodna tabela vo koja se zapisuvaat osnovnite podatoci za vodomerite
2. tblPartneri - kodna tabela vo koja se zapisuvaat osnovnite podatoci za Kupcite ili partnerite
3. tblLokacii - kodna tabela vo koja se zapisuvaat osnovnite podatoci za lokaciite kade se
postavuvaat vodomerite
4. tblKonfiguracija - tabela vo koja se spojuvaat podatocite od predhodnite tabeli
5. tblOdcituvajan - tabela vo koja se vnesuvaat odcituvajnata od vodomerite

Zosto vaka :

Prvite tri tabeli se jani i ne mora za niv da se diskutira , vo ovaj slucaj najbitna e tabelata tblKonfiguracija koja gi resava site problemi koi mozat da nastanat.
Sto sve resava ovaa tabela :
1 Poveke nacini na konfiguracija
- Eden partner moze da ima poveke vodomeri na razliciti lokacii
- Na edna lokacija moze da ima poveke vodomeri od razliciti partneri
- Prati istorija na partneri,lokacii,aparati (vodomeri)
... i uste nekoi drugi pridobivki
Vo cetvrtata tabela gi vnesuvame odcituvajnata, koja e sosema jasna
Ova se osnovnite tabeli koi bi trebalo da gi sodrzi ovaj program i da ne se komplicira
Ovde ke treba uste nekolku pomali kodni tabeli kako :
- tblKorisnik - korisnici useri na programot
- tblModeli_Aparati
- tblDrzavi
- tblGradovi
i taka nataka prema potreba
Koga jas bi go pravel ovaj program bi se drzal do ovaa konstrukcija .
Vo prilog kako treba da izgleda relaciskata vrska izmegu tabelite .

Slicice prilozenih slika:
Tabeli.png
Tip datoteke:Informacije o tipu datoteke za:png png
Preuzimanja:207
Velicina datoteke:26.14 KB
Velicina slike: 709 x 447 Pikseli

↑  ↓

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


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 15 am.