Function Not Responding

[DS]

I have a function in a Module and it's not responding. When I check it in
the Immediate windo it works.
I'm calling it as such from a form.

If dc_response_code = "00" Then
MsgBox "Approved"
Else
Response
End If

Public Function Response(dc_response_code)
Select Case dc_response_code
'Case "01"
' DoCmd.OpenForm "frmMsgInfo"
' Forms!frmMsgInfo!TxtMsg = "Declined"
'Case "85"
' DoCmd.OpenForm "frmMsgInfo"
' Forms!frmMsgInfo!TxtMsg = "Voided"
Case "FE"
DoCmd.OpenForm "frmMsgInfo"
Forms!frmMsgInfo!TxtMsg = "FE Format Error, Trinity Gateway
Service API Request"
End Select

Can you not open a form from a fuction in a module?
Thanks
DS

 

[Chris O'C via AccessMonster.com]

Else
call Response (I_forgot_the_response_code_here)
End If


Public Function Response(dc_response_code As String)
on error goto proc_err


Chris
Microsoft MVP

 

[Douglas J. Steele]

What do you mean by "not responding"? What you've shown won't even compile,
since your function requieres that an argument be passed to it.

If dc_response_code = "00" Then
MsgBox "Approved"
Else
Response dc_response_code
End If

 

[DS]

Thanks Chris.
It's working!
DS