If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Time code?
-- After searching Google.groups.com and finding no answer, Bob Vance asked: Is there a way I can put a time code in my access software so as at a given date without the password it will cease to work or print??? TIA Newbie Bob Thanks in advance.........Bob Vance |
#2
|
|||
|
|||
See Tony Toews' Web site:
http://www.granite.ab.ca/access/demo.htm -- HTH Van T. Dinh MVP (Access) "Bob" wrote in message ... -- After searching Google.groups.com and finding no answer, Bob Vance asked: Is there a way I can put a time code in my access software so as at a given date without the password it will cease to work or print??? TIA Newbie Bob Thanks in advance.........Bob Vance |
#3
|
|||
|
|||
How do i go about putting this in my access software, Thanks Bob
Declarations: '(None)Code: Public Function RC4(ByVal Expression As String, ByVal Password As String) As String On Error Resume Next Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte If Len(Password) = 0 Then Exit Function End If If Len(Expression) = 0 Then Exit Function End If If Len(Password) 256 Then Key() = StrConv(Left$(Password, 256), vbFromUnicode) Else Key() = StrConv(Password, vbFromUnicode) End If For X = 0 To 255 RB(X) = X Next X X = 0 Y = 0 Z = 0 For X = 0 To 255 Y = (Y + RB(X) + Key(X Mod Len(Password))) Mod 256 Temp = RB(X) RB(X) = RB(Y) RB(Y) = Temp Next X X = 0 Y = 0 Z = 0 ByteArray() = StrConv(Expression, vbFromUnicode) For X = 0 To Len(Expression) Y = (Y + 1) Mod 256 Z = (Z + RB(Y)) Mod 256 Temp = RB(Y) RB(Y) = RB(Z) RB(Z) = Temp ByteArray(X) = ByteArray(X) Xor (RB((RB(Y) + RB(Z)) Mod 256)) Next X RC4 = StrConv(ByteArray, vbUnicode) End Function"Van T. Dinh" wrote in message ... See Tony Toews' Web site: http://www.granite.ab.ca/access/demo.htm -- HTH Van T. Dinh MVP (Access) "Bob" wrote in message ... -- After searching Google.groups.com and finding no answer, Bob Vance asked: Is there a way I can put a time code in my access software so as at a given date without the password it will cease to work or print??? TIA Newbie Bob Thanks in advance.........Bob Vance |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
time zone changes destroy all-day events | freelance9 | Calendar | 1 | February 1st, 2005 07:25 PM |
Time Zone Scheduling | JohnA | Calendar | 0 | September 14th, 2004 08:15 PM |
Conversion of excel vba code to access vba | filnigeria | General Discussion | 5 | July 15th, 2004 02:23 AM |
Outlook 2003 Terminal Server Time Zone issue | Robert Strom | Calendar | 2 | May 26th, 2004 10:50 PM |