[es] - trial u access-u

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

^{26.10.2011. u 21:32 - pre 152 meseci}

Moze i ono sto Trtko kaze, samo je komplikovanije. U svakom slucaju, treba da ih pustis da rade duze od mesec dana. Za mesec dana nece ni ukljuciti program posteno. Ako rade 3-4 meseca, nakupice se podataka, i onda ce sve da stane. Ili ih pustis da unesu podataka koliko za 3-4 meseca rada, pa onda sve stane.

Tacno je i da se moze menjati dnevno sistemski sat, da bi se prevario program.

Citat:

..datum vratis ili pomeris i radi sve super..

Medjutim, malo je verovatno da ce se to desiti. Zasto? Pa zato sto su sve baze osetljive na vreme. Nikome se ne vodi knjigovodstvo tako da se svi zapisi imaju isti ili pogresan datum. Mnoge druge aplikacije na sistemu zavise od sistemskog sata, to se ne menja tek tako. Ako proveru stavis na nekoliko vaznijih formi, nece moci na primer da promene datum startuju aplikaciju pa posle vrate datum "i sve radi kako treba".

Nesto drugo moze da se desi, a to ti nece biti prijatno, sa ili bez zastite. Malo je verovatno da je aplikacija savrsena i da radi sve dobro, bas onako kako njima treba. Sta sve ne valja, to ce se otkriti tek kad krenu u pravu upotrebu - u produkciju. Ako otkriju previse gresaka, mozda im se i nece toliko dopasti aplikacija, pa ti je nece ni platiti ni ukrasti. U svakom slucaju, ako postoji sansa da ti ne plate, nemoj ni ulaziti u posao. Opet, ako ti plate, a posle ne radi sve kako treba, imaces grdnih problema, ima da se naradis popravljajuci ali i dodavajuci nove stvari, a sve za dzabe, jer nije radilo od pocetka. Onda cete se posvadjati oko toga sta je ispravka greske a sta nova funkcija koju treba da plate.

Sve u svemu, prodaja softvera je ozbiljan posao, i svi se u pocetku na tome dobro opeku zbog samouverenosti. Nece ti niko ukrasti remek delo ako ne radi kako treba. A ne znas da li radi dok ne udje u produkciju. Licno mislim da je stavljanje zastite na netestirani proizvod gubljenje vremena. Ima mnogo drugih korisnijih stvari da se nauce nego stavljanje zastite.

Ako sve radi kako treba, a oni ti ga ga ukradu, vrlo brzo ce im trebati nadgradnja pa ces ih tu docekati.

Odgovor na temu

gorancho
Srbija

Član broj: 149371
Poruke: 89
*.dynamic.isp.telekom.rs.

Profil

Re: trial u access-u

^{26.10.2011. u 21:47 - pre 152 meseci}

Moze i neka kombinacija predhonih resenja.
Napravi tabelu sa dva tekstualna polja. Prvo je DatumDoKadRadi drugo je DatumZadnjeKonekcije.
Napravi dve funkcije koje, - prva konvertuje sistemski ili korisnički datum+vreme u tekst a onda taj tekst skrembluje (aski vrednost svakog polja pomeri za neku vrednost ili već uključi maštu). Pomoću ove funkcije upiši datum do kada želiš da program radi u polje DatumDoKadaRadi.Takođe istom funkcijom upisuješ i drugi datum u polje DatumZadnjeKonekcije Ti podaci bi u bazi bili vidljivi ali nečitljiv.
-druga funkcija bi vraćala iz tekstualnog polja obrnutim postupkom od skremblovanja datum+vreme.

Ostaje ti samo posle da upoređuješ
- dali je tekuće-sistemsko vreme posle DatumZadnjeKonekcije i ako jeste upiši ponovo DatumZadnjeKonekcije (da sprečiš vraćanje datuma i sata)
- dali je tekuće-sistemsko vreme posle DatumDoKadRadi

Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.

+1 Profil

Re: trial u access-u

^{26.10.2011. u 21:48 - pre 152 meseci}

