Help running SQL function in VBA

[sparkbyte]

How would you do this??

If DoCmd.OpenFunction(IsFileNumberValid,acViewNormal,acReadOnly) me.FileNumber <> 1 Then
Cancel = True
BeepWhirl
strResult = MsgBox("The File Number you have Entered is Invalid." & _
"Please Correct the File Number ...", _
vbExclamation + vbOKOnly, _
"ERROR!")
Select Case strResult
Case vbOK, vbRetry, vbYes, vbNo
Me.Undo
Exit Sub
Case vbCancel, vbAbort, vbIgnore
Exit Sub
Case Else
Exit Sub
End Select
End If


Thanks

John Fuhrman

 

[PWise]

I do not think thatyou can pass a prameater to the docmd.openfunction