Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (16):1,2 ... 5,6,7,8,9 ... 15,16
 Prikazi prvu neprocitanu poruku

#61 24.03.2015 02:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#62 24.03.2015 16:18
Dan79 Van mreze
Clan
Registrovan od:02.03.2015
Postovi:83


Predmet:Re: Prihodi i rashodi
heheh dok je frka po noći imam razumjevanja :P
↑  ↓

#63 24.03.2015 21:34
Dan79 Van mreze
Clan
Registrovan od:02.03.2015
Postovi:83


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
Ovaj post je ureden 2 puta. Posljednja izmjena 24.03.2015 22:06 od strane Dan79. ↑  ↓

#64 24.03.2015 22:37
carobnjak Van mreze
Clan
Registrovan od:25.07.2011
Postovi:381


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
Srdačan pozdrav
↑  ↓

#65 25.03.2015 13:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#66 26.03.2015 16:16
Dan79 Van mreze
Clan
Registrovan od:02.03.2015
Postovi:83


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
Ovaj post je ureden 1 puta. Posljednja izmjena 26.03.2015 16:19 od strane Dan79. ↑  ↓

#67 26.03.2015 17:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#68 26.03.2015 18:40
Dan79 Van mreze
Clan
Registrovan od:02.03.2015
Postovi:83


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.
Ovaj post je ureden 1 puta. Posljednja izmjena 26.03.2015 18:45 od strane Dan79. ↑  ↓

#69 26.03.2015 18:53
Dan79 Van mreze
Clan
Registrovan od:02.03.2015
Postovi:83


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)?
↑  ↓

#70 26.03.2015 21:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (16):1,2 ... 5,6,7,8,9 ... 15,16

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 2: 52 pm.