@Zidar
Imas pravo prijatelju skroz nije to prodaja softvera u pitanju to je vise nesto kao sigurica da cu ostati na radnom mestu.
Da ne otvaram novu temu!
imam sada drugi problem izbacio sam "Timer interval" koji je integrisan u access-u i u formu ubacio funkciju evo i kod kako to izgleda

Option Compare Database

Private Sub Command5_Click()
Quit
End Sub

Private Sub Form_Load()
'Removing all access information code
'Global Const SW_HIDE = 0
'Global Const SW_SHOWNORMAL = 1
'Global Const SW_SHOWMINIMIZED = 2
'Global Const SW_SHOWMAXIMIZED = 3
'User one of the following below:
'Call Module2.fSetAccessWindow(0)
'Call Module2.fSetAccessWindow(1)
Call Module2.fSetAccessWindow(2)
'Call Module2.fSetAccessWindow(3)
End Sub

Private Sub Command4_Click()
username.SetFocus
If username = "rale" And Password = "123" Then
MsgBox "Dobrodosao Radivoje!", vbInformation, "PUN PRISTUP AUTORIZOVAN!"
MsgBox "PUN PRISTUP AUTORIZOVAN!", vbInformation, "ADMIN Panel"
DoCmd.Close
DoCmd.OpenForm "Izbor posla"
ElseIf username = "korisnik1" And Password = "k1" Then
MsgBox "ULOGOVANI STE KAO KORISNIK ZA UNOS PODATAKA BILO KAKVA MANIPULACIJA PODACIMA VAM NIJE OMUGUCENA", vbInformation, "OGRANICEN PRISTUP AUTORIZOVAN!"
MsgBox "OGRANICEN PRISTUP AUTORIZOVAN!", vbInformation, "K PANEL"
DoCmd.Close
DoCmd.OpenForm "Izbor posla2"
Else
MsgBox "PODACI KOJI SU UNETI NISU AUTORIZOVANI ZA DALJI RAD!"
End If
End Sub

Private Sub Form_Open(Cancel As Integer)

Me.lblCountdown.Caption = "30"
Me.TimerInterval = 1000

End Sub

Public Function CountDown()

Me.lblCountdown.Caption = "30"
Pause (1)
Me.lblCountdown.Caption = "29"
Pause (1)
Me.lblCountdown.Caption = "28"
Pause (1)
Me.lblCountdown.Caption = "27"
Pause (1)
Me.lblCountdown.Caption = "26"
Pause (1)
Me.lblCountdown.Caption = "25"
Pause (1)
Me.lblCountdown.Caption = "24"
Pause (1)
Me.lblCountdown.Caption = "23"
Pause (1)
Me.lblCountdown.Caption = "22"
Pause (1)
Me.lblCountdown.Caption = "21"
Pause (1)
Me.lblCountdown.Caption = "20"
Pause (1)
Me.lblCountdown.Caption = "19"
Pause (1)
Me.lblCountdown.Caption = "18"
Pause (1)
Me.lblCountdown.Caption = "17"
Pause (1)
Me.lblCountdown.Caption = "16"
Pause (1)
Me.lblCountdown.Caption = "15"
Pause (1)
Me.lblCountdown.Caption = "14"
Pause (1)
Me.lblCountdown.Caption = "13"
Pause (1)
Me.lblCountdown.Caption = "12"
Pause (1)
Me.lblCountdown.Caption = "11"
Pause (1)
Me.lblCountdown.Caption = "10"
Pause (1)
Me.lblCountdown.Caption = "9"
Pause (1)
Me.lblCountdown.Caption = "8"
Pause (1)
Me.lblCountdown.Caption = "7"
Pause (1)
Me.lblCountdown.Caption = "6"
Pause (1)
Me.lblCountdown.Caption = "5"
Pause (1)
Me.lblCountdown.Caption = "4"
Pause (1)
Me.lblCountdown.Caption = "3"
Pause (1)
Me.lblCountdown.Caption = "2"
Pause (1)
Me.lblCountdown.Caption = "1"
Pause (1)
Me.lblCountdown.Caption = "0"
Pause (1)
DoCmd.Quit

End Function

Private Sub Form_Timer()

Call CountDown

End Sub

