Prikazi cijelu temu 03.03.2017 13:05
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: Zaštita access baze od kopiranja
ni meni, valjda i ja nesto krivo radim.
ja sam iscackao ovo i probao u accesu
PreuzmiIzvorni kôd (Text):
  1. Option Compare Database
  2. Function HdNum() As String
  3.     Dim fsObj   As Object
  4.     Dim drv     As Object
  5.     Set fsObj = CreateObject("Scripting.FileSystemObject")
  6.     Set drv = fsObj.Drives("C")
  7.     HdNum = Hex(drv.SerialNumber)
  8. End Function
  9.  
  10. Sub HD()
  11.     MsgBox HdNum
  12. End Sub
zivot je moja domovina.