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):Option Compare Database
Option Explicit
Function HDDBroj()
Dim fs, D
Set fs = CreateObject("Scripting.FileSystemObject")
Set D = fs.GetDrive(fs.GetDriveName _
(fs.GetAbsolutePathName(Access.References.Count)))
HDDBroj = Abs(D.SerialNumber)
End Function
Function Kodiranje(SerBr As String)
Const K = "1234567890A78BCSDEFGHCS344HJKLM5657NBVLC90112TGMLKBHJFZGH3234"
Dim I As Integer
Dim KodS As Integer
Dim DuzinaB As Integer
Dim Str As String
DuzinaB = Len(SerBr)
For I = 1 To DuzinaB
Str = Mid(SerBr, I, 1)
KodS = Asc(Str) + I
If KodS > Len(K) Then KodS = KodS - Len(K)
Kodiranje = Kodiranje & Mid(K, KodS, 1)
Next I
End Function
Function Kljuc(GenerisaniB As String)
Dim I As Integer
Dim Duz As Integer
Duz = Len(GenerisaniB)
For I = Duz To 1 Step -1
Kljuc = Kljuc & Asc(Mid(GenerisaniB, I, 1)) - I
Next I
End Function
Function ProvjeraKljuca(GenerisaniBroj As String)
Dim SBroj As String
Dim Kodirani As String
Dim I As Integer
Dim Duz As Integer
Dim KljucProvjera As String
SBroj = HDDBroj
Kodirani = Kodiranje(SBroj)
Duz = Len(Kodirani)
For I = Duz To 1 Step -1
KljucProvjera = KljucProvjera & Asc(Mid(Kodirani, I, 1)) - I
Next I
If KljucProvjera <> GenerisaniBroj Then
MsgBox "Program nije registrovan za rad na ovom ra
unaru!", vbCritical, "Greška"
'Quit
'DoCmd.OpenForm "frmRegistracijaKljuca"
Else
DoCmd.OpenForm "frmTPrijava"
End If
End Function
Function ProvjeraKljuca1(GenerisaniBroj As String)
Dim SBroj As String
Dim Kodirani As String
Dim I As Integer
Dim Duz As Integer
Dim KljucProvjera As String
SBroj = HDDBroj
Kodirani = Kodiranje(SBroj)
Duz = Len(Kodirani)
For I = Duz To 1 Step -1
KljucProvjera = KljucProvjera & Asc(Mid(Kodirani, I, 1)) - I
Next I
If KljucProvjera <> GenerisaniBroj Then
MsgBox "Program nije registrovan za rad na ovom ra
unaru!", vbCritical, "Greška"
DoCmd.Close
Quit
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE StanjeART SET Kolicina='" & Forms!frmRegistracijaKljuca!RegistarBroj & "' WHERE Sifra='" & "1" & "'" 'and SifSklad='" & Me.Skladiste & "'"
DoCmd.SetWarnings True
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM POREZI WHERE SIFPOR='" & "4" & "'"
DoCmd.SetWarnings True
DoCmd.Close
DoCmd.OpenForm "frmPocetak"
End If
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.