Centar za edukaciju-BiH



#1 11.11.2014 10:32
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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 10:34 od strane miro35. ↑  ↓

#2 11.11.2014 10:46
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Zaštita ne radi
Ovo su reference.
Znači rade u jednoj bazi 2010 a u drugoj ne rade.

Slicice prilozenih slika:
Reference1.JPG
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:318
Velicina datoteke:130.99 KB
Velicina slike: 1024 x 768 Pikseli


Miro
↑  ↓

#3 11.11.2014 10:53
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Zaštita ne radi
dodaj ovo ispred pa javi sta izbacuje u msg.
MsgBox KljucProvjera
MsgBox GenerisaniBroj
If KljucProvjera <> GenerisaniBroj Then
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 11.11.2014 11:10
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Zaštita ne radi
Javi mi da na obe poruke iste brojeve znači i na prvoj i drugoj.
Miro
↑  ↓

#5 11.11.2014 12:20
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Zaštita ne radi
Pa nevidim kako moze biti greska ako ima u var. vrijednost.
Ako mozes zakaci samo minimalni dio.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 11.11.2014 12:52
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Zaštita ne radi
Evo sad sam napravio ovo u novoj bazi i sve radi.Evo primjer samo pokreni formu main i malo sačekaj.
Stavio sam i reference iste i u staru i u novu bazu.Evo primjer:

Prilozi:
Informacije o tipu datoteke za:rar  PrimjerZastita.rar
Preuzimanja:343
Velicina datoteke:67.79 KB


Miro
↑  ↓

#7 11.11.2014 13:03
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Zaštita ne radi
Nemoj se truditi da nađeÅ¡ greÅ¡ku.NaÅ¡ao sam.Ne mogu da vjerujem da to može biti.Znači koristim Access 2010 licencirani,kupljen je legalno sve.Kad sam importirao formu u novu 2010 bazu i ovaj kod sve radi ok.
I kad kompajliram kod sve radi ok, dok ne napravim compact and repair baze.nakon toga ne radi,znači javlja greÅ¡ku na onom djelu koji sam gore postavio:
If KljucProvjera <> GenerisaniBroj Then

e sad možda se to dešava samo na mom kompu ne znam i nije mi jasno zašto se ovo dešava kad napravim ovo sažimanje baze.
Miro
↑  ↓

#8 11.11.2014 14:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Zaštita ne radi
Nemogu ovdje naci nikakvu gresku.
Jedino da nisi mozda podizao sa stika ili cd-a.
Tad ce ti javiti gresku.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 11.11.2014 15:15
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Zaštita ne radi
Nije nego kad napravim Compact an repair onda ne radi ova funkcija.
Kad ponovno uvezem u praznu bazu sve radi.
Miro
↑  ↓

#10 11.11.2014 17:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Zaštita ne radi
hehe dobro da si nasao.
Znaci ispade da je modul ostecen.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (3):1,2,3


Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 40 am.