zxz 31.03.2015 11:01
Predmet:Re: Prihodi i rashodi

Hehe ko trazi taj i nadje.

Dan79 31.03.2015 12:24
Predmet:Re: Prihodi i rashodi

ok našao sam super formu za lozinku i sad radi.
ono sto me interesira je kao ili sto moram napraviti da mi otvori samo tu Form i da se nevide ostali podaci samo ta F_Posaou cjelom prozoru?

znaci imam frmLogin tu imam admin i operator.
kad ukucam admin onda mogu sve,a na operator mi samo otvara F_Posao sto sam i zelio.
kako da dobijel cijeli pozor bez alata i ostalih stvari samo F_posao nakon lozinke?
Prilozi:
Baza(loz).rar (Velicina datoteke:52.54 KB)

pmiroslav 31.03.2015 13:53
Predmet:Re: Prihodi i rashodi

Da ti se ne vida Access Database Window ideÅ¡ na Tools > Startup i odčekiraÅ¡ Display Database Window.
Tamo možeÅ¡ i isključiti ostalo Å¡to ne želiÅ¡ da se vidi.

Dan79 31.03.2015 14:21
Predmet:Re: Prihodi i rashodi

dali je to samo za tu databazu ili mi ostaj za sve?
uf nemogu naci to na 2013 Disappointed reko si tools u accessu ili si mislio na windovse?

pmiroslav 01.04.2015 06:22
Predmet:Re: Prihodi i rashodi

Ja isto baÅ¡ nisam kod kuće sa Accessom 2013, ali sada sam malo tražio i to ti je pod:
File > Options > Current Database

Dan79 01.04.2015 08:26
Predmet:Re: Prihodi i rashodi

hvala Miroslave nasao sam.
jos pitanja :P
kako se napravi DB da je moras instalirati,tipa neke exe.datoteke?

pmiroslav 01.04.2015 08:50
Predmet:Re: Prihodi i rashodi

Googlaj malo. Evo ti jedan link:
https://www.youtube.com/watch?v=aylQNvVDPsg

Dan79 01.04.2015 09:54
Predmet:Re: Prihodi i rashodi

[sup]hvala Miroslave.
e sad opet zastao :P,dodao sam polje u trazenu status jer sam se sjetio sa moram imati 3 stavke (odbijen,prihvacen i odustao).
znaci dodao sam uz ime prezime jos i status za trazenje i dodao u cod ali mi ne radi moze mi netko reci gdje sam pogrijsio?

"
PreuzmiIzvorni kôd (vbnet):
  1.  
  2.  
  3. Private Sub cmdNadi_Click()
  4.  
  5.     Dim MySQL As String, Kriterija As String, RekordSours As String
  6.          Dim ImepoljaT As String, ImePolja As String, ImeTabele As String
  7.          Dim Brojac As Integer, I As Integer
  8.      
  9.          ImeTabele = "T_Posao" '
  10.         MySQL = "SELECT * FROM " & ImeTabele & " WHERE "
  11.          
  12.          For I = 1 To 2 ' 6 je broj polja
  13.         'Ovo su imena polja u tabeli iz koje vrsimo pretragu
  14.         ImepoljaT = Choose(I, "Ime", "Prezime", "status")
  15.          'Ovo su imena polja na formi u koja upisujemo kriterije pretrage
  16.         ImePolja = Choose(I, "TIme", "TPrezime", "tStatus")
  17.          DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
  18.          Next I
  19.          If Kriterija = "" Then
  20.              Kriterija = "True"
  21.          End If
  22.          RekordSours = MySQL & Kriterija
  23.          Me.RecordSource = RekordSours
  24.          If Me.RecordsetClone.RecordCount = 0 Then
  25.              MsgBox "Nema podataka po ovom kriteriju"
  26.          End If
  27.     End Sub
  28.  
  29.  
  30. Private Sub cmdNovi_Click()
  31. DoCmd.RefreshRecord
  32. End Sub
  33.  
  34.     Private Sub cmdTrazi_Click()
  35.     Dim MySQL As String, Kriterija As String, RekordSours As String
  36.          Dim ImepoljaT As String, ImePolja As String, ImeTabele As String
  37.          Dim Brojac As Integer, I As Integer
  38.      
  39.          ImeTabele = "T_Posao" '
  40.         MySQL = "SELECT * FROM " & ImeTabele & " WHERE "
  41.          
  42.          For I = 1 To 2 ' 6 je broj polja
  43.         'Ovo su imena polja u tabeli iz koje vrsimo pretragu
  44.         ImepoljaT = Choose(I, "Ime", "Prezime", "Status")
  45.          'Ovo su imena polja na formi u koja upisujemo kriterije pretrage
  46.         ImePolja = Choose(I, "TIme", "TPrezime", "tStatus")
  47.          DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
  48.          Next I
  49.          If Kriterija = "" Then
  50.              Kriterija = "True"
  51.          End If
  52.          RekordSours = MySQL & Kriterija
  53.          Me.RecordSource = RekordSours
  54.          If Me.RecordsetClone.RecordCount = 0 Then
  55.              MsgBox "Nema podataka po ovom kriteriju"
  56.          End If
  57.     End Sub
