zxz 08.02.2012 10:53
Predmet:Re: Otvaranje poslovne godine

Opis okacene Baze NovaGodina:

Pri pokretanju app. sa nekom vecom verzijom od 97 prvo sto cete trebati je konvertovati u ver. napr. 2003.
U verziji 2007 mislim da i nece raditi kako valja bez bekih prepravki.
Sada u konvertovanu bazu odjete sa siftom te podignete Toolbar meniG kao sto je navedeno u predhodnom postu.
Sada mozete izaci iz app. i ponovo je pokrenuti bez sifta.
U app. postoji autoexec makro koji se starta pri pokretanju app.
U ovom makrou je samo jedna naredba a to je da pokrene proceduru main().
U proceduri main postoji samo jedan red koda i to za pokretanje procedure PopuniMeni.
Ova procedura koako joj i ime kaze u stvari popunjava combo box koji se nalazi na tulbaru MeniG.
Iz procedure PopuniMeni se poziva i procedura koja se zove KojaGodina koja cita trenutnu putanju i trenutnu bazu koja je linkovana.
Na osnovu ove putanje Trazi i ostale baze ako ih ima na toj putanje te ih dodaje u commbo box.

Sada u combu mozemo birati bilo koju bazu koju imamo na ovoj putanji.
Pri odabiru neke druge baze pokrecemo proceduru MeniGodina() koja na postojecoj putanji pronalazi bazu koja ima u nazivu godinu koju smo odabrali te poziva proceduru relink i vrsi relinkovanje tabela na tu bazu.
Ukoliko takva baza ne postoji a upisana je u nazivu godina koja je veca za 1 godinu od tekuce ili manja za 1 godunu od tekuce procedura ce ponuditi kreiranje nove baze sa sufiksom ove godine.
Fajl koji se zove mdb.sys je u stvari vasa orginal baza i ona se samo prekopira u novu bazu.

Postoji jos jedna stavr u ovome.
Ukoliko pri relinkovanju dodje do greske procedura ce ponuditi prozor za odabir nove putanje za relink podataka.
To ce se kod vas prvi puta vjerovatno desiti jer moja i vasa putanja nece biti ista.

pmiroslav 08.02.2012 12:39
Predmet:Re: Otvaranje poslovne godine

Isprobao sam ovo i radi. Konvertirao sam tvoj primjer u Access 2003 i jedino je problem Å¡to novo kreirana baza za novu godinu bude ponovno u Access 97 formatu.

zxz 08.02.2012 12:42
Predmet:Re: Otvaranje poslovne godine

Bazu sam stavio samo kao prmjer i napisao kakav treba odnosno trebaju biti nazivi.
Drugi korak je da sada stavis svoje baze umjesto moje.
Pobrises linkovane tabele te linkujes iz sada tvoje baze.
Napravis mdb.sys od tvoje prazne baze i onda isprobas sve.
Znaci ovo mozes koristiti za bilo koju svoju app.

pmiroslav 09.02.2012 11:44
Predmet:Re: Otvaranje poslovne godine

Tvoj primjer kod mene radi kako treba, međutim u mojoj aplikaciji neće.
Kada pokušam kreirati novu godinu pojavi se greška
u Funkciji MrnuGodina()
u redu
FileCopy SysFile, Putanja

pmiroslav 09.02.2012 11:54
Predmet:Re: Otvaranje poslovne godine

Evo primjer.
Prilozi:
Prodaja.rar (Velicina datoteke:1.08 MB)

zxz 09.02.2012 16:37
Predmet:Re: Otvaranje poslovne godine

Podigni neki modul.
Idi na meni:
Tools--->Options
Kartica general
Error traping
Ukljuci opciju Break on unhandled errors

pmiroslav 09.02.2012 21:14
Predmet:Re: Otvaranje poslovne godine

To je bilo uključeno. U međuvremenu sam primjetio da je možda problem kod mene bio Å¡to se linkovana baza zove Prodaja_2012.mdb.
Preimenovao sam je u 2012.mdb i sada je izgleda sve u redu.

zxz 09.02.2012 21:28
Predmet:Re: Otvaranje poslovne godine

Ja sam samo to ukljucio na tvojoj bazi i sveradi.

miro35 10.02.2012 08:26
Predmet:Re: Otvaranje poslovne godine

Ovo je odlično!
Kad bi se joÅ¡ moglo dodati na ovaj MeniG da se vide na padajućoj listi sve godine odnosno sve baze.Isto tako kad se izabere neka godina da se odmah linkuju tabele na tu bazu.
Ovo je dobro da uzima putanju do baze preko sistemske tabele u samoj aplikaciji.

miro35 10.02.2012 08:32
Predmet:Re: Otvaranje poslovne godine

Evo primjer moga koda koji u combo ili list box upisiva koje su baze prisutne u nekoj putanji koju ja uzimam iz jedne tabele.Evo recimo da se taj kombo zove cboBaza
PreuzmiIzvorni kôd (Text):
  1. strPutBaz = DLookup("PUTBAZ", "PUTANJA")
  2.  
  3. If Right(strPutBaz, 1) = "\" Then
  4.     strPutBaz = Left(strPutBaz, Len(strPutBaz) - 1) ' uklanja eventualno "\" iz naziva direktorija
  5. End If
  6.  
  7. strDatoteka = Dir(strPutBaz & "\*FiskalBaza.mdb")
  8.  
  9.  
  10. 'strDatoteka = Dir("c:\windows\desktop\novagodina\*_BAZA_FINOS.mdb")
  11. Me.cboBAZA.RowSource = ""
  12. I = 0
  13. Do While strDatoteka <> ""
  14.     ReDim Preserve astrPopis(I + 1)
  15.     astrPopis(I) = strDatoteka & ";"
  16.     I = I + 1
  17.     strDatoteka = Dir
  18. Loop
  19.  
  20. For I = 0 To UBound(astrPopis) - 1
  21.     'MsgBox i & "," & astrPopis(i)
  22.     For j = I + 1 To UBound(astrPopis) - 1
  23.         If astrPopis(I) < astrPopis(j) Then
  24.             strPom = astrPopis(I)
  25.             astrPopis(I) = astrPopis(j)
  26.             astrPopis(j) = strPom
  27.         End If
  28.         'ovo je služilo za TEST sortiranja
  29.         'Debug.Print i; " "; j; " ";
  30.         'For k = 0 To 6
  31.         '    Debug.Print astrPopis(k);
  32.         'Next k
  33.         'Debug.Print
  34.     Next j
  35. Next I
  36. For I = 0 To UBound(astrPopis) - 1
  37.     Me.cboBAZA.RowSource = Me.cboBAZA.RowSource & astrPopis(I)
  38.    
  39. Next