dzaga29 27.03.2019 15:52
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!
Prilozi:
Tel. Imenik.rar (Velicina datoteke:128.82 KB)
Imenik.jpg (Velicina datoteke:335.92 KB)

Gjoreski 28.03.2019 00:38
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

dzaga29 29.03.2019 13:54
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?

zxz 30.03.2019 14:11
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

dzaga29 31.03.2019 08:33
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

Gjoreski 31.03.2019 12:12
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.  

dzaga29 01.04.2019 08:43
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.

Gjoreski 01.04.2019 11:18
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]));

zxz 01.04.2019 12:56
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]

Gjoreski 05.04.2019 11:25
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 .
Prilozi:
Tabeli.png (Velicina datoteke:26.14 KB)