zxz 24.03.2015 02:07
Predmet:Re: Prihodi i rashodi

Evo ovako.
Svoj tatser za pretragu cmdcmdTraži prebaci u Form header i prommijeni mu ime u cmdTrazi.
Na tateru smdTrazi opciju default stavi na jes.
Nemoj u imenima kontrola koristiti nasa slova mada to radi ali bolje je issto tako nemoj koristiti operatore.
Imas to sve u ucionici forumu napisano.
Sada napravi jos dva tekst polja u Form header i neka se zovu:
TIme i TPrezime.

Na tasteru cmdTrazi U event procedure odaberi on click i udji u modul.
Sada kopiraj ovaj kod ispod.
Option Compare Database
Option Explicit

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub cmdTrazi_Click()
  2. Dim MySQL As String, Kriterija As String, RekordSours As String
  3.      Dim ImepoljaT As String, ImePolja As String, ImeTabele As String
  4.      Dim Brojac As Integer, I As Integer
  5.  
  6.      ImeTabele = "T_Posao" '
  7.     MySQL = "SELECT * FROM " & ImeTabele & " WHERE "
  8.      
  9.      For I = 1 To 2 ' 6 je broj polja
  10.     'Ovo su imena polja u tabeli iz koje vrsimo pretragu
  11.     ImepoljaT = Choose(I, "Ime", "Prezime")
  12.      'Ovo su imena polja na formi u koja upisujemo kriterije pretrage
  13.     ImePolja = Choose(I, "TIme", "TPrezime")
  14.      DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
  15.      Next I
  16.      If Kriterija = "" Then
  17.          Kriterija = "True"
  18.      End If
  19.      RekordSours = MySQL & Kriterija
  20.      Me.RecordSource = RekordSours
  21.      If Me.RecordsetClone.RecordCount = 0 Then
  22.          MsgBox "Nema podataka po ovom kriteriju"
  23.      End If
  24. End Sub
  25. Private Sub DodajUslov(Vrijednost, ImePolja As String, Kriterija As String, Brojac As Integer)
  26.  If IsNumeric(Vrijednost) = False Then
  27.  Vrijednost = Vrijednost & Chr(42)
  28.  End If
  29.  If IsDate(Vrijednost) Then
  30.  Vrijednost = "#" & Vrijednost & "#"
  31.  End If
  32.  If Vrijednost <> "" Then
  33.      If Brojac > 0 Then
  34.          Kriterija = Kriterija & " and "
  35.      End If
  36.          Kriterija = (Kriterija & ImePolja & " Like " & Chr(39) & Vrijednost & Chr(39))
  37.          Brojac = Brojac + 1
  38.  End If
  39.  End Sub

Dan79 24.03.2015 16:18
Predmet:Re: Prihodi i rashodi

heheh dok je frka po noći imam razumjevanja :P

Dan79 24.03.2015 21:34
Predmet:Re: Prihodi i rashodi

switch Spoiler:

vjerujem da su ta 2 polja koja si mi prije rekao da P_ime i P_Prezime trebala biti T_Ime iT_prezime ?

uspijesno rijeÅ¡io ovo tražilica radi, malo ču je joÅ¡ proučiti da bi shvatio bolje.
sad još pitanja prije nego idemo dalje Smiling
recimo imam 4 imena danijel s različitim prezimenima u tražilici mi izbaci samo 1 danijela, želim reći ovo dođe čovijek na razgovor njih 10 i od toka 4 danijela i ja ih unesem sve u tu tablicu.
za 1 mjesec ovaj odustane i sjetim se da imam joÅ¡ kandidata ali znam mu samo ime i u magli se sječam početka prezimena.
dali bi bilo bolje napraviti tražilicu koja mi izbaci sve danijele i prezimena u prozoru pa ja odaberem željenog?
ili je to korak koji planiraÅ¡ da prođemo kasnije?
Have a look-around
kad zelim ugasiti T_Posao dobijem ovu poruku Å¡to sam sjeee http://prntscr.com/6kw5g2

carobnjak 24.03.2015 22:37
Predmet:Re: Prihodi i rashodi

