Scamble Data

[John Marshall, MVP]

It doesn't take a rocket scientist!

Depends if we are talking about the Access engine.

When Wayne previously posted he helped the first poster. When I posted
Wayne's code, Wayne indirectly helped a second poster. 1 + 1 = 2

Discounting the lurkers.

The count is Reed, KitCaz and master santos.

lamebrain!!!

Isn't personal insults against the rules?

John... Visio MVP

 

[PC Datasheet]

It certainly is, lamebrain; you repeatedly break this rule!!!

Steve

 

[John Marshall, MVP]

It certainly is, lamebrain; you repeatedly break this rule!!!

More personal insults? So pointing out that you use these newsgroups for
your own personal profit is against the rules?

So you must think the same of the guy who defined MVPs as:

A friend, someone who unselfishly shares his knowledge and expects nothing
in
return. Considers every question posted in this newsgroup very important to
the
poster and is never critical or demeaning to the poster. Accepts every
poster as
a human being and affords all posters the respect every human being
deserves.

John... Visio MVP

 

[WSF]

I am the lamebrain?
I can use Google - apparently you cannot? You come up with such an inane
answer to a straight forward question.

But then again, you never do give straightforward answers do you Steve.
Or is it Tom, Dick, or Harry? Do you really give yourself girls' names?
You take the moral high ground against people who have offered more for
free than you have been able to take for nothing. Your pathetic excuse
for not acknowledging someone else's code is unbelievable - you offer a
CD for over a hundred dollars that is full of other peoples' code? All
acknowledged? Yeah, right!

You are a cheat and a wanker. Do you take a free ride on the newsgroups
because you cannot make a success of your business? or get a proper job?
More often than not posters and others get the answers they seek
promptly from people who provide the information freely.
That is, if they beat you to the post.
Stop scrounging Steve. Stop begging on the newsgroups.
Some of us who recognise the principals of the newsgroups know your
pedigree. Care to spawn a few more Arnos?

It doesn't take a rocket scientist!

When Wayne previously posted he helped the first poster. When I posted
Wayne's code, Wayne indirectly helped a second poster. 1 + 1 = 2
lamebrain!!!

"I will do that from now on if you explain to me how to Google when you
just have the code". More of your weasel nit picky choice of words Steve?

Well, I guess with Google being all so new it stands to reason that a
novice would ask such a question. But your are no novice are you Steve, or
is it "Tom"? You sure are entertaining. You expect anyone here to really
believe you need help with Google? Why do you treat all those who question
your ethics as infidels? And just how would you know this is the "second"
poster helped out with this code? How did you work that out?

Rob,

Thanks for the suggestion. I will do that from now on if you explain to
me how to google when you just have the code.

Steve




Maybe where you're just repeating previous posts from other people then
you
could do the same quick Google that I did to find that one?




Rob,

Thanks for the note!

I didn't keep the source for the code so there was no way to give
specific
credit. I did not intentionally leave Wayne out. Credit now goes to
Wayne
for helping a second poster out with his code.

Steve




http://makeashorterlink.com/?U27B1160C

Steve, you could at least give Wayne a credit.



Below my signature line is some code you could modify to do what you
want.
However, you don't need to go to the bother. I can help you with your
database and I assure you that your data will be given 110%

confidentiality.


My fees are very reasonable.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
(e-mail address removed)
www.pcdatasheet.com

If you don't get the help you need in the newsgroup, I can help you
for

a


very reasonable fee. Over 1000 Access users have come to me for help.


From my files ---------

Example: TestRandomEntries 10, 10
will give 10 entries that are 10 characters long.

Public Sub TestRandomEntries(intQty As Integer, intLength As Integer)
On Error GoTo HandleError

Dim intValue As Integer, strValue As String, intCount As Integer
Dim db As DAO.Database, rst As DAO.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("Table9", dbOpenTable)

Randomize
Const DUPLICATE_INDEX = 3022
intCount = 0
strValue = ""
Do Until intCount = intQty
Do Until Len(strValue) = intLength
'Alpha Numeric characters are ASCII 48-57, 65-90, and 97-122
'Formula from the help file
'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
intValue = Int((122 - 48 + 1) * Rnd + 48)
Select Case intValue
Case 48 To 57, 65 To 90, 97 To 122
strValue = strValue & Chr(intValue)
Case Else
End Select
Loop
With rst
.AddNew
![fldNumbers] = strValue 'Add data.
.Update 'Save changes.
End With
'Increment our counter to see
'how many we have added
intCount = intCount + 1
'Start a new string
strValue = ""
Loop

CleanUp:
On Error Resume Next
rst.Close
Set rst = Nothing
Set db = Nothing
Exit Sub

HandleError:
If Err.Number = DUPLICATE_INDEX Then
'Only count successful additions
intCount = intCount - 1
Resume Next
End If
MsgBox Err.Number & vbCrLf & Err.Description, , "Error"
Resume CleanUp

End Sub






Hi!

I need to pass my database to a help forum in order to get some
assistance.
I want to scramble up some of my data for privacy purposes.

Does anyone have an existing routine or suggestion on how to do this?

I'm ideally looking for some procedure I can pass a field value to

and


return a scrambled value. I can then use this procedure on any

column


in


any
table I want in future.

Thanks!

Chris