Prikazi cijelu temu 11.11.2014 11:32
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Zaštita ne radi
Imam ovaj modul koji mi radi u access2010,Sad sam otvorio novu bazu i uvezao modul, isto tako reference sam iste stavio i javlja mi grešku. Evo code:

PreuzmiIzvorni kôd (Text):
  1. Option Compare Database
  2. Option Explicit
  3.     Function HDDBroj()
  4.     Dim fs, D
  5.     Set fs = CreateObject("Scripting.FileSystemObject")
  6.     Set D = fs.GetDrive(fs.GetDriveName _
  7.     (fs.GetAbsolutePathName(Access.References.Count)))
  8.     HDDBroj = Abs(D.SerialNumber)
  9.     End Function
  10.     Function Kodiranje(SerBr As String)
  11.     Const K = "1234567890A78BCSDEFGHCS344HJKLM5657NBVLC90112TGMLKBHJFZGH3234"
  12.     Dim I As Integer
  13.     Dim KodS As Integer
  14.     Dim DuzinaB As Integer
  15.     Dim Str As String
  16.     DuzinaB = Len(SerBr)
  17.      
  18.         For I = 1 To DuzinaB
  19.         Str = Mid(SerBr, I, 1)
  20.         KodS = Asc(Str) + I
  21.             If KodS > Len(K) Then KodS = KodS - Len(K)
  22.             Kodiranje = Kodiranje & Mid(K, KodS, 1)
  23.         Next I
  24.     End Function
  25.     Function Kljuc(GenerisaniB As String)
  26.     Dim I As Integer
  27.     Dim Duz As Integer
  28.     Duz = Len(GenerisaniB)
  29.         For I = Duz To 1 Step -1
  30.         Kljuc = Kljuc & Asc(Mid(GenerisaniB, I, 1)) - I
  31.         Next I
  32.     End Function
  33.     Function ProvjeraKljuca(GenerisaniBroj As String)
  34.     Dim SBroj As String
  35.     Dim Kodirani As String
  36.     Dim I As Integer
  37.     Dim Duz As Integer
  38.     Dim KljucProvjera As String
  39.     SBroj = HDDBroj
  40.     Kodirani = Kodiranje(SBroj)
  41.     Duz = Len(Kodirani)
  42.         For I = Duz To 1 Step -1
  43.         KljucProvjera = KljucProvjera & Asc(Mid(Kodirani, I, 1)) - I
  44.         Next I
  45.         If KljucProvjera <> GenerisaniBroj Then
  46.           MsgBox "Program nije registrovan za rad na ovom ra
  47. unaru!", vbCritical, "Greška"
  48.           'Quit
  49.           'DoCmd.OpenForm "frmRegistracijaKljuca"
  50.           Else
  51.           DoCmd.OpenForm "frmTPrijava"
  52.         End If
  53.     End Function
  54. Function ProvjeraKljuca1(GenerisaniBroj As String)
  55.     Dim SBroj As String
  56.     Dim Kodirani As String
  57.     Dim I As Integer
  58.     Dim Duz As Integer
  59.     Dim KljucProvjera As String
  60.     SBroj = HDDBroj
  61.     Kodirani = Kodiranje(SBroj)
  62.     Duz = Len(Kodirani)
  63.         For I = Duz To 1 Step -1
  64.         KljucProvjera = KljucProvjera & Asc(Mid(Kodirani, I, 1)) - I
  65.         Next I
  66.         If KljucProvjera <> GenerisaniBroj Then
  67.           MsgBox "Program nije registrovan za rad na ovom ra
  68. unaru!", vbCritical, "Greška"
  69.           DoCmd.Close
  70.           Quit
  71.           Else
  72.         DoCmd.SetWarnings False
  73.             DoCmd.RunSQL "UPDATE StanjeART SET Kolicina='" & Forms!frmRegistracijaKljuca!RegistarBroj & "' WHERE Sifra='" & "1" & "'" 'and SifSklad='" & Me.Skladiste & "'"
  74.         DoCmd.SetWarnings True
  75.         DoCmd.SetWarnings False
  76.         DoCmd.RunSQL "DELETE FROM POREZI  WHERE SIFPOR='" & "4" & "'"
  77.         DoCmd.SetWarnings True
  78.         DoCmd.Close
  79.           DoCmd.OpenForm "frmPocetak"
  80.         End If
  81.     End Function

Na ovom djelu javlja grešku:
If KljucProvjera <> GenerisaniBroj Then
Miro
Ovaj post je ureden 1 puta. Posljednja izmjena 11.11.2014 11:34 od strane miro35.