trial u access-u

Kako napraviti da aplikacija bude trial na recimo 30 dana u accessu 2010
patim se trazim ali resenja kao da nema
Naime radi o sledećem uradio sam aplikaciju i bazu u access 2010 i sada kao slag na tortu bi hteo jos da integrisem i trial period ukoliko je to moguce.
Razlog tome je da se pojedincima to svidelo (aplikacija) i cisto da bi zastitio svoje neke interese i na kraju krajeva naterao da plate ubacio neku trial varijantu na neki period.
Jel ima neko ideju?

Napravi funkciju koja proverava tekuci datum i poredi ga sa nekim zadatim datumom. Ako je danasnji datum manji od zadtog, funkcija vraca TRUE, ako je veci funkcija vraca FALSE.

Verovatno iams start-up formu. Na onOpen event, stavi da se poziva tvoja funkcija. Ako funkcija vrati FALSE, canceluj OnOpen event i uradi Docmd.Quit.

Podrazumeva se da ti je aplikacija .accde i oni ne vide kod.

To je ideja.

Mozes tako sto kaze i @zidar , ali moze neko svaki dan mjenjati datum .....
.... ali imas jednu jednostavnu zastitu .... vjerojatno u neku tablicu program upisuje podatke, e sad , dozvolis da upisu
samo 100 ... 500 ... 1000 .. podataka , i onda program stane , ne dozvoli vise unos podataka...

mislio sam na tu varijantu ogranicenja broja zapisa ali to jednostavno nije moguce jer ce broj zapisa varirati dnevno tj. u prvih par meseci 100-ak zapisa ce biti dnevno.
a sto je predlozio kolega zidar pokusao ali upravo se desilo kontra datum vratis ili pomeris i radi sve super nije dobro resenje.
ne znam tj. nemam iskustva sa upisom u registri bazu tako da od datuma registracije dozvoli access runtime da se pokrene ili tako neki slican fazon.

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. 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.

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

@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.

Posle ovoga: staviš ,pa na kraju posle docmd.quit staviš 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:

Potpis

Jednog dana...

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

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

Potpis

Jednog dana...

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

Potpis

Jednog dana...

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.

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

Potpis

Jednog dana...

Pozdrav.

Na login formu stavis kod:



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.

Mnogo hvala :) probacu pa se javljam.

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

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?

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.




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

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

E kako sve napreduje tako i ova moja baza :)
Kako bi mogao da dobijem automatski export neke tabele u txt formatu sa delimiterima?
Probao sam razne varijante preko macroa ali nedobijem zeljeni rezultat?

Option Compare Database
Option Explicit

Private Sub Command0_Click()
Application.ImportXML "C:\test.xml", acAppendData
MsgBox "Uspešan import!"
End Sub

Private Sub Command1_Click()
Application.ExportXML _
ObjectType:=acExportTable, _
DataSource:="Contacts", _
DataTarget:="C:\test.xml"
MsgBox "Uspešan export!"
End Sub

Izbaci mi stalno gresku kod importovanja iz XML-a ali uveze sve podatke u praznu tabelu. Šta se dešava?