Predmet:Re: Zastita aplikacije

---

Riješila sam problem sa datumom:

Umjesto koda:

If Me.Number > 0 And Format(DatumReg, "dd.mm.yyyy") < "31.05.2011" Then
DoCmd.Close
DoCmd.OpenForm "Switchboard"
Else
DoCmd.Close
MsgBox "Testni period je istekao"
End If


stavila sam:

Dim Datum as Date
Datum = Format(DatumReg, "dd.mm.yyyy")
If Me.Number > 0 And Datum < "31.05.2011" Then
DoCmd.Close
DoCmd.OpenForm "Switchboard"
Else
DoCmd.Close
MsgBox "Testni period je istekao"
End If


Jos mi ostaje problem kad dobijem fabricki "broj" diska npr. GE84RT02JWW kako da napravim registracijski kod?

Hvala.

LP, Amela.

---