Changing Sensitive Data to Upload Here

[cew75]

I need to change some sensitive data so I can upload a file here... Basically I want to change around 500+ peoples names to be something random in a file where they have an ID# column & First & Last Name columns.... Does anyone know how I could do that?

[ranman256]

paste the code below into a module, then run an update query on your fields.
It will randomize the letters.

usage:
RandLtr([firstName])

Public Function RandLtr(ByVal pvWord)
Dim i As Integer
Dim vChr, vNum, vNewWord

if IsNull(pvWord) then exit function

For i = 1 To Len(pvWord)
   vChr = Mid(pvWord, i, 1)
   If vChr <> " " Then
      vNum = Random(26)
      vChr = Trim(Chr(vNum + 64))
   End If
   vNewWord = vNewWord & vChr
Next
RandLtr = vNewWord
End Function

'generate a random # between 1 and #given
Public Function Random(ByVal pvNum)
Random = Int((pvNum * Rnd) + 1)
End Function

[Micron]

do you need all 500 records or will it still function with say 10 records of names? For a minor quantity, you could run an update query that many times and probably only need to change the last name. Keeping them all will be a bit of work methinks.

Then again, maybe not if you don't need meaningful names.

[moke123]

you can dowload some dummy data from here.....http://www.generatedata.com/

[orange]

I agree with posts so far. You don't necessarily need 500 records to highlight an issue. You can get test data from the internet as moke123 said; or roll your own as per ranman.

[cew75]

Thanks everybody!! I have used your tips and parsed down the number of records I needed to randomize. I still needed quite a few records but not 500..

Thanks for the code Ranman256!!! Worked like a charm!!