"

Dan79 01.04.2015 10:08
Predmet:Re: Prihodi i rashodi

Citiraj zxz:
Evo ovako.
Na formi F_Posao ides na polje radnoMjesto i u propertiu odaberes dogajaj on dubl klick i ides na event procedure i kopiras ovaj kod ispod:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub RadnoMjesto_DblClick(Cancel As Integer)
  2. DoCmd.OpenForm "F_VrstaPosla"
  3. End Sub

E sada ides na tabelu T_VrstaPosla i od nje napravis autoformu idas joj ime F_VrstaPosla.
U recordSource ove forme unesi ovaj upi ispod:
PreuzmiIzvorni kôd (SQL):
  1. SELECT *
  2. FROM T_VrstaPosla
  3. WHERE (((T_VrstaPosla.ID)=[Forms]![F_Posao]![RadnoMjesto]));

Sada u property odabere even procedure te dogadjaj on Unload te kopiraj ovaj kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Unload(Cancel As Integer)
  2. Dim ID
  3. ID = Me.ID
  4. If Trim(Format$(ID)) <> "" Then
  5. Forms![F_Posao]![RadnoMjesto] = Me.ID
  6. Forms![F_Posao]![RadnoMjesto].RowSource = Forms![F_Posao]![RadnoMjesto].RowSource
  7. End If
  8. End Sub

znaci napravio sam kao si rekao to za radno mjesto,ali i dodao isti cod na jos 2 polja samo promjenio njihova imena i sad imam problem Disappointed
sad svaki puta kad pokušavam uci na desing wiev prvo mi izbaci grešku http://prntscr.com/6o1xd6 kad stisnem debug ovo pod rb.6 mi izbaci zuto gdje sam pogrijesio?
"
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_Unload(Cancel As Integer)
  2.     Dim ID
  3.     ID = Me.ID
  4.     If Trim(Format$(ID)) <> "" Then
  5.     Forms![F_Posao]![RadnoMjesto] = Me.ID
  6.     Forms![F_Posao]![RadnoMjesto].RowSource = Forms![F_Posao]![RadnoMjesto].RowSource 'ovo mi žuto
  7.         End If
  8.   End Sub
"

pmiroslav 01.04.2015 10:22
Predmet:Re: Prihodi i rashodi

Koliko ja vidim ti si u ovom dijelu dodao Status, a u tablici nemaÅ¡ polje Status več Opaska

ImepoljaT = Choose(I, "Ime", "Prezime", "status")

također na početku petlje

For I = 1 to 3 ( umjesto 2 stavi 3)