Citiraj Dan79:
recimo imam 4 imena danijel s različitim prezimenima u tražilici mi izbaci samo 1 danijela, želim reći ovo dođe čovijek na razgovor njih 10 i od toka 4 danijela i ja ih unesem sve u tu tablicu.
za 1 mjesec ovaj odustane i sjetim se da imam joÅ¡ kandidata ali znam mu samo ime i u magli se sječam početka prezimena.
dali bi bilo bolje napraviti tražilicu koja mi izbaci sve danijele i prezimena u prozoru pa ja odaberem željenog?
ili je to korak koji planiraÅ¡ da prođemo kasnije?
Have a look-around
kad zelim ugasiti T_Posao dobijem ovu poruku Å¡to sam sjeee http://prntscr.com/6kw5g2

Nisam skidao ovo vase pa ne zamjeri ako nesto bubnem a to vec ima kod vas.
Sto se tice tvog pitanja ovo imena i prezimena za mene ****lja opcija da izbacuje trazilica oboje to est i ime i prezime...A ako se bojis da ces zaboraviti nekog nakon mjesec dana ja bi to rijesio na vrlo jednostavan nacin ubacio bi jos kod svakog imena napomenu

zxz 25.03.2015 13:56
Predmet:Re: Prihodi i rashodi

To ti i radi sad tako samo sto moras lčistati da bi vidio sledecag.
Mozes napraviti sit formu i onda ces imati izgled po redovima kao u exelu i tada ces ih vise vidjeti.
Sad mozes samo listati one koje si odabrao.
Nemoras ti ni kucati napr danijel dovoljno je ukucati dan i opezt ce prepoznati.
Isto tako mozes ukucati samo dio imena ili samo dio prezimena i opet ce naci.
Poruku o fresci pri zatvaranju T_Posao pretpostavljam forme (promijni u F_posao) nisam mogao viidjeti.
Zakaci je na vorum

Evo ova druga procedura malo izmijenjena pa je zanmijeni sa starom samo radi ucenja
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub DodajUslov(Vrijednost, ImePolja As String, Kriterija As String, Brojac As Integer)
  2. If Trim(Format$(Vrijednost)) = "" Then GoTo Kraj
  3. If IsNumeric(Vrijednost) = False Then
  4. Vrijednost = Chr(39) & Vrijednost & Chr(42) & Chr(39)
  5. End If
  6.  If IsDate(Vrijednost) Then
  7.  Vrijednost = "#" & Vrijednost & "#"
  8.  End If
  9.      If Brojac > 0 Then
  10.          Kriterija = Kriterija & " and "
  11.      End If
  12.          Kriterija = (Kriterija & ImePolja & " Like " & Vrijednost)
  13.          Brojac = Brojac + 1
  14. Kraj:
  15.  End Sub

znaci zamijeni samo ovu Private Sub DodajUslov a ona na on klik ostajke ista.

Dan79 26.03.2015 16:16
Predmet:Re: Prihodi i rashodi

eto mene nazad.
znaci copy cod kako si napisao, poslije toga nakon izlaska ili save dobijem poruku,ako stavim u HasModul NO onda mi obriše cod.
mogu izaci samo ako ne spremim promjene.
i promjenio sam forms T_Posao u F_Posao isto je Smiling
poruka koju dobivam

zxz 26.03.2015 17:26
Predmet:Re: Prihodi i rashodi

Obadvoje ti se desava tbo iste stvari a to je zbog razlicitih verzija accessa.
Tu verziju sto imas zapisi kao verziju koju imas na svo compu.
Znaci save as pa u verziju koju imas.

Dan79 26.03.2015 18:40
Predmet:Re: Prihodi i rashodi

Hvala rijesio Smiling
sad idemo dalje slijedece, kad unesem novog covjeka i recimo ima radno mjesto koje ja nema u T_VrstaPosla kako da dobijem da ga unese kad ja napisem u to polje(topolje kao i nazvi je combo box)?
ista stvar sa combo box za naziv.

Dan79 26.03.2015 18:53
Predmet:Re: Prihodi i rashodi

eto opet ja malo gledam i pokušavam shvatiti ssto si napisao
switch Spoiler:

u ovom tvom codu Å¡to gleda podatak chr(42 i 39)?

zxz 26.03.2015 21:01
Predmet:Re: Prihodi i rashodi

chr(42) - je isto kako kad bi napisao zvjezdicu *.
znaci svaki znak ima svoj broj.
Zvjezdiaca ima broj 42.
39 je ovaj '
znak.
Mozes ispisati i bilo koje slovo ali eto ovdje sam ja stavi chr da bi bilo razumljivije jer bi ove znakove morao upisati izmedju znakova apostrofa pa bi to bilo skoro nevidljivo.
Imas to sve opisano u ucionisi u temi sql.