e sada je problem sto kada se ulogujem tj popunim podatke uredno u polja i pocne da otvara formu app i dalje OK radi ali mi izbaci prilikom otvaranja bilo koje od one dve forme izbaci gresku
Run-Time Error '2467'
The Expression you entered to an object that is closed or doesn't exist.
Kada se klikne na END sve dalje normalno radi
E sada kontam ja da je problem sto Funkcija i dalje radi a forma je zatvorena jer uspunjen jedan od prvobitnih uslova.
Jel postoji neka varijanta da kada funkcija naleti na gresku da je jednostavno ignorise??? Ja ne znam stoga molim pomoc.

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: trial u access-u

^{27.10.2011. u 11:37 - pre 152 meseci}

Posle ovoga:

Code:
Public Function CountDown()

staviš

Code:
OnError goto greska

,pa na kraju posle docmd.quit staviš

Code:
greska:

i to je to.Nije baš zahvalno da ako ima grešku ne radi ništa,ali ovde ima svrhe to upotrebiti.Pozdrav.
Samo da dodam,možeš samo za tu grešku (broj 2467) da prekineš izvršenje coda,a za ostale napišeš neku poruku,nešto ovako:

Code:
greska:
If Err.Number = 2467 Then
Else
MsgBox "tralala"
End If

_{[Ovu poruku je menjao SLOJ.1973 dana 27.10.2011. u 13:36 GMT+1]}

Jednog dana...

Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.

+1 Profil

Re: trial u access-u

^{27.10.2011. u 23:44 - pre 152 meseci}

Izbacuje mi gresku prilikom kompajliranja
jel ima veze to sto je u pitanju access 2010?
ako sam dobro razumeo

Public Function CountDown()
OnError goto greska

Me.lblCountdown.Caption = "30"
Pause (1)
Me.lblCountdown.Caption = "29"
Pause (1)
Me.lblCountdown.Caption = "28"
Pause (1)
Me.lblCountdown.Caption = "27"
Pause (1)
Me.lblCountdown.Caption = "26"
Pause (1)
Me.lblCountdown.Caption = "25"
Pause (1)
Me.lblCountdown.Caption = "24"
Pause (1)
Me.lblCountdown.Caption = "23"
Pause (1)
Me.lblCountdown.Caption = "22"
Pause (1)
Me.lblCountdown.Caption = "21"
Pause (1)
Me.lblCountdown.Caption = "20"
Pause (1)
Me.lblCountdown.Caption = "19"
Pause (1)
Me.lblCountdown.Caption = "18"
Pause (1)
Me.lblCountdown.Caption = "17"
Pause (1)
Me.lblCountdown.Caption = "16"
Pause (1)
Me.lblCountdown.Caption = "15"
Pause (1)
Me.lblCountdown.Caption = "14"
Pause (1)
Me.lblCountdown.Caption = "13"
Pause (1)
Me.lblCountdown.Caption = "12"
Pause (1)
Me.lblCountdown.Caption = "11"
Pause (1)
Me.lblCountdown.Caption = "10"
Pause (1)
Me.lblCountdown.Caption = "9"
Pause (1)
Me.lblCountdown.Caption = "8"
Pause (1)
Me.lblCountdown.Caption = "7"
Pause (1)
Me.lblCountdown.Caption = "6"
Pause (1)
Me.lblCountdown.Caption = "5"
Pause (1)
Me.lblCountdown.Caption = "4"
Pause (1)
Me.lblCountdown.Caption = "3"
Pause (1)
Me.lblCountdown.Caption = "2"
Pause (1)
Me.lblCountdown.Caption = "1"
Pause (1)
Me.lblCountdown.Caption = "0"
Pause (1)
DoCmd.Quit
greska:
If Err.Number = 2467 Then
Else
MsgBox "tralala"
End If

End Function

Private Sub Form_Timer()

Call CountDown

End Sub

kada tako uradim pojavi se taj problem da nerazume GOTO

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: trial u access-u

^{28.10.2011. u 07:00 - pre 152 meseci}

Radim u 2003-ci,i kod mene savrseno radi ova funkcija.Ne mogu pomoci,jer 2010-ku nemam instaliranu.

Jednog dana...

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: trial u access-u

