decrypting problem - dont get scared by the title

[mpmason14]

i have a form that i will be using when the user opens a report that asks the user if they want to decrypt social security numbers stored in the database or not. the module to do the encrypting/decrypting works perfectly, but when i try and apply it to the form on a command button (labeled "yes"), it gives me a VB runtime error - "Run-time error '424': Object required". i have the code below - i am using MS Access 2003. as always, i appreciate any help i can get. (if i don't answer, that is only because i will be out of the office for one month and i will check when i get back. thanks again)

CODE

Private Sub decrypty_Click()
Dim stDocName As String

stDocName = "_RPT_addresslist"

'decrypt first
Me!SSN = CipherSSN(employee!SSN)

'open report showing ss#
DoCmd.OpenReport stDocName, acPreview

End Sub

END CODE

where CipherSSN is the module name, employee is the table where the SSN is encrypted and stored, me is the report referencing itself, and me!ssn is the report referencing the ssn text box on the report.

[missinglinq]

Private Sub decrypty_Click()
 Dim stDocName As String
 
 stDocName = "_RPT_addresslist"
 
 'decrypt first
     Me!SSN = CipherSSN(employee!SSN)
 
 'open report showing ss#
      DoCmd.OpenReport stDocName, acPreview
 
 End Sub

If CipherSSN is, indeed, a Module name, why are you using it like a Function

Me!SSN = CipherSSN(employee!SSN)

in Line # 7of your code? If both your Function and the Module that holds it have the same name, that is probably the source of your problem; this is not allowed by Access.

Linq ;0)>

[Rabbit]

You can get table values that way. And I don't think you can change textbox values in a report.

Try Me!SSN = CipherSSN(Me!SSN)

[mpmason14]

sorry about that, its a typo...the module name is cssn and the function name is CipherSSN ... very hectic today as its my last day.

[Rabbit]

I can't tell if this means you've solved the problem.

[mpmason14]

You can get table values that way. And I don't think you can change textbox values in a report.

Try Me!SSN = CipherSSN(Me!SSN)

i tried that and i got VB run-time error 2465: "Microsoft Office Access can't find the field 'SSN' referred to in your expression."

the SSN is being pulled from a query that queries the employee table (where the encrypted SSN is stored) and the report has a textbox on it that has a control source of "ssn" off of the query.

all i want the code to do is decrypt the SSN back to a normal 9-digit's and show the normal one in the report. if i can get that working then i can worry about other stuff on my own.

the purpose of the query is to only pull the desired info off of the employee table and put it in the report.

[mpmason14]

I can't tell if this means you've solved the problem.

problem NOT solved :)

[Rabbit]

i tried that and i got VB run-time error 2465: "Microsoft Office Access can't find the field 'SSN' referred to in your expression."

the SSN is being pulled from a query that queries the employee table (where the encrypted SSN is stored) and the report has a textbox on it that has a control source of "ssn" off of the query.

all i want the code to do is decrypt the SSN back to a normal 9-digit's and show the normal one in the report. if i can get that working then i can worry about other stuff on my own.

the purpose of the query is to only pull the desired info off of the employee table and put it in the report.

You'll have to decrypt the SSN from the query then.

[mpmason14]

You'll have to decrypt the SSN from the query then.

assistance? example code?

[Rabbit]

In a normal code module you'll have something along the lines of:

Public Function CipherSSN(strSSN As String) As String
  ...
End Function

Correct?

In your query it would be something along the lines of:

SELECT CipherSSN(TableName.SSN) As Expr1 FROM TableName;
 

[mpmason14]

In a normal code module you'll have something along the lines of:

Public Function CipherSSN(strSSN As String) As String
  ...
End Function

Correct?

In your query it would be something along the lines of:

SELECT CipherSSN(TableName.SSN) As Expr1 FROM TableName;
 

finally! thank you very much. this will certainly help relieve some stress on my vacation:) thanks again

[Rabbit]

Not a problem, good luck.