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.
Pozdrav, Amela