Prikazi cijelu temu 28.03.2019 00:38
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


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