^{28.10.2011. u 07:04 - pre 152 meseci}

Izvinjavam se tek sam sada video gde je greska.OnError ne ide zajedno vec odvojeno On Error goto.Pozdrav.

Jednog dana...

Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.

+1 Profil

Re: trial u access-u

^{28.10.2011. u 08:42 - pre 152 meseci}

e sada je sve ok ali sto je najgore postoji OnError u listi metoda i to me je bunilo najvise
u svakom slucaju mnogo hvala.

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: trial u access-u

^{28.10.2011. u 08:51 - pre 152 meseci}

Postoji,ali se on odnosi na objekte na samoj formi ili reportu.Drago mi je da je reseno.

Jednog dana...

Odgovor na temu

TiestoX
Kragujevac

Član broj: 271245
Poruke: 89
*.adsl.eunet.rs.

+1 Profil

Re: trial u access-u

^{01.11.2011. u 20:16 - pre 151 meseci}

Pozdrav.

Na login formu stavis kod:

Code:
Private Sub Form_Load()
On Error Resume Next
Dim TmpDate As Date

'Godina, mesec dan
TmpDate = DateSerial(2011, 10, 1)

'Ako je danasnji datum veci od TmpDate prikazuje se Poruka u suprotnom Login formu
If Date > TmpDate Then
If MsgBox("Vaša licenca je istekla.", vbInformation, "Licenca") = vbOK Then
DoCmd.Quit
End If
Else
DoCmd.OpenForm "Login"
End If

Takodje moze da se napravi skriveno dugme koje je vidljivo samo za admina i koje otvara Licecna formu u kojoj se unosi datum isteka licence.
Probacu to da odradim pa se javljam.

Nadam se da ce ti ovo pomoci.

Pozdrav.

_{[Ovu poruku je menjao TiestoX dana 01.11.2011. u 21:32 GMT+1]}

Izvrsio sam izmenu i sada nije potrebno da se ulazi u Kod da bi se licenca produzila.

Zakacio sam DB u najjednostavnijoj varijanti pa vi menjajte kako vam odgovara.

Svako dobro.

_{[Ovu poruku je menjao TiestoX dana 01.11.2011. u 22:39 GMT+1]}

Prikačeni fajlovi

Licenca.zip - 215.28k

Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.

+1 Profil

Re: trial u access-u

^{02.11.2011. u 10:24 - pre 151 meseci}

Mnogo hvala :) probacu pa se javljam.

Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.

+1 Profil

Re: trial u access-u

^{02.11.2011. u 22:01 - pre 151 meseci}

Evo upravo uradio jedino me zanima prilikom izvrsavanja funkcije jel mora biti pozva "licenca" forma?

Odgovor na temu

crnjak1
Radivoj Crnjak
BP

Član broj: 113662
Poruke: 88
*.dynamic.isp.telekom.rs.

+1 Profil

Re: trial u access-u

^{02.11.2011. u 22:44 - pre 151 meseci}

hteo bi još samo ovo da pitam znam da sam dosadan :)
kako bi mogao da sakrijem forme i tabele da se nevide sa desne strane?

Odgovor na temu

TiestoX
Kragujevac

Član broj: 271245
Poruke: 89
*.adsl.eunet.rs.

+1 Profil

Re: trial u access-u

^{03.11.2011. u 09:29 - pre 151 meseci}

Citat:

Evo upravo uradio jedino me zanima prilikom izvrsavanja funkcije jel mora biti pozva "licenca" forma?

Ne mora, moze da se ide kroz Recordset i da proverava tabelu licenca. Ali to je dosta komplikovanije i nema potrebe za tim u ovom slucaju.

Namerno sam ostavio da se vidi, da bi videli kako funkcionise. Ako ne zelite da se vidi samo dodajte acHidden.

Code:
DoCmd.OpenForm "Licenca", , , , , acHidden

Citat:

hteo bi još samo ovo da pitam znam da sam dosadan :)
kako bi mogao da sakrijem forme i tabele da se nevide sa desne strane?

Ja koristim Access 2007 i kod mene se nalazi sa leve strane.

Za Access 2007 u Access options > Current Database > Display navigation pane

Odgovor na temu