Predmet:Re: Zastita aplikacije
  
  
  Objasnje procedure:
Function main()'Ime procedure
 Dim Db As Database
 Dim Rs As Recordset
 Dim Kljuc As String
 Dim Provjera As Boolean ' Variable koje su dimenzionisane
 Set Db = CurrentDb 'Setovanje baze (Davanje do znanja sa kojom se bazom operise)
 Set Rs = Db.OpenRecordset("RegisterProgram") 'Setovanje rekordseta (To su ti kolone i redovi iz tabele koja se zove RegisterProgram. Znaci mora postojati tabela ili Query RegisterProgram
 Kljuc = Rs!Reg ' U memorijsku kljuc ucitava se vrijednost iz tabele RegisterProgram iz polja Reg.
 Rs.Close ' Zatvaranje rekordseta(Tabele koja je bila otvorena u memoriji samo se ne vidi)
 Provjera = ProvjeraKljuca(Kljuc) ' Poziv procedure Provjera sa ulaznim podatkokm Kljuc koji smo prepisali iz tabele RegisterProgram iz polja Reg.
 If Provjera = True Then  ? ako je provjera true odnosno ako je procedura vratila u memorijsku provjera true tada ide ovo ispod.
 'Ako je uredu onda podizes startnu formu ovdje
'Ovdje mozes napisati kod da podigne tvoju formu
 DoCmd.OpenForm "ImeTvojeForme" 
 Else ? ako je false tada radi ovo ispod tj. Podize formu koja se zove RegisterProgram i ovdje se nista ne mijenja
 DoCmd.OpenForm "RegisterProgram" ovo sam mislio da se mjenja na ime moje forme 
 End If ? kraj uslova
 End Function 'Kraj procedure.        
            Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.