这是以前帮大熊写的例子，修饰一下放上来
Option Compare Database
Public Enum sTMtype

  轻魂初级会员 = 0 'access新手 入门级

  轻魂中级会员 = 1 'access熟手 中级

  轻魂高级会员 = 2 'access高手 高级

End Enum

Function tmSample(Ref1 As sTMtype, Optional Ref2 As String)

If IsMissing(Ref2) Or Ref2 = "" Then
    Ref2 = "轻魂"
End If
MsgBox Ref1 & " " & Ref2 & "共同进步"

End Function

Private Sub 命令6_Click()
tmSample 轻魂高级会员, "大熊"
End Sub

当你输入tmSample 后，会有三项提示出来。

相关论坛贴子：http://www.office-cn.net/bbs/dispbbs.asp?BoardID=2&ID=388
相关下载：http://www.office-cn.net/bbs/uploadImages/2002482052660970.zip