Function Not Responding

D

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
 
C

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
 
D

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top